Duplicar filas

[Antoni]

Hola:

En esta ocasión una mini macro para duplicar cualquier fila las veces que queramos.

Paz y amor.

Duplicar filas.xls

[verzulsan]

Misma cosa, otras palabras.

Sub DuplicarFilas()

   A = ActiveCell.Row

   B = A + InputBox("Nº de filas a duplicar debajo de la seleccionada", "Duplicar filas")

   Rows(A + 1 & ":" & .Insert

   Rows(A).Copy Rows(A & ":" & 

End Sub[/CODE]

Un saludo Maestro.