Lege cellen vullen

[Eggie]

Hallo,

ik heb een tabel waarin in kolom A:F soms lege cellen zitten. Ik zou graag willen dat deze cellen d.m.v. een macro gevuld worden met de waarde van de cel daarboven, dus stel cel A1=10 en cel A2 = 10 en cel A3 = leeg, dan moet daar de waarde komen van de cel daarboven, in dit geval dus 10..

Ik was zelf al een beetje aan t proberen:

For Each cell In Column("A")
If cell.Value Is Empty Then

cell.FormulaR1C1 = "=R[-1]C"

Maar dat werkt dus niet.....

Het is een beetje een vreemde vraag maar ik hoop dat iemand mij hiermee kan helpen...

Alvast bedankt voor de moeite!

Gr. Eggie

 

[Roncancio]

Zo iets:

Sub vullen()
Dim Cel As Range
For Each Cel In Range("A2:F" & ActiveSheet.Cells.SpecialCells(xlLastCell).Row)
    If Cel.Value = "" Then
        Cel.Value = Cells(Cel.End(xlUp).Row, Cel.Column)
    End If
Next
End Sub

Met vriendelijke groet,


Roncancio

 

[Eggie]

Bedankt!!!!

Mvg,

Eggie

 

[barbaar]

Je kan ook in alle cellen de volgende formule plakken:

=ALS(A9="";"";A9)

En dan doortrekken

 

[Roncancio]

Je kan ook in alle cellen de volgende formule plakken:

=ALS(A9="";"";A9)

En dan doortrekken

Dan worden celwaardes toch overschreven?

Met vriendelijke groet,


Roncancio

 

[barbaar]

Dan worden celwaardes toch overschreven?

Met vriendelijke groet,


Roncancio

Ja dat wel, maar als dat niet van belang is, is het een oplossing toch?