Buscar nombre de hoja y traer valores
Hola
Tengo un libro de excel con 107 hojas hice una macro que me nombra las hojas en la primera hoja osea que me trae el nombre de hoja por hoja y me lo va colocando en la columna a
Hoja 1
Hoja 2
...
Pero Necesito una macro que aparte de que me traiga el nombre de ela hoja me traiga los datos que están en la celda h20 y j20 de cada hoja
Hoja 1 52000 6322
Hoja 2 8564 45666
...
Muchas gracias por la ayuda
Tengo un libro de excel con 107 hojas hice una macro que me nombra las hojas en la primera hoja osea que me trae el nombre de hoja por hoja y me lo va colocando en la columna a
Hoja 1
Hoja 2
...
Pero Necesito una macro que aparte de que me traiga el nombre de ela hoja me traiga los datos que están en la celda h20 y j20 de cada hoja
Hoja 1 52000 6322
Hoja 2 8564 45666
...
Muchas gracias por la ayuda
1 respuesta
Respuesta de Cadipas spain
1
Prueba este código. Como no me decías como ejecutarlo, yo he puesto que cada vez que entres en la hoja uno, se ejecute. También he supuesto que tienes datos en la hoja 1, de no ser así, el for en vez de empezar en 1 pon que empiece en 2.
Private Sub Worksheet_Activate()
For x = 1 To Sheets.Count
Cells(x, 1) = Sheets(x).Name
Cells(x, 2) = Sheets(x).Range("h20")
Cells(x, 3) = Sheets(x).Range("j20")
Next x
End Sub
Suerte (
Private Sub Worksheet_Activate()
For x = 1 To Sheets.Count
Cells(x, 1) = Sheets(x).Name
Cells(x, 2) = Sheets(x).Range("h20")
Cells(x, 3) = Sheets(x).Range("j20")
Next x
End Sub
Suerte (
