MsgBox bij negatieve waarde

[CarloCNO]

Beste,

Ik maak gebruik van een code om een msgbox te laten verschijnen wanneer een cel een negatieve waarde heeft. Het werkt op zich prima alleen wil ik er "iets anders mee"

Voorbeeld (werkelijk bestand - werkwijze is anders):

Ik vul een waarde in via Blad2. Blad1 verwijst naar Blad2 qua waarde. In Blad1 moet de msgbox verschijnen.

Code die ik gebruik:

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
If Target.Value <= -1 Then
MsgBox ("VERPLICHT: vul de reden in!")

End If

End Sub

Wanneer ik handmatig in Blad1 een negatieve waarde invul werkt de formule. Wanneer ik echter vanuit Blad2 naar Blad1 ga (waar de waarde al is "ingevuld" doordat deze verwijst naar Blad2) werkt de formule niet. De msgbox zou dus ook moeten verschijnen wanneer ik na het invullen van de waarde in Blad2, vervolgens klik op Blad1 de msgbox ook moet verschijnen.

Is zoiets dergelijks mogelijk?

Zie bijlage een voorbeeld van de functionaliteit.Bekijk bijlage Test.xlsm

Gr, Carlo

 

[Roncancio]

Bij het selecteren van het 1e werkblad verschijnt de melding.

Private Sub Worksheet_Activate()
If WorksheetFunction.CountIf(Range("A1:A5"), "<0") Then MsgBox ("VERPLICHT: vul de reden in!")
End Sub

Met vriendelijke groet,


Roncancio

 

[CarloCNO]

SUPER! Thanks voor je hulp!