Robert Smidt
Gebruiker
- Lid geworden
- 26 mei 2009
- Berichten
- 901
Beste Helpmij'ers,
Ik heb een code die prima werkt wanneer deze moet zoeken naar een (deel van een) woord binnen een bepaald bereik. Echter is mijn vraag nu het tegenovergestelde. In mijn voorbeeld moet een tekst verschijnen wanneer binnen een bereik het woord "Kostprijs*" hier in voorkomt. Nu is mijn bedoeling dat de tekst zichtbaar wordt wanneer NIET het woord "Kostprijs*" binnen dit bereik aanwezig is. Ik dacht zelf aan: 'if cell.value NOT like', maar dat werkt niet. Wat kan ik hier in veranderen dat deze wel werkt?
Alvast bedankt.
Robert
Ik heb een code die prima werkt wanneer deze moet zoeken naar een (deel van een) woord binnen een bepaald bereik. Echter is mijn vraag nu het tegenovergestelde. In mijn voorbeeld moet een tekst verschijnen wanneer binnen een bereik het woord "Kostprijs*" hier in voorkomt. Nu is mijn bedoeling dat de tekst zichtbaar wordt wanneer NIET het woord "Kostprijs*" binnen dit bereik aanwezig is. Ik dacht zelf aan: 'if cell.value NOT like', maar dat werkt niet. Wat kan ik hier in veranderen dat deze wel werkt?
Code:
If Not Intersect(Target, Range("F13:F1500")) Is Nothing Then
For Each cell In Range("F" & Target.Row)
If cell.Value Like "Kostprijs*" Then CreateObject("WScript.Shell").Popup "Gebruik deze grootboekrekening niet voor verkopen, 10, "Even geduld a.u.b.", vbCritical
Next
End If
Alvast bedankt.
Robert