meer dan 1 of

[brandernl]

Kan de code korter?

if target.column = 3 or target.column = 35 or  target.column = 67 or  target.column = 99 then
doe iets

In VB kan:

if target.column in array(3, 35, 67, 99) then
doe iets

maar VBA accepteert dat niet. De help helpt me niet verder

 

[snb]

Dat kan als er een patroon (reeks) in de getallen zit.

 

[MDN111]

Misschien zoiets ?

If InStr("03*35*67*99", Format(Target.Column, "00")) <> 0 Then

(geldig tot kolom-nummers t/m 99)

Grtz,
MDN111.

 

[edmoor]

Select Case Target.Column
    Case 3, 35, 67, 99
        'Je Code
End Select

 

[brandernl]

De laatste lijkt me goed; kan nu even niet proberen. Morgen antwoord

 

[snb]

if target.column mod 32 = 3

 

[edmoor]

En daar is je patroon.
Mooi gevonden
Nog wel even alles boven de 131 afvangen.

 

[brandernl]

de code werkt goed, dank.

En nu het omgekeerde

if target.column <> 3 or target.column <> 35 or  target.column <> 67 or  target.column <> 99 then
exit sub

 

[snb]

Welke code ?

Als je 'de code' snapt kun je hem ook aan je nieuwe wens aanpassen.

 

[brandernl]

Je hebt gelijk

Select Case Target.Column
Case 3, 35, 67, 99
        'Je Code
case else
exit sub
End Select

 

[snb]

Mij lijkt dit gemakkelijker:

if target.column mod 32 <> 3

 

[brandernl]

ben niet zo bekend met MOD, maar ik zal het onthouden