listbox Dblclick

[zulfuernek]

listboxta iki sütun bilgi mevcut
1. sütun tc noları
2. sütun ad soya

hangi veri üzerine çift tıklarsam tc no kopyalamasını istiyorum. bu mümkünmüdür. yani sadece tc no üzerine değil ilgili kişinin ismine veya tc no üzerine farketmez hangi satıra tıklarsam o kişinin tc no kopyalamasını istiyorum

 

[Orion1]

listboxta iki sütun bilgi mevcut
1. sütun tc noları
2. sütun ad soya

hangi veri üzerine çift tıklarsam tc no kopyalamasını istiyorum. bu mümkünmüdür. yani sadece tc no üzerine değil ilgili kişinin ismine veya tc no üzerine farketmez hangi satıra tıklarsam o kişinin tc no kopyalamasını istiyorum

Listbox verileri hangi sütunlardan alıyor ve nereye kopyalanacak?

 

[zulfuernek]

Orion hocam a sütununda tc ler mevcut b sütununda isimler mevcut
sayfanın ismi ise "TCKN_VKN"

kopyaladıktan sonra excelde kullanmayıp kurum sisteminde ilgili yere yapıştır yapacağım.

 

[Orion1]

Buyurun.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim sat As Long
If ListBox1.ListCount < 1 Then Exit Sub
sat = ListBox1.ListIndex + 2
Sheets("TCKN_VKN").Range("A" & sat & ":B" & sat).Copy
End Sub

 

[zulfuernek]

hocam gene harika emeğine sağlık. )

istediğimden fazlasını öğrendim. ben sadece 1 satırı demiştim ama sayenizde kaçtane ve hangi sütunları kopyalanması gerektiğinide öğrendim )))

harika. ne kadar teşekkür etsem azdır.

 

[Orion1]

hocam gene harika emeğine sağlık. )

istediğimden fazlasını öğrendim. ben sadece 1 satırı demiştim ama sayenizde kaçtane ve hangi sütunları kopyalanması gerektiğinide öğrendim )))

harika. ne kadar teşekkür etsem azdır.

Rica ederim.
İyi çalışmalar.

 

[Orion1]

İsterseniz doubleclick yaptıktan sonra userformun kapatabilirsiniz.Bunun için en son satıra unload me yazmanız yeterlidir.