• DİKKAT

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

listboxdan sayfaya aktarma??

udentr2002

Altın Üye
Katılım
5 Kasım 2006
Mesajlar
1,503
Excel Vers. ve Dili
iş yerinde Office 365
evde Office 365
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??
 
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
 
Butona aşağıdaki kodu yazın.

Kod:
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
 
çok teşekkürler hocam ilginiz için
 
Geri
Üst