if yada case kullanımı

[aliakgul]

selam arkadaşlar,

GİRİÞ adlı sayfada bir düğme oluşturdum ve ona tanımlayacağım görev şu olacak:
GİRİÞ!A1=1 ise main ve sayfa 1 yazdırılacak.(print yani.. copy=1)
GİRİÞ!A1=2 ise main , sayfa 1 ve sayfa 2 yazdırılacak
GİRİÞ!A1=3 ise main , sayfa 1 ,sayfa 2 ve sayfa 3 yazdırılacak.
GİRİÞ!A1=4 ise main , sayfa 1 ,sayfa 2 , sayfa 3 ve sayfa 4 yazdırılacak.
GİRİÞ!A1=0 ise mesaj:"yazılacak belge yok"
(arkadaşlar; giriş,main,sayfa 1,sayfa 2,sayfa 3, sayfa 4: : bunlar çalışma sayfalarım...)

Herkese teşekkür ederim........
:kafa:

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:c419410cbd]Sub yazdir()
sayfa = Array("main", "Sayfa1", "Sayfa2", "Sayfa3", "Sayfa4")
If [giriş!a1] = 0 Then
MsgBox "YAZDIRILACAK SAYFA YOK"
Exit Sub
End If
For a = 0 To [giriş!a1]
Sheets(sayfa(a)).PrintOut
Next
End Sub
[/vb:1:c419410cbd]

 

[aliakgul]

Çok teşekkür ederim, işe yaradı.... :hey:

 

[mciritci]

Merhaba arkadaşlar Benim Sorunum Visual Basicte if komutunu kullanamıyorum bana if komutunun genel tipini yazarsanız sevinirim.

 

[Haluk]

Merhaba arkadaşlar Benim Sorunum Visual Basicte if komutunu kullanamıyorum bana if komutunun genel tipini yazarsanız sevinirim.

http://www.excel.web.tr/viewtopic.php?t=3934

 

[mciritci]

Haluk Sağol bu işime yarar herhalde..