yusuf1284
Altın Üye
- Katılım
- 17 Ocak 2015
- Mesajlar
- 224
- Excel Vers. ve Dili
- Office Pro 2016 TR
- Altın Üyelik Bitiş Tarihi
- 09-02-2028
Listbox aşağıdaki bir kod yazdım seçtiğim değer dışında eski değer arasında git gel yaptığını msgbox kodunu ekleyerek fark ettim son seçtiğime göre tek işlem nasıl yaptırabilirim? Bu şekilde aynı kodlar 2 3 defa çalışmakta yavaşlık ve yenileme söz konusu oluyor.
Kod:
Private Sub Lst_Per_Liste_Click()
X = Lst_Per_Liste.ListIndex
MsgBox X
Me.ScrollTop = 0
X = Lst_Per_Liste.ListIndex + 7
home.Range("J8").Value = db_pb.Range("G" & X).Value
Cmb_Per_Sec.Value = db_pb.Range("G" & X).Value
Txt_TC.Value = db_pb.Range("F" & X).Value
End Sub