- Katılım
- 24 Şubat 2007
- Mesajlar
- 241
- Excel Vers. ve Dili
- OFİS XP TÜRKÇE
- Altın Üyelik Bitiş Tarihi
- 26-11-2020
meraba arkadaşlar
personel özlük bilgilerini takip için exceli veritabanı olarak kullanıyorum kayıtbul butonu ile personelin isimlerini userforma getiriyor değiştir butonu ile userformda değiştiryor oda güzel ama exceli değiştirmesi gereken veriyi değiştirmiyor hangi personelin olduğu satırdaysa onu o personeli değiştiriyor.
aslında yapması gereken user formda hangi personelin bilgisi varsa excel'de o personelin bulunduğu satıra gitmesi lazım bu sorunu ortadan kaldırısak problem çözülmüş olacaktır. bunu nasıl yapabiliriz. teşekkürler
kodları aşağıdadır.
---------------------------------------------------------
Private Sub ListBox1_Click()
If ListBox1.ListCount < 1 Then Exit Sub
UserForm1.RefNo = Cells(ListBox1.ListIndex + 2, "A").Value
UserForm1.adısoyadı = Cells(ListBox1.ListIndex + 2, "D").Value
UserForm1.dosyano = Cells(ListBox1.ListIndex + 2, "C").Value
UserForm1.görevyeri = Cells(ListBox1.ListIndex + 2, "W").Value
UserForm1.görevi = Cells(ListBox1.ListIndex + 2, "Z").Value
UserForm1.işegiriştarihi = Cells(ListBox1.ListIndex + 2, "AA").Value
End Sub
-----------------------------------------------------------
personel özlük bilgilerini takip için exceli veritabanı olarak kullanıyorum kayıtbul butonu ile personelin isimlerini userforma getiriyor değiştir butonu ile userformda değiştiryor oda güzel ama exceli değiştirmesi gereken veriyi değiştirmiyor hangi personelin olduğu satırdaysa onu o personeli değiştiriyor.
aslında yapması gereken user formda hangi personelin bilgisi varsa excel'de o personelin bulunduğu satıra gitmesi lazım bu sorunu ortadan kaldırısak problem çözülmüş olacaktır. bunu nasıl yapabiliriz. teşekkürler
kodları aşağıdadır.
---------------------------------------------------------
Private Sub ListBox1_Click()
If ListBox1.ListCount < 1 Then Exit Sub
UserForm1.RefNo = Cells(ListBox1.ListIndex + 2, "A").Value
UserForm1.adısoyadı = Cells(ListBox1.ListIndex + 2, "D").Value
UserForm1.dosyano = Cells(ListBox1.ListIndex + 2, "C").Value
UserForm1.görevyeri = Cells(ListBox1.ListIndex + 2, "W").Value
UserForm1.görevi = Cells(ListBox1.ListIndex + 2, "Z").Value
UserForm1.işegiriştarihi = Cells(ListBox1.ListIndex + 2, "AA").Value
End Sub
-----------------------------------------------------------