listboxtan textbox ve comboboxa veri aktarma

[muratozmenler]

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Dim x As Integer
x = Sheets("VERİ").Range("A:A").Cells.Find(What:=ListBox1, LookIn:=xlValues).Row


ComboBox1.Value = ListBox1

ComboBox1 = Sheets("VERİ").Cells(x, 1)
TextBox1 = Sheets("VERİ").Cells(x, 2)
TextBox2 = Sheets("VERİ").Cells(x, 3)
ComboBox2 = Sheets("VERİ").Cells(x, 4)
TextBox3 = Sheets("VERİ").Cells(x, 5)
TextBox4 = Format(Sheets("VERİ").Cells(x, 6), "dd.mm.yyyy")
TextBox5 = Format(Sheets("VERİ").Cells(x, 7), "HH:MM")
TextBox6 = Format(Sheets("VERİ").Cells(x, 8), "HH:MM")
TextBox19 = Format(Sheets("VERİ").Cells(x, 9), "dd.mm.yyyy")
ComboBox3 = Sheets("VERİ").Cells(x, 10)
End Sub


bu kodla listboxa tıkladığımız zaman comboboxa ve textboxlara veri aktarıyor fakat a sütununda aynı bilgi varsa örneğin murat ismi iki kere kayıtlı ise ilk murat olan satırdaki bilgileri getiriyor nasıl bir düzenleme yapmalıyımKİ listede tıklanan satırdaki veriler gelsin

 

[Orion1]

Tamamda
Orada kodların ne yaptığını yazmışsınız.
Ne istediğinizi açıklamışsınız.
2nci verimi gelsin.
en son verimi gelsin.
yoksa combobox için diyorum.
Sorgulanan verielrin hepsimi listelensin.
Ne olsun?
Soruyu cevaplayacak arkadaşlarda bilseler ne olacağını iyi olacak sanırım.

 

[muratozmenler]

pardon hocam düzenleme yaptım

 

[Orion1]

Herkes sizin bu düştüğünüz yanlışa düşüyor.
En başından şöyle tasarlamılısınız.
Listboxa veriyi alırken satır numaralarınıda alın ve bir sütuna yazın.o satırdaki tıkllana satırdaki yeni bir sütun yapın oraya yazın.
Tıklanıldığında o sütundaki sütun numarasına gidin veya kayıtlarınıza benzersşiiz numaralar verin.Yani ID noları verin.
Bu nolar benzersidir
yalnız bu demek istediği msıra no değildir.ID nosudur.Ardışık 1er atşyaraak gitmeyebilir.Önemli olan her sferinde 1 artmasıdır.Yani aradan bir tane sildeikten sonra numaralarla oynamayın öylece kalsın.Sırada gitmesin.
Sonra bu kulandığınız find komutunu kullanbilirsiniz problem olmaz.

 

[muratozmenler]

Sağolun hocam anladım