range ingeven in vba structuur

[Peer44]

Beste VBA Experts,

onderstaande code doet ongeveer wat ik wil maar bij mij mag die pas beginnen in b5

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("invulblad").Select
Dim i, LastRow
LastRow = Range("B" & Rows.Count).End(xlUp).Row
For i = 1 To LastRow
If Cells(i, "B").Value <> "" And Cells(i, "D").Value = "" Then
Cancel = True
MsgBox Cells(i, "D").Address(0, 0) & " Geef ordernummer in. ", _
vbCritical, "Ordernr. ontbreekt"
Cells(i, "D").Select
Exit For

End If
Next
End Sub

nu wordt de hele kolom B beoordeeld maar hoeft alleen maar te kijken in range "b5:b43" dit bereik heb ik overigs ook benoemd ïnvulbladKlanten"
Kolom D zelfde verhaal range = "D543" named range "InvulbladOrdernrs"

de bedoeling is dat voordat de werkmap gesaved wordt gecontroleerd wordt of op iedere regel het ordernummer is ingegeven, zoniet moet dit alsnog gebeuren.

graag wil ik bovenstaande code zo aanpassen dat die alleen maar kijkt binnen b5:b43

alvast bedankt!

 

[OctaFish]

Waarom laat je dan i op 1 beginnen? Die moet dan naar 5.

 

[Peer44]

Weer iets geleerd, bedankt!