Copiar un rango y pegar tantas veces como información hay en otra celda
Nuevamente solicito de su ayuda
Tengo una hoja de excel donde necesito copiar un rango de celdas y se pegue en la misma hoja la cantidad de veces que en la columna L tenga información
Para ser más especifico:
Tengo en la hoja 1 una base de datos donde ingreso datos en la columna L y en el rango X2:H2 ingreso los datos del cliente, necesito que al ejecutar la macro se copie la información de X2:AH2 y lo pegue como valores A2:M2 y lo repita hacia abajo tantas veces como datos hay en la columna L,
Si ingreso informacion en L2, L3 y L4 copiara el rango X2:AH2 y lo en A2:M2, A3:M3 y A4:M4
Al ingresar un nuevo registro ingresare información en desde L5 hacia abajo por lo que necesito que nuevamente copie X2:AH2 y lo pegue desde A5 hacia abajo tantas veces como datos se ingresaron desde L5 y así sucesivamente
1 Respuesta
Hola
No me permite subir el archivo por lo que envío una imagen
espero me puedas ayudar
[Hola
Va la macro,
Para esto utilizaré una columna auxiliar "AH" para verificar que fila fueron copiadas.
Sub copiar()
'
'Adriel - Yurimaguas, Perú
'
u = Range("L" & Rows.Count).End(xlUp).Row
u2 = Range("A" & Rows.Count).End(xlUp).Row + 1
'
If u2 < 3 Then u2 = 3
'
n = False
For i = 2 To u
If LCase(Cells(i, "AH")) <> "copiado" Then
n = True
Range("W2:AG2").Copy Range("A" & u2)
Cells(i, "AH") = "Copiado"
u2 = u2 + 1
End If
Next i
'
If n = False Then
MsgBox "no hay filas a copiar"
Else
MsgBox "fin"
End If
End Sub
