Wisselende Range

[youdeni]

Beste Mensen,

Ik heb een bestandje waarin in kolom A t/m D periodiek nieuwe gegevens woeden ingevuld.
In kolom E en F staat een formule.
Ik wil nu doormiddel van een macro dat als de kolommen A t/m D gevuld zijn automatisch de formules worden doorgetrokken.
Ik heb tot nu toe onderstaande gefabriceerd. Maar dit werkt dus niet. Ik heb een bestand bijgevoegd voor de duidelijkheid.
In de geel gearceerde cellen moet dus de formule van kolom E verder ingevuld worden en in de rood gearceerde cellen moet dus de formule van kolom FBekijk bijlage Forum.xlsx verder ingevuld worden

Sub opvullen3()
Dim rg As Range
'Loop instellen om te zoeken naar de eerste lege cellen
Do While ActiveCell.Value <> Empty
   ActiveCell.Offset(1, 0).Select
Loop
'De cel naast de active cel selecteren en alle cellen erboven
ActiveCell.Offset(-1, 1).Select
Range(Selection, Selection.End(xlUp)).Select
For Each cl In Range
If cl.Value = "" Then cl.FillDown
End Sub

 

[pasan]

waarom gebruik je geen Tabel ?

 

[youdeni]

???

 

[pasan]

Kijk hier eens
http://www.jkp-ads.com/articles/Excel2007TablesNL.asp

 

[pasan]

Terug komend op jou vraag, probeer onderstaand eens

Sub vulKolom()
Dim endRow As Long
endRow = Cells(Rows.Count, 1).End(xlUp).Row
  With Sheets("invul")
   .Range("E2:F" & endRow).FillDown
  End With
End Sub

iets korter nog

Sub vulKolom()
Dim endRow As Long
endRow = Cells(Rows.Count, 1).End(xlUp).Row

Sheets("invul").Range("E2:F" & endRow).FillDown

End Sub

 

[youdeni]

Super Pasan

Werkt als een zonnetje!!!