Macro que repita los datos de una fila dependiendo de un numero de celda
Hola,
Necesito hacer una macro que tome mis datos de la hoja BD y los lleve a mi otra hoja BD2, la particularidad es que necesito que repita según la cantidad de veces que indica la celda de la columna B,
Ejemplo, que lo de mi imagen 1 quede como la imagen 2
1 respuesta
Respuesta de Dante Amor
Te anexo la macro
Sub RepetirDatos()
'Por.Dante Amor
Set h1 = Sheets("BD")
Set h2 = Sheets("BD2")
u1 = h1.Range("B" & Rows.Count).End(xlUp).Row
u2 = h2.Range("B" & Rows.Count).End(xlUp).Row
If u2 < 4 Then u2 = 4
h2.Range("B4:F" & u2).ClearContents
'
For i = 3 To u1
For j = 1 To h1.Cells(i, "B")
h2.Cells(u2, "B") = 1
h1.Range(h1.Cells(i, "C"), h1.Cells(i, "F")).Copy h2.Cells(u2, "C")
u2 = u2 + 1
Next
Next
MsgBox "Repetir datos", vbInformation, "TERMINADO"
End SubSaludos.Dante Amor
No olvides valorar la respuesta.
