Jump to content

Macro rellenar columna con el primer dato que encuentra


Recommended Posts

Hola, buenos días. 
Estoy con una macro para buscar el primer valor con dato en una columna (hasta ahí bien), el caso es que quiero que una vez que lo encuentre me rellene toda la columna con ese dato. Con lo que hice solo consigo que se copia una vez justo debajo, no encuentro el modo de que rellene la columna completa. Le podéis echar un vistazo?
Mil gracias de antemano.

ej_rellenar.xlsm

Link to comment
Share on other sites

Lo terminé sacando así, por si lo necesitáis un día:

Sub Rellenar()

With Worksheets("Hoja1")

Dim CurrValue As String

Range("B1").End(xlDown).Select

CurrValue = ActiveCell.Value

           For i = 2 To .UsedRange.Rows(.UsedRange.Rows.Count).Row

               
            Cells(i, "B").Value = CurrValue
            
 
           Next

End With

End Sub

 

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

Privacy Policy