code uitvoeren of niet

[Sjaakz]

Dames/heren

We hebben een aantal klanten waarbij we de opdrachtbon met de factuur meegestuurd moet worden. Hier heb ik vd week al een hele mooie code voor ontvangen. Maar nu wil ik de code verder uitwerken.

In principe wil ik de bon dus NIET uitprinten (85% vd klanten) tenzij het voor klant Piet is en dan gebruik ik deze code

 Sub pdf_printen()     
    If Range("c4").Value = "piet" Then
    CreateObject("shell.application").Namespace("P:\werken\bonnen").Items.Item(Range("i4").Value & ".pdf").InvokeVerb "print"
    End If

Dit gaat goed
Hierbij staat in c4 de klant naam en in i4 het dossiernr.


Maar nu heb ik ook een hele rits met nagenoeg identieke namen die ik ook geprint wil hebben.
als voorbeeld heten ze joop1 joop4 joop6 joop8 enz.

Ik heb het geprobeerd met een * maar dat lukt niet zie onderstaand

 If Range("c4").Value = "joop*" Then 
enz enz

Hopende op een snel en eenvoudig antwoord.

Groet Sjaakz

 

[edmoor]

Zo misschien?
If Left(Range("C4").Value, 4) = "joop" Then

 

[Sjaakz]

edmoor bedankt

Hoi Edmoor bedankt voor je snelle antwoord het werkt perfect........... :thumb::thumb::thumb::thumb::thumb::thumb::thumb::thumb:

Geweldig dat internet......:thumb:

Groet Sjaakz