çift tık ile yana kopyalama

[muhsar]

merhaba, A sütununda bulunan veriye çift tıkladığımda b sütununa tıkladığım veriyi yazdıracak,örneğin a2 çitf tıkladığımda b2 ye tıklanan veriyi yazacak,sonra a7 ye çift tıkladığımda buradaki veriyi b3 e yazacak,a13 tıklayınca b4 e yazacak şeklinde,aynı işlemi D sütununa çift tıklama ile e sütununa sıralamak içinde yapacağım.

 

[veyselemre]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cells(Rows.Count, 2).End(3).Offset(1).Value = Target.Value
End Sub

 

[muhsar]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cells(Rows.Count, 2).End(3).Offset(1).Value = Target.Value
End Sub

ilginiz için teşekkür ederim,aynı işlemi D sütunu içinde uygulamak için kod ilavesi rica edebilirmiyim
A sütununa tıklayınca B sütununa D sütununa tıklayınca E sütununa yazacak,mevcut kodlar ile tüm çıft tık ları b ye yazıyor

 

[veyselemre]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 Or Target.Column = 4 Then
        Cells(Rows.Count, Target.Column + 1).End(3).Offset(1).Value = Target.Value
    End If
End Sub

 

[muhsar]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 Or Target.Column = 4 Then
        Cells(Rows.Count, Target.Column + 1).End(3).Offset(1).Value = Target.Value
    End If
End Sub

çok teşekkür ederim,elinize sağlık