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