Copiar filas con patrón en otra hoja
Tengo una hoja con al menos 2000 filas llenas de la columna A a la M.
En la columna A tengo las fechas en formato dd/mm/yyyy hh:mm:ss y en el resto de columna valores numéricos.
Necesito una macro en donde YO coloque el valor de mi fila inicial, por ejemplo la fila 10 y que luego, se seleccionen las filas 10,15,20,25... (10+5) hasta cumplir 300 filas seleccionadas y las copie en otra hoja.
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro
Sub Copiar_Filas()
'Por.Dante Amor
fila = 10 'fila inicial
inter = 5 'intervalo
n = 300 'número de filas a copiar
'
Application.ScreenUpdating = False
Set h1 = Sheets("Hoja1") 'hoja de datos
Set h2 = Sheets("Hoja2") 'hoja de resultados
'
h2.Cells.Clear
j = 1
m = 0
For i = 10 To h1.Range("A" & Rows.Count).End(xlUp).Row Step inter
m = m + 1
If m > n Then Exit For
'
h1.Rows(i).Copy h2.Rows(j)
j = j + 1
Next
Application.ScreenUpdating = True
MsgBox "Fin"
End SubCambia en la macro en estas líneas los valores que deseas:
fila = 10 'fila inicial inter = 5 'intervalo N = 300 'número de filas a copiar
Debes tener 2 hojas, "Hoja1" con los datos y en la "Hoja2" quedarán las filas copiadas.
Cambia los nombres de las hojas en estas líneas de la macro:
Set h1 = Sheets("Hoja1") 'hoja de datos
Set h2 = Sheets("Hoja2") 'hoja de resultados.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
