Çift tıklama ile hücreye veri almak

[CenTay]

Arkadaşlar, sayfadaki C3:H33 arasında bir hücreye çift tıklama yapınca, tıklanan hücredeki veriyi L15 hücresi ne yazsın istiyorum sağolun

 

[Muzaffer Ali]

Merhaba.

Sayfanın kod kısmına aşağıdaki kodu kopyalayın.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("C3:H33")) Is Nothing Then
        Range("L15") = Target
        Cancel = True
    End If
End Sub

 

[CenTay]

Teşekkür ederim sevgili hocam sağolasın