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.
 

Leer las respuestas

#1 Masters
19/08/2006 - 17:55 | Informe spam
Masters ha escrito:

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.



Solo necesito una pequeña respuesta de que si se puede hacer.
Gracias.

Preguntas similares