listboxdan sayfaya aktarma??

[udentr2002]

iyi geceler herkese
textboxa veriyi girince listboxa o verilerle ilgili bilgileri listboxa süzüyorum listboxdaki süzülen bilgilerinin hepsini sayfa2' ye nasıl yazdırabilirim??

 

[udentr2002]

doyayı eklemeyi unutmuşum

Dosya ektedir textboxa girilene göre listboxa süzme işlemini yaptıktan sonra aktar butonuna basınca listbox daki süzülen bilgileri sayfa2 ye aktaran kodu nasıl yazabilrim

 

[Levent Menteşoğlu]

Butona aşağıdaki kodu yazın.

Private Sub CommandButton1_Click()
Set s1 = Sheets("sayfa2")
s1.[a3:c65536].ClearContents
sat = ListBox1.ListCount
sut = ListBox1.ColumnCount
s1.Range("a3:" & Cells(sat + 2, sut).Address) = ListBox1.List
End Sub

 

[udentr2002]

çok teşekkürler hocam ilginiz için