ListBox

[sdegirmenci]

Merhaba;
Listbox kutusundan seçip tıkladığım her ismi tıkladıkça örnek a1 satırından başlayarak alt alta atabilitrmi, bu konuda yazılacak kod konusunda yardımcı olabilirseniz sevinirim. İşleriniz kolay gelsin.

 

[İhsan Tank]

örnek dosya yok mu_?

 

[sdegirmenci]

Merhaba;
Örnek dosyam 1 nolu mesajdadır.

 

[Erhan Üstünel]

Merhaba;
Listbox kutusundan seçip tıkladığım her ismi tıkladıkça örnek a1 satırından başlayarak alt alta atabilitrmi, bu konuda yazılacak kod konusunda yardımcı olabilirseniz sevinirim. İşleriniz kolay gelsin.

Merhaba, sayfa sekmesine sağ tık yapıp kod bölümüne yazacağınız kod aşağıdadır.

Private Sub ListBox1_Click()
Excelce_Sonsatir = WorksheetFunction.CountA(Worksheets("anasayfa").Range("A1:A65530"))
Worksheets("anasayfa").Range("A" & Excelce_Sonsatir + 1) = ListBox1.List(ListBox1.ListIndex)
End Sub

 

[sdegirmenci]

Sayın barabba ilginize çok teşekkür ederim, kodu ilave ettim ,kendi programıma uyarlayacağım ,istediğim gibi oldu Tekrar çok teşekkür ediyorum.