aynı sayfada çift tıklama olurmu

[aydgur]

Aşağıdaki 2 adet çift tıklamayı aynı sayfada nasıl uygulayabilirim


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, [J:J]) Is Nothing Then Exit Sub
Set s2 = Sheets("AÇIK")
son = WorksheetFunction.CountA(s2.[A5560:A5592]) + 5560
s2.Range("A" & son & ":J" & son & "").Value = Range("A" & Target.Row & ":J" & Target.Row & "").Value
Target.Offset(1, 0).Select
Set s2 = Nothing
Application.ScreenUpdating = True
End Sub
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, [C:C]) Is Nothing Then Exit Sub
Set s1 = Sheets("AÇIK")
Set s2 = Sheets("T_680")

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

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Application.ScreenUpdating = False
Set s1= Sheets("AÇIK")
Set s2 = Sheets("T_680")

If Target = "" Then Exit Sub

If not Intersect(Target, [J:J]) Is Nothing Then
son = WorksheetFunction.CountA(s1.[A5560:A5592]) + 5560
s1.Range("A" & son & ":J" & son & "").Value = Range("A" & Target.Row & ":J" & Target.Row & "").Value
Target.Offset(1, 0).Select
end if
 
If not Intersect(Target, [C:C]) Is Nothing Then
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
end if

Set s1 = Nothing
Set s2 = Nothing
Application.ScreenUpdating = True
End Sub

 

[aydgur]

Muhteşem ! inanın 51 yaşımda desteklerinizle okadar çok motive olup ,başarılı olunca gençken neden başlamadım diyorum.

 

[Levent Menteşoğlu]

Muhteşem ! inanın 51 yaşımda desteklerinizle okadar çok motive olup ,başarılı olunca gençken neden başlamadım diyorum.

Çözümün işinize yaradığına sevindim. Biliyorsunuz öğrenmenin dolayısıyla değer üretmenin yaşı yoktur, forumumuzda sizden daha ileri yaşlarda bir çok üyemiz mevcuttur. Ne mutluki bize her yaştan üyemize faydalı olabiliyoruz.