kopyalama

[desphg]

bu konu daha önce yapıldı ama exceldede anlattığım gibi ikinci yeri tıklayınca farklı bi yer yazılsın istiyorum yardımlarınız için şimdiden teşekkürler

 

[asi_kral]

Sorunuz net değil_?

 

[uzmanamele]

Merhaba

Bu kodu deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("b:b")) Is Nothing Then Exit Sub
Range("b" & Target.Row & ":" & "h" & Target.Row).Copy Range("n" & Range("n65536").End(3).Row + 1)
End Sub

B sütununda tarihleri oynak fonksiyon yerine manuel girmeniz tavsiye edilir.

 

[desphg]

tarih oynak olmak zorunda bentıkladığımda im amacım dosyadada olduğu gibi c5 n1 sütüna yazılması c6 tıklayınca n2 ye yazılması
c5 sütunun
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then
Range("n1") = Target.Cells.Offset(0, -1)
Range("o1") = Target.Cells.Offset(0, 1)
Range("p1") = Target.Cells.Offset(0, 3)
Range("q1") = Target.Cells.Offset(0, 5)
Range("r1") = Target.Cells.Offset(0, 7)
Range("s1") = Target.Cells.Offset(0, 9)
End If
If Intersect(Target, Range("b:b")) Is Nothing Then Exit Sub
Range("b" & Target.Row & ":" & "h" & Target.Row).Copy Range("n" & Range("n65536").End(3).Row + 1)

End Sub

formülle çözdüm ama c6 tıklayınca n2 sütuna yazdırmak