Çİft Tiklama

[aydgur]

BİR KATILIMCIMIZDAN EDİNDİĞİM KODLA İLGİLİ YARDIM RİCA EDİYORUM
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Application.ScreenUpdating = False
If Target = "" Then Exit Sub
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
Set s1 = Sheets("açık")
Set s2 = Sheets("takas")

son = s2.Cells(65536, 1).End(3).Row + 1
s2.Range("a" & son & ":j" & son & "").Value = Range("a" & Target.Row & ":j" & Target.Row & "").Value
Target.Offset(1, 0).Select
Set s1 = Nothing
Set s2 = Nothing
Application.ScreenUpdating = True
End Sub
yukarıdaki kodda takas sayfasının örneğin O2 hücresinden itibaren ilk boş satırdan itibaren nasıl aktarabilirim , şimdiden teşekkürler

 

[Recep İpek]

s2.Range("a" & son & ":j" & son & "").Value = Range("a" & Target.Row & ":j" & Target.Row & "").Value


satırındaki a ve j kodlarını kendinize göre değiştirebilirsiniz.