veri getirme

Merhabalar; Ekli puantaj dosyasında izinler sayfasında F10:F100 hücreleri arasında herhangi bir satırı çift tıkladığımda kayıtlar sayfasında ve izinler sayfasındaki kayıtlar izinler sayfasında Y10:Y23 hücreleri aasına geliyor. Benim istediğim bu işlemin çift tıklma ile değilde tek tıklama ile...

Private Sub CommandButton7_Click() On Error Resume Next Dim aradeğer As String Dim arahücre As Range Dim yer As Variant aradeğer= ListBox2.Value Set arahücre= Sheets("Sözleşme Bilgileri").Range("D:D") yer = Application.Match(aradeğer, arahücre, 0) If Not...