Melding zodra bepaalde cel gevuld wordt

[arvie76]

Hoi,

Ik wil dat er een melding komt dat zodra cel B4 gevuld is dat de cellen D4 t/m G4 gevuld moeten worden, dus dat er ook niet verder gegaan kan worden zolang deze cellen gevuld zijn.

Heb iets gevonden maar dit werkt niet echt.

 

[edmoor]

Maak er eens dit van en zet dat in de Worksheet module, niet in de ThisWorkbook:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    For i = 1 To Range("Test").Areas.Count
        If Range("B4").Value <> "" Then
            If Range("Test").Areas(i).Value = "" Then
                Range("Test").Areas(i).Select
                MsgBox "Dit is een verplicht veld"
                Application.EnableEvents = True
                Exit Sub
            End If
        End If
    Next i
    Application.EnableEvents = True
End Sub

 

[arvie76]

Thnx Edmoor

Het werkt !!! :thumb:

Nog wat kleine aanpassingen gedaan met een controle op telling er in.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

[GesRij] = Target.Row
[GesKol] = Target.Column
 
Application.EnableEvents = False
    For i = 1 To Range("Penpost").Areas.Count
        If Range("L6").Value <> "" Then
            If Range("Penpost").Areas(i).Value = "" Then
                Range("Penpost").Areas(i).Select
                MsgBox "Geef aan hoeveel uren je per locatie wilt claimen van de landelijke inzet van " & Sheets("data").Range("M2").Value & " uren.", vbOKOnly, "Verdeling penposturen"
                Application.EnableEvents = True
                Exit Sub
            End If
        End If
    Next i
    Application.EnableEvents = True
If Sheets("data").Range("M2") < 0 Then
MsgBox "Er zijn meer uren geclaimd dan ingezet. Controleer de geclaimde uren."

End If
    
End Sub