Çift Tıklamayla Kopyala Yapıştır Kodu

[csncesur]

Excel dosyamda A Sutununda bulunan hücrelerden herhangi birine çift tıkladığımda Sayfa 2'de ki A1 Hücresine kopyalamasını istiyorum. Yardım edebilir misiniz?

 

[hamitcan]

Sayfanın Kod kısmına ekleyin.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column <> 1 Then Exit Sub
    Sayfa2.[a1] = Target.Text
End Sub

 

[csncesur]

Hocam çok teşekkür ederim elinize sağlık??