Forums Últimos mensajes - Powered by IBM
 

Añadir un parametro.

18/08/2006 - 19:51 por Masters | Informe spam
Teniendo el siguiente macro:

Sub inserta()
Dim celda As Range
For Each celda In Range("B:B")
If celda.Value = "" Then Exit Sub
If celda.Value > celda.Row Then celda.EntireRow.Insert
Next celda
End Sub

Necesito sacar el número de celda, para hacer una copia de A1 a An
donde la n es el valor de celda en que está en proceso.
 

Preguntas similares