ListBox'a listelenen isme tıklandığı zaman tüm bilgilerin Userforma aktarılması

[AKTAY27]

meraba arkadaşlar personel özlük programı yapmaya çalışıyorum excel'i veritabanı olarak kullanıyorum userforma arama butonu ekledim isimlerin listesini ListBox'ta geliyor. benim yapmak istediğim ListBox' ta listelenen isimlerin üzerine tıklandığı zaman userform'a özlük bilgilerinin aktarılası. teşekkürler

bu aşağıdaki kodla yapmaya çalıştım ama olmadı
------------------------------------------------------------
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo hata
If ListBox5.ListCount < 1 Then Exit Sub
UserForm1.InputBox(ListBox5.Value).Select
Unload Me
hata:
End Sub
-------------------------------------------------------------------

 

[hamitcan]

Dosyan&#305;z&#305;n k&#252;&#231;&#252;k bir &#246;rne&#287;ini ekleyin

 

[AKTAY27]

sayın hamitcan

ilginiden dolayı teşekkür ederim.

dosyanın örneğini gönderiryorum.

1-inputbox
2-listbox

fazla oluyorum ama bir sorum daha olacak
arama butonu iki ayrı seçenekle yapmak istiyorum inputbox ile isimler geliyor ancak textbox ta yerleri değişmiş olarak geliyor örneğin en başta olan ref. no.+kartno+dosya no bunları getrimiyor bunun içinde bi çözüm söyleyebilirmisiniz.

 

[Korhan Ayhan]

Selamlar,

Dosyan&#305;zda kay&#305;t arama i&#351;lemini yaparken bulunan kay&#305;da ait h&#252;creyi se&#231;tiriyorsunuz. Bu durumda Offset bilgilerinide buna g&#246;re d&#252;zenlemeniz gerekiyor. A&#351;a&#287;&#305;daki kodda en son sat&#305;rdaki 16 de&#287;erini bir artt&#305;rarak geri kalan k&#305;sm&#305;n&#305;da d&#252;zeltirseniz istedi&#287;iniz sonuca ula&#351;abilirsiniz.

Sub VeriAl()
'Kimlik Bilgileri
Me.RefNo = ActiveCell.Offset(0, -3).Value
Me.kartno = ActiveCell.Offset(0, -2).Value
Me.dosyano = ActiveCell.Offset(0, -1).Value
Me.adısoyadı = ActiveCell.Offset(0, 0).Value
Me.ssksicilno = ActiveCell.Offset(0, 1).Value
Me.tckimlikno = ActiveCell.Offset(0, 2).Value
Me.telefonno = ActiveCell.Offset(0, 3).Value
Me.adres = ActiveCell.Offset(0, 4).Value
Me.doğumyeri = ActiveCell.Offset(0, 5).Value
Me.doğumtarihi = ActiveCell.Offset(0, 6).Value
Me.babadı = ActiveCell.Offset(0, 7).Value
Me.anaadı = ActiveCell.Offset(0, 8).Value
Me.nüfusakayıtlıolduğuil = ActiveCell.Offset(0, 9).Value
Me.nüfusakayıtlıolduğuilçe = ActiveCell.Offset(0, 10).Value
Me.mahalleköy = ActiveCell.Offset(0, 11).Value
Me.ciltno = ActiveCell.Offset(0, 12).Value
Me.ailesırano = ActiveCell.Offset(0, 13).Value
Me.sırano = ActiveCell.Offset(0, 14).Value
Me.medenihali = ActiveCell.Offset(0, 15).Value
Me.cinsiyeti = ActiveCell.Offset(0, [COLOR=RED]16[/COLOR]).Value
'...Bundan sonraki kısmı siz 16 değerini bir arttırırak düzeltebilirsiniz.

 

[AKTAY27]

say&#305;n; COST_CONTROL
sorunmun biri &#231;&#246;z&#252;ld&#252; sayenizde.

D&#304;&#286;ER SORUNUMADA &#199;&#214;Z&#220;M BULURSANIZ BEN&#304; B&#220;Y&#220;K B&#304;R DERTTEN KURTARMI&#350; OLURSUNUZ.

Listbox ta isimlerin listesi ald&#305;&#287;&#305;m&#305;za bilgilerini g&#246;rmek istedi&#287;im personelin isminin &#252;zerine t&#305;klad&#305;&#287;&#305;m zaman bilgilerin userform1' e gelmesini nas&#305;l yapabilriz.

yani k&#305;sacas&#305; "kay&#305;t bul" butonunu listbox ile yapmak istiyorum nedeni ise baz&#305; personellerin isim ve soyisim'lerin ayn&#305; oldu&#287;u zaman listelenen personelin arad&#305;&#287;&#305;m&#305;z personel olup olmama &#351;ans&#305; en iyi ihtimalle &#37;50 dir.
ilginizden &#246;t&#252;r&#252; te&#351;ekk&#252;r ediyorum.

 

[hamitcan]

Ben de, anladığım kadarıyla cevap vereyim. Yalnız verial kodunun çalışma mantığını değiştirmeniz gerekebilir yada yeni eklemeler yapılabilir.
Çünkü form yüklenmeden önce bu kod çalışmakta.Bunun içinde kodlarınızı baştan incelemek gerekecek.
İstediğiniz gibi ListBox5 içinde bir satırı tıkladığınızda aşağıdaki kodlar çalışacaktır.

Private Sub ListBox5_Click()
Unload Me
sirano = ListBox5.ListIndex
UserForm1.RefNo = ListBox5.List(sirano)
UserForm1.adısoyadı = ListBox1.List(sirano)
UserForm1.ssksicilno = ListBox4.List(sirano)
UserForm1.görevyeri = ListBox2.List(sirano)
UserForm1.görevi = ListBox3.List(sirano)
UserForm1.Show
End Sub