Seleccionar archivo por MsgBox

[JosMa]

Hola

Tengo  una parte de la macro que por MsgBox se tiene que seleccionar un archivo (hasta aquí funciona)

Do While Olb <> 1
MsgBox "Selecciona archivo ", , ""
Olb = Application.GetOpenFilename
If Olb <> "Falso" And Olb <> "" And Olb <> 1 Then Exit Do
Loop

Pero cuando de ese libro que se ha abierto tengo que seleccionar diferentes hojas y luego copiar, me falla en esta linea: 

Workbooks.Open(Olb).Sheets(1).Copy After:=Workbooks(2).Sheets(3)

Me podríais ayudar a encontrar la solución

 

Saludos

[Gerson Pineda]

Hola

¿Lo estas haciendo desde un formulario o desde la hoja?

En el primer caso, solo es cosa de poner un textbox para indicar el numero de hoja

Si no, intenta con INPUBOX

 

Saludos 

[JosMa]

Hace 3 minutos , Gerson Pineda dijo:

Hola

¿Lo estas haciendo desde un formulario o desde la hoja?

En el primer caso, solo es cosa de poner un textbox para indicar el numero de hoja

Si no, intenta con INPUBOX

 

Saludos 

Desde la Hoja.

Con el MsgBox no hay problema,

La cuestión es que cuando la instrucción tiene que seleccionar una hoja del archivo seleccionado y luego copiarla en el otro libro, le falta algo a la instrucción que no funciona

Workbooks.Open(Olb).Sheets(1).Copy After:=Workbooks(2).Sheets(3)

 

[Antoni]

Prueba así

Workbooks(Olb).Sheets(1).Copy After:=Workbooks(2).Sheets(3)

o así

ActiveWorkbook.Sheets(1).Copy After:=Workbooks(2).Sheets(3)

Y si no te funciona, sube tu archivo con la macro.

[JosMa]

Hace 1 hora, Antoni dijo:

Prueba así

Workbooks(Olb).Sheets(1).Copy After:=Workbooks(2).Sheets(3)

o así

ActiveWorkbook.Sheets(1).Copy After:=Workbooks(2).Sheets(3)

Y si no te funciona, sube tu archivo con la macro.

Lo he probado pero no me funciona.

Ejemplo.7z