• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Listbox'ta listeleme

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.:cool:
 
Dosyanız ektedir.:cool:
Kod:
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
 

Ekli dosyalar

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