Laatste cel met waarde

[Moche56]

Met onderstaande code vind ik de laatste waarde in een kolom.

Range("P" & CStr(Rows.Count)).End(xlUp).Select

Het probleem is dat de kolom is gevuld met een formule die een waarde weergeeft of niet.

Formule:

=ALS(NU()-E17231<28;"A";"")

Ik wil het laatste cel adres hebben met een waarde niet met de formule.
De "rijwaarde" van de locatie wil ik graag als getal gebruiken. Zoals?

 Lrij = Range("P" & CStr(Rows.Count)).End(xlUp).Select

Kan dat?

Alvast bedankt
Moché

 

[HSV]

Zo zou het kunnen.

Dim cl As Range, Lrij As Long
Lrij = 1
For Each cl In Columns(16).SpecialCells(-4123)
  If cl <> vbNullString Then Lrij = cl.Row
Next cl
 msgbox lrij

of:

Dim cl As Range, Lrij As Long
For Each cl In Columns(16).SpecialCells(-4123)
  If cl <> vbNullString Then Lrij = Lrij + 1
Next cl
MsgBox Lrij

 

[Moche56]

Harry,

Super. Precies wat ik nodig had.
Hartelijk dank

Moché