BİR HÜCREYE ÇİFT TIKLAYINCA KOPYALAYIP BELİRTİLEN YERE YAPIŞTIRMAK

[gkhn2]

Merhabalar,

Ekteki dosyanın "CARİ SEÇME" sayfasındaki A sütunundaki cari isimlerine çift tıklayınca o hücreyi kopyalayıp, "HAM VERİ" sayfasındaki E sütununa yapıştırmak istiyorum.

Dosyanın içinde "cari_yapistir" isimli bir makro mevcut. Bu makro "CARİ SEÇME" sayfasında seçili olan hücreyi kopyalayıp "HAM VERİ" sayfasındaki E sütununa yapıştırıyor. Ben bunu çift tıklayarak yapmak istiyorum.

Lafın kısası "cari_yapistir" makrosunun başına eklenecek çift tıklama ile kopyalayıp yapıştıracak bir kod lazım.

--- DOSYAYI İNDİRMEK İÇİN TIKLAYIN ---

 

[Ömer]

Merhaba,

Cari seçme sayfası kod bölümüne;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Row < 4 Then Exit Sub
    If Not Intersect(Target, [A:A]) Is Nothing Then
        Call cari_yapistir
    End If
End Sub

 

[gkhn2]

Merhaba,

Cari seçme sayfası kod bölümüne;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Row < 4 Then Exit Sub
    If Not Intersect(Target, [A:A]) Is Nothing Then
        Call cari_yapistir
    End If
End Sub

çok teşekkürler elinize sağlık.