Userformda istediğim sayfaların seçilmesi

[serdarca]

Merabalar hayırlı günler olsun öncelikle. Ekte göndermiş olduğum dosyada yazdır düğmesine tıkladığımızda açılan userformda combobox1 de benim belirlediğim sayfalar yani veri1, veri2 ve veri3 isimli sayfaların çıkmasını istiyorum. Yardımcı olursanız sevinirim. Allah kolaylık versin

 

[hamitcan]

Kodu aşağıdaki şekilde değiştirin...

Sub AddSh()
On Error Resume Next
Dim oSh As Object
UserForm1.ComboBox1.Clear
For Each oSh In ThisWorkbook.Sheets
If oSh.Name <> "Sayfa1" And oSh.Name <> "VERİ4" Then
UserForm1.ComboBox1.AddItem oSh.Name
End If
Next
End Sub