Insertar filas de acuerdo a una condición y pegar las filas anteriores en las filas insertadas
Necesito una macro que inserte filas de acuerdo al valor que se encuentre en la columna F, luego de ello que copie la fila anterior.
Datos:
Columnas>>> A B C D E F
Fila 1 >>> a b c d e 2
Fila 2 >>> a b c d e 4
Fila 3 >>> a b c d e 3
Resultado, al ejecutar la Macro:
Fila 1 >>> a b c d e 2
Fila 2 >>> a b c d e 2
Fila 3 >>> a b c d e 4
Fila 4 >>> a b c d e 4
Fila 5 >>> a b c d e 4
Fila 6 >>> a b c d e 4
Fila 7 >>> a b c d e 3
Fila 8 >>> a b c d e 3
Fila 9 >>> a b c d e 3
2 respuestas
Respuesta de Dante Amor
1
Te anexo la macro.
Pon tu información en la "Hoja1", el resultado quedará en la "Hoja2"
Sub Copiar_Filas()
'Por Dante Amor
Set h1 = Sheets("Hoja1") 'hoja origen
Set h2 = Sheets("Hoja2") 'hoja destino
'
j = 2
h2.Cells.ClearContents
For i = 2 To h1.Range("F" & Rows.Count).End(xlUp).Row
If IsNumeric(h1.Cells(i, "F").Value) Then
For k = 1 To h1.Cells(i, "F").Value
h1.Rows(i).Copy h2.Rows(j)
j = j + 1
Next
Else
h1.Rows(i).Copy h2.Rows(j)
j = j + 1
End If
Next
MsgBox "Fin"
End Sub'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda
Respuesta de Programar Excel
1
