Listbox Dbclick olayı ?

[HD1975]

Merhaba ;

Kullanmış olduğum,listboxta'ki bir veriye tıklayınca form üzerindeki diğer listboxa
veri gelmesini istiyorum.


Şöyle ;

Aşağıdaki kod ile listbox3'e sayfa8'deki verileri alıyorum,sayfa8'in Asütununda
kişi noları var.Aynı kişi nolarına ait bazı verilerde sayfa3'de var.

Listbox üzerindeki veriye çift tıklayınca,aynı userform üzerindeki listbox4'e
sayfa3'deki kişiye ait verilerin gelmesi gerekiyor.

Private Sub UserForm_Initialize()
Dim say1 As Integer
say1 = WorksheetFunction.CountA(Worksheets("Sayfa8").Range("A:A"))
ListBox3.RowSource = "Sayfa8!A2:I" & say1
ListBox3.ColumnCount = 9
ListBox3.ColumnWidths = "48;90;0;0;0;220;50;50;160"
Application.Visible = True
End Sub

Saygılar

 

[Orion1]

İşte zurnanın zurt dediği yer.2 ayni isim olduğu takdirde işler karışır.
Bunun gibi durumlarda veri tabanı olarak mdb (access dosyası) kullanarak adodb ile işlemler yapılabilir.Bir sütunu Otomatik sayı yaparsınız.İlşkiler kurularak bu iş en doğru şekilde çözümlenir.

 

[HD1975]

Şöyle bir izahatda bulunayım ;

Userform üzerindeki veriye çift tıklayınca,yeni bir form açılacak ve bu formun
üzerindeki listboxa veriler getirilecek.

Yani ;

Userform1,üzerinde listbox3 üzerindeki sayfa8'e ait verilerin A sütununda kişi noları var (f0001 gibi).

Bu listbox üzerinde veriye çift tıklayınca aynı kişi nosuna ait sayfa3'deki satırları userform2 üzerindeki listbox1'e getirecek.sayfa3'dede kişi noları A sütununda bulunuyor.

Saygılar