Cellen selecteren met macro

[BJV]

Hallo,

ik probeer in vba voor elkaar te krijgen dat cellen L6:Lx gelesecteerd worden. De voorwaarde die geldt voor x is dat hij doorgaat voor alle cellen in A:A die niet leeg zijn. Momenteel loopt dit tot cel A102 (dus selecteer ik L6:L102), maar ik wil dat hij (L6:L103) selecteert op het moment dat ik ook in A103 een waarde zet.

Nu heb ik een formule geschreven die in cel B1 weergeeft tot welke waarde kolom A gevuld is, met uitkomst dus 102. Dit heb ik in onderstaande code verwerkt, welke een foutmelding geeft. Wie kan me helpen?

Dim a As Integer
Sheets("x").Select
Sheets("x").Range("B1").Select
a = ActiveCell.Value

Range("L6:La").Select

 

[HSV]

Omschrijf eens wat je wilt bereiken.
Een range selecteren is in 99,99 % van de gevallen overbodig.

De code is niet zo moeilijk, maar.....

range("L6:L" & cells(rows.count, 1).end(xlup).row).select

 

[BJV]

Werkt als de brandweer! Thanks