Makroyu Düğmeye Atamada Sorun

[EKREM1661]

Saygıdeğer Arkadaşlar..! Geçmiş zamanın birinde, değerli hocam Sn.Evren GİZLEN'den aldığım aşağıdaki kodu kullanıyorum..

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Target.Value = "" Then Exit Sub
Range("A1").Value = Cells(Target.Row, "A").Value
End Sub

Bu kodu bir düğmeye atamak istedim fakat çalışmadı.. Yardımcı olabilirmisiniz..

(Kodun işlevi; satıra çift tıklayınca, o satırın başındaki (yani A sütunundaki) veriyi A1'e yazıyor.)

 

[Orion1]

Target.row yazan yerlere ActiveCell.Row yazınız.

 

[EKREM1661]

Evet..Aynen oldu.. Sn.hocam çok teşekkür ediyorum ve hayırlı çalışmalar diliyorum.. Sayenizde nice sorunlarımızı hallettik..

 

[Orion1]

Evet..Aynen oldu.. Sn.hocam çok teşekkür ediyorum ve hayırlı çalışmalar diliyorum.. Sayenizde nice sorunlarımızı hallettik..

Rica ederim.
iyi çalışmalar.