Code aanpassen

[Atwist]

Hallo

Hier op het forum heb ik van SjonR deze code gekregen

ListBox2.List = Sheets("Sheet2").Cells(Sheets("Sheet2").Range("C" & Rows.Count).End(xlUp).Row - 4, 1).Resize(5, 7).Value

Deze kijkt geeft de laatste 5 boekingen weer in ListBox2.
Maar als de cellen leeg zijn dan loopt het uit op een error (fout 1004)
Hoe kan ik de regel aanpassen zodat ik deze error niet meer krijg

Graag jullie hulp

 

[edmoor]

Op de regel er voor;

On Error Resume Next

Op de regel er na:

On Error Goto 0

 

[cow18]

of maken dat je niet onder de 1 gaat

With Sheets("Sheet2")
ListBox2.List = .Cells(Application.Max(1, .Range("C" & Rows.Count).End(xlUp).Row - 4), 1).Resize(5, 7).Value
End With

 

[edmoor]

Da's veel netter :thumb:

 

[Atwist]

of maken dat je niet onder de 1 gaat

With Sheets("Sheet2")
ListBox2.List = .Cells(Application.Max(1, .Range("C" & Rows.Count).End(xlUp).Row - 4), 1).Resize(5, 7).Value
End With

Hallo Cow18
Heel erg veel dank voor deze oplossing

@ Ed ook bedankt.