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

1 Respuesta

4.583.925 pts. Sancho, si los perros ladran ...

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 Sub

Cambia 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.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas