Laatste cel met waarde

Status
Niet open voor verdere reacties.

Moche56

Gebruiker
Lid geworden
3 aug 2013
Berichten
58
Met onderstaande code vind ik de laatste waarde in een kolom.

Code:
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:
Code:
=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?

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

Kan dat?

Alvast bedankt
Moché
 
Zo zou het kunnen.
Code:
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:
Code:
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
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan