Listbox'ta listeleme

[Melanqolia]

Bu programda formdaki butonların kodlarını yazarsanız sevinirim yalnız boş hücrelerin listboxda görünmemesi lazım ona da bi ayar çekerseniz sevinirim:yardim:



Ekli dosyayı görüntüle DOSYA.zip

 

[Orion1]

Sayın Melanqolia;
Konu başlığınız forum kurallarına aykırı idi.
Lütfen yardım,acil yardım gibi başlıklar kullanmayınız.
Konu başlığınız konuya ait ,onu özetleyen şekilde olmalıdır.
Aksi takdirde konunuz forum kuralarına uymayan başlıklar bölümüne taşınır.
Şimdilik başlığı ben değiştirdim.
Kolay gelsin.

 

[Melanqolia]

tmm özür dilerim

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton2_Click()
ActiveSheet.PageSetup.PrintArea = "Sayfa1!B1:D" & Sheets("Sayfa1").Cells(65536, "D").End(xlUp).Row
ActiveSheet.PrintOut
ActiveSheet.PageSetup.PrintArea = ""
End Sub

Private Sub CommandButton3_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 3
ListBox1.ColumnHeads = True
ListBox1.RowSource = "Sayfa1!B2:D" & Sheets("Sayfa1").Cells(65536, "D").End(xlUp).Row
End Sub

 

[Melanqolia]

bunun karşısında yapabileceğim tek şey saygıyla eğilmek...Çok teşekkürler

 

[Orion1]

bunun karşısında yapabileceğim tek şey saygıyla eğilmek...Çok teşekkürler

Estafurullah.Saygılar benden.