çift tıklama ile başka sayfaya veri kopyalama

[ANKARA1974]

İyi günler ekteki örneğe göre;

HEDEF SAYFA seçildikten (yazıldıktan)sonra çift tıklama yapılan satır HEDEF SAYFA'ya (burada C1) kopyalanacak ve bundan sonra yapılacak yine aynı çift tıklamalar ile alt alta aynı sayfaya (HEDEF SAYFA'ya;burada C1) kopyalama yapılabilir mi?

HEDEF SAYFA sürekli değişebilir A1,B1,A2 vb.

 

[vardar07]

Anasayfa kod bölümüne ekleyip deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("b3:b" & Range("b65536").End(3).Row)) Is Nothing Then Exit Sub
a = [c1]
Set s1 = Sheets(a)
son = s1.Range("b65536").End(3).Row + 1
s1.Cells(son, 2) = Cells(Target.Row, 2)
End Sub

 

[ANKARA1974]

Teşekkür ederim. Tam istediğim gibi olmuş.

Kolay gelsin.

 

[vardar07]

Rica ederim. Kolay gelsin.