Fallo en linea de macro

[molineta]

Hola la linea numero 30 "Sheets(nombrehoja$).Select " me da error (subindice fuera de intervalo) alguien me puede decir donde esta el fallo por favor?

Sub TrasvaseMusicos()
'MOSTRAMOS UNA...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Motero]

Hola. Prueba a seleccionar antes la hoja donde tienes el rango con el nombre de la hoja.

Dim nombrehoja$
Sheets(nombre hoja rango BK3).Select...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

La hoja que intentas seleccionar no existe.

Cuando abres un archivo, este pasa a ser el libro activo y la hoja activa del libro recien abierto pasa a ser la hoja actival.

¿ De que libro/hoja es...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[molineta]

Muchas Gracias Antoni, me ha funcionado-, pero ahora se me atasca en la linea 27 cuando intento posicionarme en la primera celda vacia de la columna "A" del libro "HOLA.XLSM" EN LA...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[molineta]

Hola Antoni, ya lo he conseguido solucionar sutituyendo:

esto:
ActiveSheet.Range("A1").End(xlDown).Offset(1, 0).Select

por esto:
Dim lastrow As Integer
lastrow = Cells(Rows.Count...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí