Macro para buscar por nombre de hoja
Hola buenas necesito un macro para buscar y copiar las hojas de excel pero en otro libro distinto algo como esto Macro para buscar por nombre de hoja
Muchas gracias
1 Respuesta
Respuesta de Dante Amor
1
Lo que hace la macro de referencia es copiar un rango de una hoja indicada en la celda A1 y lo pega en la hoja 1
Lo que hace la siguiente macro es copiar un rango de la hoja indicada en la celda A1 y pegarlo en un nuevo libro en la primera hoja.
Sub buscar()
'Por.Dante Amor
Application.screenpudating = False
hoja = Range("A1")
Rango = "A5:C35"
Sheets(hoja).Range(Rango).Copy
f = Range(Rango).Cells(1, 1).Row
c = Range(Rango).Cells(1, 1).Column
Workbooks.Add
Cells(f, c).Select
ActiveSheet. Paste
ThisWorkbook. Activate
End SubCambia en la macro "A1" por la celda en la que vas a poner el nombre de la hoja.
Cambia en la macro "A5:C35", por el rango que vas a copiar.
Saludos. Dante Amor
Recuerda valorar la respuesta.
