Bucle excel
Hola, en primer lugar decir que soy muy nuevo en visual je je
he estado intentando hacer un bucle que coja el valor de una celda de una hoja de excel y que la copie en otra hoja (LISTADO), a continuación se supone que debe pasar a la siguiente hoja y coger el valor de la misma celda que en la anterior hoja y lo copia en la hoja LISTADO en la primera celda libre que encuentre y así hasta que llegue a la hoja LISTADO
leyendo posts he hecho lo siguiente pero por supuesto no funciona je je a ver si puedes echarme una mano porque voy un poco perdido.
Muchas gracias
Sub Botón7_AlHacerClic()
Dim fila1 As Integer
Dim fila2 As Integer
Dim hoja As Worksheet
For Each hoja In Worksheets
ActiveSheet.Range("B2").Select
Selection.Copy
Sheets("LISTA_IP").Select
fila1 = ActiveSheet.Range("A65536").End(xlUp).Row + 1
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Hoja1").Select
Range("a4").Select
Application.CutCopyMode = False
ActiveSheet.Range("B1").Select
Selection.Copy
Sheets("LISTA_IP").Select
fila2 = ActiveSheet.Range("B65536").End(xlUp).Row + 1
ActiveSheet.Paste
Application.CutCopyMode = False
Next hoja
End Sub
he estado intentando hacer un bucle que coja el valor de una celda de una hoja de excel y que la copie en otra hoja (LISTADO), a continuación se supone que debe pasar a la siguiente hoja y coger el valor de la misma celda que en la anterior hoja y lo copia en la hoja LISTADO en la primera celda libre que encuentre y así hasta que llegue a la hoja LISTADO
leyendo posts he hecho lo siguiente pero por supuesto no funciona je je a ver si puedes echarme una mano porque voy un poco perdido.
Muchas gracias
Sub Botón7_AlHacerClic()
Dim fila1 As Integer
Dim fila2 As Integer
Dim hoja As Worksheet
For Each hoja In Worksheets
ActiveSheet.Range("B2").Select
Selection.Copy
Sheets("LISTA_IP").Select
fila1 = ActiveSheet.Range("A65536").End(xlUp).Row + 1
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Hoja1").Select
Range("a4").Select
Application.CutCopyMode = False
ActiveSheet.Range("B1").Select
Selection.Copy
Sheets("LISTA_IP").Select
fila2 = ActiveSheet.Range("B65536").End(xlUp).Row + 1
ActiveSheet.Paste
Application.CutCopyMode = False
Next hoja
End Sub
Respuesta de v_344
1