Double click ile diğer sayfaya veri kaydırma Code yardımı

[Believing]

Sayın Uzman Arkadaşlar,

Ekteki çalışma kitabı ANASAYFA ve ÖZET adında iki farklı sayfadan oluşmaktadır. Anasayfada A sütununun herhangi bir hücresine çift tıklanınca, o hücredeki veriyi Özet sayfasının AI4 hücresine yazdırılmasını sağlamak istiyorum.
Maalesef makro konusuna yabancı olduğum için, siz uzman arkadaşların benim için çok değerli olan yardımlarınızı rica ediyorum.

Saygılarımla.

 

[Mustafa MUTLU]

Ana Sayfanın kod bölümüne yapıştırın

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:A10000")) Is Nothing Then
           [ÖZET!AI4] = Target
    End If
End Sub

 

[Believing]

Sayın Mustafa bey,

Belirttiğiniz gibi yaptım ancak çift tıklayınca "Run-time error '424': Object required" hatası veriyor.

Saygılarımla,

 

[Believing]

Sayın Mustafa bey,

Yardımınız için size çok teşekkür ederim. Sorun Ana sayfanın ismini OZET şeklinde yazdığım için oluşmaktadır.

Sayguılarımla,

 

[Mustafa MUTLU]

İşini gördü ise ne mutlu
Saygılar