vba - waarde in een cel invullen

[SandyH]

Hallo,

Ik ben pas begonnen met het leren van programmeren in excel, en heb hulp nodig voor volgende probleem

ik heb een bestand met 4 kolommen, op de eerste rij van elk van de 4 kolommen is iets ingevuld (gewoon platte tekst)
maar op de rijen eronder is er niet voor alle cellen iets ingevuld, ik wil dit graag door een macro laten invullen, en de waarde die ingevuld moet worden in een lege cel is iedere keer dezelfde waarde als de cel erboven.

het bereik start altijd op dezelfde plaats en is begrensd door een cel met '1' in kolom A (dus het aantal rijen kan variëren)

Ik heb zitten prutsen met een loop, do untill en zo, maar het wil niet lukken ...

kan iemand me op weg zetten ?

bedankt
Sandy

 

[Joske2000]

Voorbeeldje maakt veel duidelijk.

 

[mvw64]

Misschien kan je er zo iets mee ?

 

[SandyH]

ja ja jaaaa! dat werkt

ik heb uw stukje code in mijn macro geplakt en dit is wat ik wou !

bedankt voor je hulp !

groetjes
Sandy

 

[Warme bakkertje]

Nog eentje.

Sub Waarden_Doorvoeren()
    With Sheets("Blad1").Range("A1:D" & _
                Sheets("Blad1").Cells(Rows.Count, 1).End(xlUp).Row)
    Set cleanrange = .SpecialCells(xlCellTypeConstants, xlTextValues)
    For Each cell In cleanrange
        If cell.Value = "" Then cell.ClearContents
    Next cell
        .SpecialCells(4).Formula = "=R[-1]C"
        .Value = .Value
    End With
End Sub

 

[HSV]

Of:

Sub hsv()
 With Sheets("Blad1").UsedRange
   .SpecialCells(4) = "=R[-1]C"
   .Value = .Value
   End With
End Sub