ListBox içine filtrelenen bilgileri yazdırma.

[officer08]

UserForm2'de Sayfa1'deki tablodan iki tarih aralığına göre filtreleme yapan ListBox1 isimli alanım var bu alan içine filtrelediğim bilgileri yazdırma komutunu bir türlü beceremedim arkadaşlar . Şimdiden teşekkürler.

Kısaca: ListBox1 içini yazdır komutu lazım

 

[Emir Hüseyin Çoban]

.

Listboxda filtrelemek için kullanılan kodları görmek gerek.
Sorunuzu örnek dosya ile destekleyin.

.

 

[officer08]

Emir Hüseyin Çoban ilgilendiğin için teşekkürler. Dosyayı yükledim, linki aşağıda. Sayfa2 de kayıttan sorgula butonuna basınca UserForm2 açılıyor (iki tarih arası filtreleme tablosu) buna ben 2 adet commandbutton ekleyeceğim bunlar listboxta çıkan sonuçları biri önizleme yapacak (zandedersem printpreview oluyor) diğeride yazdıracak (printout). Herbir düğme için hangi kodları yazmalıyım.

http://s9.dosya.tc/server2/r3yvi4/VERI_FILTRELEME.rar.html

 

[Orion1]

Dosyanız linktedir.

DOSYAYI İNDİR

Private Sub CommandButton2_Click()
Sheets("Yazdir").Range("A2:J" & Rows.Count).ClearContents
If ListBox1.ListCount < 1 Then Exit Sub
Sheets("Yazdir").Range("A2").Resize(ListBox1.ListCount, 10) = ListBox1.List
Me.Hide
Sheets("Yazdir").PageSetup.PrintArea = "Yazdir!A1:J" & ListBox1.ListCount + 1
Sheets("Yazdir").PrintPreview
Me.Show
End Sub

 

[officer08]

Cevabın için saol orion ama olmadı nedense.

Sheets("Yazdir").Range("A2:J" & Rows.Count).ClearContents

Bu kısımda uyarı veriyor.

 

[Orion1]

Cevabın için saol orion ama olmadı nedense.

Sheets("Yazdir").Range("A2:J" & Rows.Count).ClearContents

Bu kısımda uyarı veriyor.

Benim yolladığım dosyayı denemediniz sanırım.
Yazdir isimli bir sayfa eklemeniz lazım.

 

[officer08]

Teşekkürler orion

Orion çok sağol indirdim şimdi çalıştı. Hatta çok sayfa olmasın diye Sayfa1 de "O" sütunundan itibaren başlattım senin oluşturduğun tabloyu kodlamanı ona göre değiştirdim. Ama keşke yeni bir tablo oluşturmadan yapabilseydik bu işi. Sayfayı gizleyince çalışmıyor kodlar bunun bir yolu var mıdır?

 

[Orion1]

Aşağıdaki kodu deneyiniz.
En fazla bu kadar olur.

Sheets("Yazdir").Visible = True
Sheets("Yazdir").Range("A2:J" & Rows.Count).ClearContents
If ListBox1.ListCount < 1 Then GoTo atla
Sheets("Yazdir").Range("A2").Resize(ListBox1.ListCount, 10) = ListBox1.List
Me.Hide
Sheets("Yazdir").PageSetup.PrintArea = "Yazdir!A1:J" & ListBox1.ListCount + 1
Sheets("Yazdir").PrintPreview
atla:
Sheets("Yazdir").Visible = False
Me.Show

 

[officer08]

UserForm2 içine eskisinin yerine yapıştırdım bu kodu ancak
Sheets("Yazdir").Visible = True
kısmında uyarı verdi acaba ben mi bir yerde yanlış yaptım.

 

[Orion1]

UserForm2 içine eskisinin yerine yapıştırdım bu kodu ancak
Sheets("Yazdir").Visible = True
kısmında uyarı verdi acaba ben mi bir yerde yanlış yaptım.

Dosya aşağıdaki linktedir.

DOSYAYI İNDİR
.