Copiar una fila y pegarla N veces según valor celda (y repetir según cantidad de filas)
Nuevamente yo... Tengo en una base 61 registros (lineas) y en cada una de estas hay una celda (en la Columna F) que contiene un número. El tema es que, necesito copiar cada una de las filas y pegarla en una hoja nueva la cantidad de veces que indica la celda en la columna F para ese registro.
Una vez generada esa base, se debe crear un archivo nuevo con la agrupación filtrada de cada uno.
1 Respuesta
H o l a:
Te anexo la macro para la primera parte: "copiar cada una de las filas y pegarla en una hoja nueva la cantidad de veces que indica la celda en la columna F"
Sub CopiarFilas()
'Por.Dante Amor
Set h1 = Sheets("Hoja1") 'Hoja origen con datos
Set h2 = Sheets("Hoja2") 'Hoja destino con el resultado
h2.Cells.Clear
k = 1
For i = 1 To h1.Range("F" & Rows.Count).End(xlUp).Row
If IsNumeric(h1.Cells(i, "F")) And h1.Cells(i, "F") > 0 Then
For j = 1 To h1.Cells(i, "F")
h1.Rows(i).Copy h2.Rows(k)
k = k + 1
Next
End If
Next
MsgBox "Fin"
End SubCambia en la macro "Hoja1" y "Hoja2" por los nombres de tus hojas.
Crea una nueva pregunta para la segunda parte:
"crear un archivo nuevo con la agrupación filtrada de cada uno"
Pero me explicas con ejemplos lo que necesitas, también debes comentar cómo se va a llamar el archivo.
' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
