controle range cellen

[koonswood]

Graag zou ik willen weten welke instructie ik best gebruik om een controle te doen van een reeks cellen of deze ingevuld zijn bv a5 tot a10 en de naast liggende cel b5tot b10
indien en cel is ingevuld en de naast liggende cel niet moet ik een boodschap laten verschijnen met msgbox zodat de gebruiker zijn fout kan herstellen in het formulier .
Alvast bedankt

 

[pasan]

zoiets?

Sub test()
For Each c In Range("A1:A10")
If c <> "" And c.Offset(, 1) = "" Then MsgBox "De cel (" & c.Offset(, 1).Address & ") is leeg"
Next
End Sub

 

[Warme bakkertje]

Of alle resultaten in 1 MsgBox ipv voor elke niet ingevulde regel.

Sub test()

    For Each c In Range("A5:A10").SpecialCells(2)
        If WorksheetFunction.CountA(c.Resize(, 2)) <> 2 Then msg = msg & c.Row & vbLf
    Next
    If msg <> vbNullString Then MsgBox "Er ontbreken gegevens op volgende regel(s)" & vbLf & vbLf & msg

End Sub

 

[koonswood]

De voorgestelde oplossing werken zoals ik wil en moet ik ook nog de eerste cellen testen of deze wel ingevuld zijn .Zoek wel even zelf uit .Bedankt voor de oplossingen .