ListBox içerisinde görünen dolu sütunları yazdırma

[noxious]

Sayın Hocalarım
Ekli dosyada bir arama işlemi var aramadan sonra ListBox içerisinde aradığımız veri ile ilgili süz işlemi yapılıyor
Benim istediğim süz den sonra ListBox üzerindeki görüntüden B, C, D, E, F ve I, J sütunları kesin alınacak
sonra L den AG ye kadar olan sütunlarda ise süz işleminde eğer o sütunlardan hangileri dolu ise 1. satırdaki başlığını alarak yazdır sayfasına aktaracak

bu şekilde değişken veri olduğunda yazdır sayfasına aktarmak mümkün olurmu acaba

Yardımlarınızı bekliyorum.

 

[noxious]

Arkadaşlar yukarıda bahsettiğim konu ile ilgili forum içerisinde aratma yaptım ama istediğim sonuçları bulamadım en azından ListBox içerisindeki süzden sonra kalan sütunları nasıl kopyalarız ilgili bir sayfa varsa bildirebilirmisiniz

 

[noxious]

Help Me !!!!!!

Bu konuda yorum veya yardım edecek yokmu en azından forum içerisinde benzer bir başlık varsa link yolu gösterebilirmisiniz.

Ben aramalarda bulamadım.

Help Me !!!!!!

 

[noxious]

Sorumuzu şöyle değiştirsek

ListBox üzerinde süzme yaptığımızda kalan verilerden birine çift tıkladığımız yazdır sayfasına A2 hücresinden itibaren aktarsa ve bir sonraki başka veriye çift tıkladığımızda yazdır sayfasındaki son verinin altına kayıt yapsa

 

[Orion1]

Listbox2'ye çift tıklayın.
Yazdır sayfasına akatarıcaktır.

Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Long, sat As Long
If ListBox2.ListCount < 1 Then Exit Sub
sat = Sheets("Yazdır").Cells(65536, "A").End(xlUp).Row + 1
If sat >= 65536 Then
    MsgBox "Sayfa Doldu.Başka Aktarma Yapamazsınız..!!", vbCritical, "DİKKAT"
    Exit Sub
End If
For i = 1 To 49
    Sheets("Yazdır").Cells(sat, i).Value = ListBox2.Column(i - 1)
Next i
End Sub

 

[noxious]

Hocam ellerine sağlık istediğim kodlar ancak ufak bir sorun var ListBox'a tıkladığımızda aktarılan verilerden A sütununda bulunan sıra numaraları Yazdır sayfasında A sütununa gelirken B sütunu ve sonrasındaki veriler F sütunundan itibaren aktarılıyor.

 

[noxious]

Hocam 6. msj da bahsettiğim sorunu istemediğim sütunları gizleme yöntemi ile çözdüm. Tekrar çok teşekkürler. Elleriniz dert görmesin

 

[Orion1]

Hocam 6. msj da bahsettiğim sorunu istemediğim sütunları gizleme yöntemi ile çözdüm. Tekrar çok teşekkürler. Elleriniz dert görmesin

Sorunu çözdüğünüze sevindim.
İyi çalışmalar.