End(xlup)

[Oude leerling]

Hoe krijg ik gerealiseerd dat End(xlup) de formules overslaat welke in de betreffende kolom staan en alleen de waarde ziet , een getal.

 

[huijb]

Visual Basic is iets anders dan Visual Basic for Applications, VBA is programmeren binnen Office applicaties. Verplaatst naar juiste sectie.

 

[HSV]

Ik neem aan dat er onderaan cellen zijn die formules bevatten, maar nog geen uitkomst hebben.

Sub HSV()
Dim cl As Range
 For Each cl In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
     If cl > 0 And IsNumeric(cl) Then
       cl.EntireRow.Select
     End If
   Next
End Sub

 

[Oude leerling]

Harry,
De oplossing is complexer als ik vermoede.Het werkt echter wel.
Bedankt,
Groetjes Jaap

 

[HSV]

Graag gedaan Jaap.

Wil je de vraag nog als opgelost zetten (in je eerste post)?
B.v.d. en succes.