Waarde cel kopieren naar boven tot volgende gevulde cel en dan weer verder!

[Macras]

Hallo allemaal,

Ik wil graag "Waarde cel kopieren naar boven tot volgende gevulde cel en dan weer verder".

Ik heb tot nu toe onderstaande macro en deze vult het netjes naar beneden. Ik wil het graag naar boven gevuld hebben.

Sub Macro1()
Application.ScreenUpdating = False
For Each cl In Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
If cl.Value = "" Then cl.FillUp
Next
Application.ScreenUpdating = True
End Sub

 

[Elsendoorn2134]

Macras,

Even een kijkje in de helpfunctie "FillUp" was genoeg om vast te stellen dat er ook nog een "FillDown" bestaat.
Probeer deze eens.

Veel Succes.

 

[HSV]

Een snellere methode.

Sub hsv()
With Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
On Error Resume Next
   .SpecialCells(4) = "=r[1]c"
   .Value = .Value
 End With
End Sub

 

[Macras]

Bedankt HSV! Het is gelukt. Duivel? Denk eerder een Engel............

 

[Macras]

Nog bedankt voor je moeite Elsendoorn. Groet!