Buscar hoja determinada entre dos ficheros abiertos
Quisiera me resolvieran esta duda.
Tengo dos fichero Excel "abiertos". Uno tiene 3 hojas llamadas (Hoja1, Hoja2 y Hoja3). El otro fichero tiene varias hojas llamadas (Pedidos, Facturas, etc.)
Necesito que situado en la Hoja 1 de primer fichero por medio de una macro me situe en la celda B5 de la hoja Pedidos del fichero2.
NOTA: Debería buscar la hoja Pedidos sin hacer referencia al nombre del fichero ni a su ubicación, solo reconociendo que los dos están abiertos y hacer la operación.
1 respuesta
Respuesta de Dante Amor
2
H o l a : Pon un botón en la hoja1 del primer fichero y asigna la siguiente macro:
Sub CambioHoja()
'Por.Dante Amor
existe = False
For Each libro In Application.Workbooks
For Each hoja In libro.Sheets
If UCase(hoja.Name) = "PEDIDOS" Then
libro.Activate
hoja.Select
Range("B5").Select
existe = True
Exit For
End If
Next
Next
If existe = False Then
MsgBox "No existe la hoja 'Pedidos' en los libros abiertos"
End If
End SubSigue las Instrucciones para un botón y ejecutar la macro
- Abre tu libro de Excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Ahora para crear un botón, puedes hacer lo siguiente:
- Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
- Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
- Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
- Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: CambioHoja
- Aceptar.
- Para ejecutarla dale click a la imagen.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
