ComboBox İle Sayfa Seç Ön İzle ve Yazdır

[ormann]

İyi akşamlar ekteki örnek dosyada da ana sayfa üzerinde 1 adet ComboBox ,1 adet ön izle butonu ve 1 adet yazdır butonu var.Benim yapmak istediğim makro ile ComboBox1'den 1,2,3,4,5,6 sayfalarını seçip ,o sayfayı ön izleme ve yazdırma yaptırabilirmiyiz ?.

 

[Korhan Ayhan]

Merhaba,

"ANA SAYFA" isimli sayfanızın kod bölümüne aşağıdaki kodu uygulayıp deneyiniz.

ComboBox nesnesinin yazı karakterini siyah renk yapmışsınız. Farklı bir renge ayarlayın.

Private Sub ComboBox1_DropButtonClick()
    ReDim Dizi(1 To 1)
    For X = 2 To Sheets.Count
        ReDim Preserve Dizi(1 To X - 1)
        Dizi(X - 1) = X - 1
    Next
    ComboBox1.List = Dizi
End Sub
 
Private Sub CommandButton1_Click()
    If Me.ComboBox1 <> "" Then Sheets(ComboBox1.Text).PrintPreview
End Sub
 
Private Sub CommandButton2_Click()
    If Me.ComboBox1 <> "" Then Sheets(ComboBox1.Text).PrintOut
End Sub

 

[ormann]

Sayın Korhan bey çok teşekkür ederim.Combobox1 sayfa adlarını ana sayfada a1:a15 hücreleri arasından alması için nasıl kod yapabiliriz?

 

[ormann]

Sayın Korhan bey çok teşekkür ederim.Combobox1 sayfa adlarını ana sayfada a1:a15 hücreleri arasından alması için nasıl kod yapabiliriz?

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Private Sub ComboBox1_DropButtonClick()
    ComboBox1.ListFillRange = "A1:A15"
End Sub