Excel melding bij een lege cel in kolom

[ivoexcel]

Hallo allemaal,

Ik ben bezig met een bestand waarin in met behulp van een macro een melding wil krijgen als kolom x een lege cel bevat.

De volgende code gaat naar de eerste lege cel maar dat hoeft alleen als er in de tabel een cel leeg is (dus niet naar de eerste lege onder de tabel).

Sub Macro2()
    On Error Resume Next
    Dim xCell As Range
    For Each xCell In ActiveSheet.Columns(2).Cells
        If Len(xCell) = 0 Then
            MsgBox "Vul een adres in."
            xCell.Select
            Exit For
        End If
    Next
End Sub

in de bijlage een voorbeeld. In dit voorbeeld moet er geen melding komen want alle cellen in kolom B zijn gevuld.

 

[Haije]

voldoet dit?

Sub Macro2()
    On Error Resume Next
    Dim xCell As Range
    For Each xCell In ActiveSheet.Columns(2).Cells
        If Len(xCell) = 0 [COLOR="#FF0000"]And xCell.Offset(, -1) <> "" [/COLOR]Then
            MsgBox "Vul een adres in."
            xCell.Select
            Exit For
        End If
    Next
End Sub

 

[SjonR]

zoiets?

Sub SjonR()
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
    If Cells(i, 2) = "" Then
        MsgBox "Cel " & Replace(Cells(i, 2).Address, "$", "") & " moet een adres bevatten!"
        Exit For
    End If
Next
End Sub

 

[ivoexcel]

Yes top! Beide volstaan!