Como crear una macro para copiar y pegar con condición
Se tiene una plantilla con 3 campos (empresa - local - copiar), el ultimo campo me dice el numero de veces que vamos a copiar la fila, ejemplo, tengo 3 campos:
Bancolombia - centro - 3
avvillas - centro - 3
El resultado seria el siguiente:
Bancolombia - centro - 3
Bancolombia - centro - 3
Bancolombia - centro - 3
avvillas - centro - 3
avvillas - centro - 3
avvillas - centro - 3
Lo que necesito es hacer este proceso pero con 1000 filas.
2 Respuestas
Respuesta de Tor Cheer
1
Intente con esta macro, en este ejemplo copia de la columna H a la columna R. Cualquier cosa comenta.
Sub copiarNveces()
ufh = Range("H" & Rows.Count).End(xlUp).Row
For i = 1 To ufh
Ncopia = Cells(i, 10).Value
ufr = Range("R" & Rows.Count).End(xlUp).Row + 1
For j = 1 To Ncopia
dato1 = Cells(i, 8).Value
dato2 = Cells(i, 9).Value
dato3 = Cells(i, 10).Value
Cells(ufr, 18).Value = dato1
Cells(ufr, 19).Value = dato2
Cells(ufr, 20).Value = dato3
ufr = ufr + 1
Next j
Next i
End Sub
Respuesta de Dante Amor
1
Aquí otra macro para ti a considerar:
Sub CopiarDatos()
Dim i As Long
For i = 2 To Range("A" & Rows.Count).End(3).Row
Range("E" & Rows.Count).End(3)(2).Resize(Cells(i, "C"), 3).Value = Range("A" & i).Resize(1, 3).Value
Next
End SubTus datos en las columnas A, B y C, los resultados en las columnas E, F y G:
