Listboxdan Aktarım

[oguzka]

Merhabalar;

Sayfa üzerinde tanımladığım 3 sütunlu tabloyu usuerformdaki listbox üzerine aktarıyorum. Userformdaki bir buton ile listboxda seçilen satırı sırasıyla sayfada a1,a2,a3 hücrelerine aktarmak istiyorum. listboxdaki seçilen satırın 1.sütunu a1 e 2. sütunu a2ye ve 3.sütunuda a3 aktarılsın istiyorum. Nasıl bir kod yazmam lazım?

 

[Orion1]

Merhabalar;

Sayfa üzerinde tanımladığım 3 sütunlu tabloyu usuerformdaki listbox üzerine aktarıyorum. Userformdaki bir buton ile listboxda seçilen satırı sırasıyla sayfada a1,a2,a3 hücrelerine aktarmak istiyorum. listboxdaki seçilen satırın 1.sütunu a1 e 2. sütunu a2ye ve 3.sütunuda a3 aktarılsın istiyorum. Nasıl bir kod yazmam lazım?

2003 formatındaki örnek excel dosyanızı ekleyiniz.

 

[oguzka]

Dosyayı ekledim

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim k As Byte, sat As Long
If ListBox1.ListCount < 1 Then Exit Sub
If ListBox1.ListIndex < 0 Then Exit Sub
sat = Cells(65536, "A").End(xlUp).Row + 1
For k = 1 To 3
    Cells(sat, k).Value = ListBox1.Column(k - 1)
Next
End Sub

 

[oguzka]

Çok teşekkür ederim sayın uzmanım. Buradaki konu ile alakası yok ama burada sorayım. Listboxa rowsource komutunu kullanarak veri aktarabiliyoruz. Acaba listview içinde böyle birşey mümkünmü? Örnekleri incelediğimde hep döngüler kullanılarak aktarım yapılmış ancak kısa yoldan rowsource aktarım yapabilirsem şahane olacak

 

[Orion1]

Çok teşekkür ederim sayın uzmanım. Buradaki konu ile alakası yok ama burada sorayım. Listboxa rowsource komutunu kullanarak veri aktarabiliyoruz. Acaba listview içinde böyle birşey mümkünmü? Örnekleri incelediğimde hep döngüler kullanılarak aktarım yapılmış ancak kısa yoldan rowsource aktarım yapabilirsem şahane olacak

Maalesef listviewin böyle bir özelliği yok.
Mecburen döngü ile verileri almak zorunasımnız.
Buda hızı yavaşlatıyor.
Ama direk sayfadan almak yerine verilerinizi bir dizi içine alıp döngüyü kurarak diziden alırsanız hissedilir bir hız artışı olacaktır.
Bunu 300-500 satırda farkedemezsişniz.Ama 10 bin 20 bin satırlara ulaşınca verileirniz. bu farkı anlarsınız.
Kolay gelsin.

 

[oguzka]

Teşekkür ederim...