Messagebox bij waarde in cel

[martijnbos]

Beste allemaal,

Zit met de volgende vraag. Wil graag een sheet als volgt controleren.

Heb drie cellen waar gebruiker een waarde kan invoeren. U15, U16 en U17

Als er een waarde staat in U15, kunnen U16 en U17 nooit gevuld zijn.
Als U15 gevuld en iemand wil waarde invoeren in U16 of U17 moet een messagebox verschijnen en moet de ingevulde waarde verwijderd worden

Heb onderstaande code, maar deze werkt helaas niet alleen voor genoemde cellen
Iemand enig wat er fout gaat?

Private Sub Worksheet_Change(ByVal Target As Range)
If [u15] <> "" Then
MsgBox "Je kunt hier geen datum invoeren omdat je al een waarde in veld 'Private Label levering' hebt ingevuld."
Application.Goto [U16]
End If
End Sub

Dank alvast
Martijn

 

[Niels28]

Is dit wat je zoekt?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("u17:u18")) Is Nothing Then
If Range("u15").Value <> "" Then
MsgBox "Je kunt hier geen datum invoeren omdat je al een waarde in veld 'Private Label levering' hebt ingevuld."
Target.Offset(-1, 0).ClearContents
End If
End If
End Sub

PS bereik U17:U18 is bewust omdat het een selectionChange event is. Als je een Change event zou gebruiken en de cel dan wist dan blijf je in een loop hangen.

Niels

 

[zapatr]

Een eenvoudige oplossing met een foutmelding via datavalidatie (zie bijlage).

 

[martijnbos]

helemaal goed. Dank jullie wel

 

[martijnbos]

nog een vraag. Is het mogelijk om check en msgbox alleen te tonen als gebruiker cel U16 wil invullen?

 

[zapatr]

Je kunt een foutbericht en een messagebox best niet combineren.
Als je een resultaat wil zoals je in je laatste bericht hierboven beschrijft, dan moet je een messagebox gebruiken (zie bijlage).