aydgur
Altın Üye
- Katılım
- 31 Ekim 2005
- Mesajlar
- 447
- Excel Vers. ve Dili
- Excel 2007 Türkçe
- Altın Üyelik Bitiş Tarihi
- 04-03-2028
İyi günler sayın katılımcılar.
Aşağıdaki kod ile "AÇIK" sayfasından "680415" sayfasına aktarabiliyorum , fakat
"AÇIK" sayfasındaki aktardığım satırdan da J sütunundaki den k gelen hücreyi de silsin istiyorum.
Olmadı akatardığım tüm satırı silsin
Ne yapabilirim ?
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("680415")
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
Aşağıdaki kod ile "AÇIK" sayfasından "680415" sayfasına aktarabiliyorum , fakat
"AÇIK" sayfasındaki aktardığım satırdan da J sütunundaki den k gelen hücreyi de silsin istiyorum.
Olmadı akatardığım tüm satırı silsin
Ne yapabilirim ?
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("680415")
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