In VBA de exelformule OF

[Oude leerling]

Als de cel "H1" is 13 of 26 of 39 dan printopdracht

Ik heb onderstaande als oplossing , maar dan 3x dus 1x met 13
1x met 26
1x met 39
Is er een kortere oplossing??

If Range("H1").Value = 13 Then
Sheets("Grafieken").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else

 

[Haaren101]

A = Range("H1").value/13
if A>=1 and A<=3 then

Ron

 

[Oude leerling]

Ron, bedankt voor je snelle reactie maar het werkt niet.
De bedoeling is dat als er in Cel "H1" 13-26 of 39 staat
een blz. wordt uitgeprint.
Dus niet bij ALLE getallen tussen de 13 en 39

Jaap

 

[Haaren101]

select case Range("H1").value
case 13, 26, 39
Hier jouw code
End select

Zo dan of zo dan:

A = Range("H1").value
if A=13 or A=26 or A=39 then
jouw code
endif

Ron

 

[Oude leerling]

Ron,

Bedankt. Je bent een kei!!
De eerste werkte niet , maar de tweede doet wat ik wilde .
Probleem opgelost.
Groetjes Jaap