Userform , checkbox ve önizleme döngüsü

[Korhan Ayhan]

Selamlar,

Userform üzerinde bulunan 6 adet checkbox ile sayfalarda önizleme yapmak istiyorum. Bu checkboxlardan 5 i sayfaları 6. sı ise tüm sayfaları ifade etmekte ve bu form aktif olduğunda eğer sayfalar boş ise ilgili checkbox pasif duruma geçiyor. Doğal olarakta hangi sayfada veri varsa o sayfanın checkboxı aktif durumda oluyor. Eğer kullanıcı aktif olan checkboxlardan birini seçip önizleme butonuna basarsa sadece o sayfayı önizlemede göstersin yok eğer kullanıcı aktif olanlardan birkaçını seçerse onları önzilemeye alsın. Eğer kullanıcı tümü seçeneğini seçerse form üzerinde aktif olan checkboxlara ait bütün sayfaları önizlemeye alsın.

Ã?rnek dosya ektedir.

 

[Levent Menteşoğlu]

Checkbox6 ya aşağıdaki kodu yazın.

[vb:1:f4586b9d20]Private Sub CheckBox6_Click()
For a = 1 To 5
Controls("checkbox" & a).Value = CheckBox6.Value
Next
End Sub[/vb:1:f4586b9d20]

Commandbuttonada aşağıdaki kodu yazın.

[vb:1:f4586b9d20]Private Sub CommandButton1_Click()
Unload Me
For a = 1 To 5
If Controls("checkbox" & a).Value = True Then Sheets(a).PrintPreview
Next
End Sub
[/vb:1:f4586b9d20]

 

[hikmet]

sn.leventm hocam ve cost control hocam aslına benim de aradağım böyle birşeydi ve nasıl anlatırım diye düşünüyordum. müsaade ederseniz bu dosyayı kullanmak istiyorum aynı zamanda bir sorum da olacak bu önizleme sonrası userforma tekrar dönebilirmiyiz.

 

[Korhan Ayhan]

Sn. leventm,

CommandButton1 için verdiğiniz kod işimi gördü teşekkür ederim. Fakat ufak bir sorun var şöyleki tümünü seçeneğini seçtiğimde form üzerinde aktif olan checkboxlar seçili hale geliyor ve önizleme butonuna tıkladığımda önizleme ekranına geçiyor buraya kadar herşey normal fakat önizleme ekranında ilk olarak sadece 1 sayfa görünüyor sonra kapat dediğimde diğer sayfayı gösteriyor bunu nasıl düzeltebiliriz.

 

[veyselemre]

[vb:1:90717cdba0]Private Sub CheckBox6_Click()
For x = 1 To 5
Controls("checkbox" & x) = CheckBox6
Next
End Sub
Private Sub CommandButton1_Click()
Dim dizi()
For x = 1 To 5
If Controls("checkbox" & x) = True Then
a = a + 1
ReDim Preserve dizi(1 To a)
dizi(a) = Sheets(x).Name
End If
Next
Sheets(dizi).Select
Unload Me
ActiveWindow.SelectedSheets.PrintPreview
End Sub[/vb:1:90717cdba0]

 

[Korhan Ayhan]

Sn. veyselemre,

Yardımlarınız için teşekkür ederim. :arkadas: