DoubleClick ile farklı sayfaya Kayıt

[HATİPOĞLUM]

Sayfa1 A sütunda kayıtlı verlerin üzerine çift tıklanıldığında!
Sayfa2 de A sutunda kaytlı verilerin en sonuna (boş satıra) tıklanılan (Target) değeri ve
Sayfa1 de "C2" deki değeri = Sayfa2 C sütununa Target değeri yazılan satıra
Sayfa1 de "d2" deki değeri = Sayfa2 d sütununa Target değeri yazılan satıra almak için kod'a ihtiyacım var.
Konu ile ilgli Sayın Evren Gizlen'in çalışmaları var ancak uygun olanını bulamadım.
her çift tıklamada sayfa1 deki C2 ve D2 hücrelerindeki sabit değerleri Sayfa2 ye Target değeri ile kayıt etmesi gerekli
ilgilenebilecek uzman üyelere teşekkür ederim.

 

[1Al2Ver]

Merhaba,

Öneri ;

Üzerinde çalışma yapılabilmesi ve çabuk-doğru sonuç elde edilebilmesi için 2003 formatında örnek bir dosya eklemeniz doğru olur,

Teşekkür ederim.

 

[HATİPOĞLUM]

Sayın 1Al2Ver
2003 formatında Örnek dosya ekledim ilginize ben teşekkür ederim.

 

[HATİPOĞLUM]

Aşağıdaki kod ile işimi gördüm Her kim yazdı ise Allah razı olsun...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [a8:a200]) Is Nothing Then Exit Sub
Cancel = True
kaydet = Worksheets("Sayfa2").[a65536].End(3).Row + 1
Worksheets("Sayfa2").Cells(kaydet, 1) = Target.Value
Worksheets("Sayfa2").Cells(kaydet, 2) = Worksheets("Sayfa1").Range("B2")
Worksheets("Sayfa2").Cells(kaydet, 3) = Worksheets("Sayfa1").Range("D2")
Worksheets("Sayfa2").Cells(kaydet, 4) = Worksheets("Sayfa1").Range("C2")
Worksheets("Sayfa2").Cells(kaydet, 5) = Worksheets("Sayfa1").Range("E2")
Sheets("Sayfa1").Select
End Sub