MSGbox

[jan excel]

Beste Excel Experts,

In werkblad worden gemeten waardes ingevoerd, echter als er een waarde lager dan 300 wordt ingevoerd, zou er een msgbox dienen te verschijnen met de tekst, ""deze gemeten waarde is buiten SPEC, onderneem actie volgens procedure" in deze Msgbox dient dan een keuze JA/Nee gemaakt worden bij de vraag is het probleem verholpen Ja /Nee Bij Ja mag de msgbox verdwijnen en bij Nee dient deze zichtbaar te blijven.

Er zijn twee bereiken waar deze waardes worden ingevoerd namelijk B18:U33 en B47:U62.

Dus als in cel H22 de waarde 290 wordt genoteerd, dient de msgbox te verschijnen.

Bvb.
Jan

 

[HSV]

Kun je hiermee uit de voeten Jan.

Private Sub Worksheet_Change(ByVal Target As Range)
With Application
   .EnableEvents = False
If Not Intersect(Target, Range("B18:U33,B47:U62")) Is Nothing And Target.Value < 300 Then
  If MsgBox("deze gemeten waarde is buiten SPEC, onderneem actie volgens procedure ", _
vbCritical + vbYesNo, "Let op!") = vbNo Then
     .Undo
     .Goto Target
       End If
     End If
   .EnableEvents = True
  End With
End Sub