Melding msgbox als het woord "Ja" in kolom voorkomt.

Status
Niet open voor verdere reacties.
1

1965Peter

Gebruiker
Lid geworden
20 jun 2016
Berichten
197
Hallo,

ik zoek een vba code:

Als in Tabblad "nieuw" in Range AK6:AK224 het woord "JA" voorkomt, dan dmv msgbox de tekst "Let op" verschijnt. en door op "ok" te drukken deze weer verdwijnt.

Alvast bedankt voor jullie hulp
 
zo?

Code: 
Sub SjonR()
If Application.CountIf(Range("AK6:AK224"), "JA") Then MsgBox "Let op!"
End Sub
 
En wanneer moet deze Msgbox verschijnen? En hoevaak? Want ik neem niet aan dat je bij elke celselectie die boodschap wilt wegklikken...
 
Octafish, dat is een goeie niet over nagedacht, maar behoeft maar 1x.

Code zet ik er zelf tussen een volledige vba
 
Laatst bewerkt:
Sjon, bedankt werkt, alleen wat Octafish al aangaf, de melding behoeft maar 1x voor te komen als zich er een "JA" bevind in de range. (had ik niet bij stil gestaan).
 
En hoe wordt jouw code uitgevoerd dan?
 
Code: 
Public i As Integer
Sub jaCheck() 
If i = 0 Then
If Application.CountIf(Range("AK6:AK224"), "JA") Then MsgBox "Let op!" 
i = i+1
Else
End If
End Sub
 
Sjon, de melding komt maar 1x voor (getest met meerdere "JA"'s ) dus hij werkt prima. Iedereen bedankt weer voor jullie input! Wordt zeer gewaardeerd..
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan