In mijn bestand komt er een pop-up scherm als er in een cel een cijfer hoger is dan 750.
Maar nu zou ik mijn pop-up scherm maar 1 keer willen laten verschijnen, als ik op OK duw.
Want nu als ik in verschillende cellen cijfers veranderd komt er altijd dezelfde pop-up.

Kan je dat aanpassen? Dit is de code die ik gebruik:
Private Sub Worksheet_Change(ByVal Target As Range)
    Const Storten = 750
    Select Case Target.Row
        Case 7 To 37:      If Range("R7").Value >= Storten Then MsgBox "STORTEN", vbInformation + vbOKOnly
        Case 43 To 70:     If Range("R43").Value >= Storten Then MsgBox "STORTEN", vbInformation + vbOKOnly
        Case 77 To 109:    If Range("R79").Value >= Storten Then MsgBox "STORTEN", vbInformation + vbOKOnly
        Case 113 To 144:   If Range("R115").Value >= Storten Then MsgBox "STORTEN", vbInformation + vbOKOnly
        Case 149 To 181:   If Range("R151").Value >= Storten Then MsgBox "STORTEN", vbInformation + vbOKOnly
        Case 185 To 216:   If Range("R187").Value >= Storten Then MsgBox "STORTEN", vbInformation + vbOKOnly
        Case 221 To 253:   If Range("R223").Value >= Storten Then MsgBox "STORTEN", vbInformation + vbOKOnly
        Case 257 To 289:   If Range("R259").Value >= Storten Then MsgBox "STORTEN", vbInformation + vbOKOnly
        Case 293 To 324:   If Range("R296").Value >= Storten Then MsgBox "STORTEN", vbInformation + vbOKOnly
        Case 329 To 361:   If Range("R331").Value >= Storten Then MsgBox "STORTEN", vbInformation + vbOKOnly
        Case 365 To 396:   If Range("R367").Value >= Storten Then MsgBox "STORTEN", vbInformation + vbOKOnly
        Case 403 To 433:   If Range("R404").Value >= Storten Then MsgBox "STORTEN", vbInformation + vbOKOnly
    End Select
End Sub



Dit klopt idd dat het gaat over ontvangsten

In bijlage heb ik een andere toegevoegd

@softaid

Ik praat nu over de cellen van de maand juli
Als je in één van de cellen B223 (cash) iets invoert, wordt dit samen geteld in cel R223 als dit hoger ligt dan 750 krijg ik een pop-up en daar staat een knop OK in (zie bijlage foto)

Sorry, niet goed gelezen .

Als je enkel een waarschuwing wilt voor het totaal voor een bepaalde periode (die wordt samengeteld in cel R223)
dan kan je toch beter gewoon die cel laten controleren door een Worksheet_Change-event en enkel naar die cel R223 kijken om een Berichtvenster te tonen, niet?
If Range("R223").Value > 750 Then MsgBox "STORTEN", vbInformation + vbOKOnlyIndien je niet reageert door te storten, en/of dus ook R223 niet aan te passen, dan krijg je volgende aanpassing die je ingeeft de waarschuwing opnieuw, anders niet...
Als je de waarschuwing negeert, en je ze maar eenmalig ziet, welk nut heeft ze dan?

Eénmaal opgeslagen en heb de volgende dag nog niet gestort, dan wil ik wel de pop up terug zien.

Je kan je macro mogelijk nog zo aanpassen dat de melding maar 1 x per dag getoond wordt, door de datum een rol te laten spelen.

Ik denk maar hardop mee, ik ben geen Excel specialist. Ik probeer enkel logisch te denken.

SoftAid              

@softaid

Heb uw code eens getest maar krijg steeds een foutmelding compileerfout: ongeldig buiten procedure.
Ik negeer de melding niet, maar is voor mij gewoon een herinnering dat er teveel cash is en dat ik moet gaan storten. Is gewoon een hulpmiddel voor mij. Merci voor mee te denken ;-)

@pitufo heb u code ook eens getest maar alles blijft ook hetzelfde.

@pitufo: heb het nog eens getest en ik zie echt geen verschil. Ik zie éénmaal als ik aan de 750€ kom een pop-up en als ik dan op OK klik is het weg, maar als ik in een andere cel een cijfer invoer en op enter duw, krijg ik terug de pop-up en de bedoeling is dat het maar 1 keer krijg.
Zet u eens je test.xlsm in bijlage, dan kijk eens of het bij u wel lukt.

idd, bij u lukt het wel.  Ga eens kijken waar het probleem ligt.
Hou je op de hoogte.

Heb het gevonden, mijn oude code stond ook nog in een andere tabblad (blanco) en nu werkt wel.

Thanks @pitufo en ook softaid voor het meedenken ;-)