ListBox ve aktarma

[ahmett46]

Slm Arkadaşlar
ListBox taki listeyi Excel sayfasına nasıl aktarabiliriz? Teşekkürler

 

[bedersu]

Merhaba,
Şu kodlar işinize yarayacaktır:

Private Sub CommandButton1_Click()
a = ListBox1.ListCount
For i = 1 To a
Cells(i, 1) = ListBox1.Column(0, i - 1)
Cells(i, 2) = ListBox1.Column(1, i - 1)
Next
End Sub

 

[ahmett46]

teşekkür ediyorum peki istediğimiz sayfaya nasıl aktarıyoruz

 

[emrexcel123]

sheets

başına sheets("sayfa ismi").select eklemen yeterli olacaktır...

 

[ahmett46]

Emreexcel teşekkür ediyorum.
ListBox tan ayrı 2 tane de ComboBox var Bunlarıda aynı butona eklemek istedim ve yapamadım. Sınıf Listesi oluşturacağım. ComboBox1 de 1, ComboBox2 de A yazılı Bunları Listenin üstüne 1/A Sınıf Listesi yazdırmak istedim ama yapamadım yardımcı olursanız sevinirim.

 

[emrexcel123]

dosyayı inceler misin

dosyayı inceler misin...

 

[ahmett46]

Dosyayı tekrar ekliyorum Sayfa1 deki gibi Excel sayfasına aktaracak
Teşekkür ediyorum

 

[ahmett46]

Yokmu şu dosyaya bakan:yardim:

 

[ahmett46]

kimse yok mu?...........

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Private Sub CommandButton1_Click()
[a1] = ComboBox1 & "/" & ComboBox2
sat = ListBox1.ListCount
Range("a2:b" & sat + 1) = ListBox1.List
End Sub

 

[ahmett46]

Teşekkürler Hocam

 

[ahmett46]

Slm Hocam Yazdığımız kod listedeki 10 tanesini aktarıyor isim 10 dan fazla ne yapmalıyız?

 

[Levent Menteşoğlu]

Listboxta ne kadar veri görünüyor ise hepsini aktarır sayı sınırlaması yoktur.

 

[ahmett46]

Hocam dosyayı gönderiyorum incelerseniz sınıf listesinden not gir butonu sonra acılan listenin altındaki buton
kullanıcı adı ve şifre tuğçe

 

[ahmett46]

Slm
Hocam mümkünse 14. mesajdaki dosyayı bi inceleyebilirmisiniz?
Teşekkürler

 

[ahmett46]

slm
hocam yardım

 

[Levent Menteşoğlu]

Kodu aşağıdaki ile değiştirin.

Private Sub CommandButton9_Click()
Sheets("sınıflist").Select
[x5] = ComboBox1 & "/" & ComboBox2
sat = ListBox1.ListCount
Range("x8:z" & sat + 7) = ListBox1.List
End Sub

 

[ahmett46]

Teşekkürler hocam
Vallahi imreniyorum size nerden nasıl öğrendiniz bilmiyorum ama excel kitabını yutmuşunuz. Ayrıca başta size site çalışanlarına ve tüm arkadaşlara teşekkürlerimi iletiyorum. İyi çalışmalar

 

[ahmett46]

Kodu aşağıdaki ile değiştirin.

Private Sub CommandButton9_Click()
Sheets("sınıflist").Select
[x5] = ComboBox1 & "/" & ComboBox2
sat = ListBox1.ListCount
Range("x8:z" & sat + 7) = ListBox1.List
End Sub

Slm Hocam
Bu yazdığınız koda daha önce aktarılanları silmesi için bir kod ekleyebilirmiyiz?

 

[Levent Menteşoğlu]

Aşağıdaki mavi renkli satırı ilave edin.

[LEFT]Private Sub CommandButton9_Click()
Sheets("sınıflist").Select
[B][COLOR=blue]range("x8:z65536").clearcontents
[/COLOR][/B][x5] = ComboBox1 & "/" & ComboBox2
sat = ListBox1.ListCount
Range("x8:z" & sat + 7) = ListBox1.List
End Sub[/LEFT]