combobox la seçilen sayfanın yazıdırılması.

[hikmet]

merhaba sn.hocalarım ve arkadaşlarım;

düzenlediğim dosya şiştiği için zip olarak bile gelmeyecek hale geldi o nedenle sorumu kodları vererek soracağım özür dilerim.

Private Sub ComboBox1_Change()
On Error Resume Next
Me.ListBox1.RowSource = ""
personel = Me.ComboBox1.Value
Me.ListBox1.RowSource = personel & "!A1:r65536"
End Sub




Private Sub UserForm_Initialize()
On Error Resume Next
Dim i As Integer
For i = 1 To Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next
Me.ComboBox1.ListIndex = 0

With ListBox1
.ColumnCount = 8
.ColumnWidths = "30;200;250;150;100;100;160;80"
End With
End Sub


yukarıdaki kodlarla sayfalardaki isimleri combobox'tan seçip sayfayı listbox'da görüntülüyorum.

bundan sonrasında iki sorunum var. birincisi sayfa ismi örneğin "ALİ VELİ" olduğunda sayfa isminde iki kelimenin arasında boşluk olduğundan listbox ta birşey göstermiyor sayfa ismini "ALİVELİ" olarak boşluksuz yaptığımda gösteriyor.

ikincisi listbox'a aldırdığım bu verileri nasıl print yapabilirim. bilgilerinizi benimle paylaşırsanız çok sevinirim. ilginiz için şimdiden teşekkür ederim.

 

[Levent Menteşoğlu]

"ALİ VELİ" yerine "ALİ_VELİ" olarak alt çizgi kullanarak isimlendirin. Rowsource özeliğinde sayfa adında boşluk olmaması gerekiyor. Listboxtaki verileride bir sayfaya aktarıp o sayfada yazdırabilirsiniz. Aşağıdaki linki inceleyin.

http://www.excel.web.tr/showthread.php?t=10113&highlight=listbox1

 

[hikmet]

sn.hocam ilginiz için teşekkür ederim. yazıcı çıktısı sorunu hallolmuş oldu sayenizde.
sorumun birinci kısmı için biraz uğraşıcam çünkü sayfa isimleri personel isimlerinden geliyor ve her personelin sayfasına verileri atarken bu isimleri referans alıyor.bu durumda raporlama yaparken sertifika filan düzenlerken sorun oluyor. bu durumda başka bir yöntem bulmam gerek.