Çift tıkla ve sil

[aydgur]

İ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

 

[hamitcan]

Bu şekilde deneyin.

s2.Range("a" & son & ":j" & son & "").Value = Range("a" & Target.Row & ":j" & Target.Row & "").Value 
rows(target.row).delete

 

[aydgur]

Teşekkür ederim. Peki sizi yakalamışken ; yukarıdaki çift tıklamaya uyarlayarak çift tıklama ile
"AÇIK" sayfasındaki C sütününa denk geleni "680415" sayfasındaki C sütününa
"AÇIK" sayfasındaki F sütününa denk geleni "680415" sayfasındaki B sütününa
"AÇIK" sayfasındaki J sütününa denk geleni "680415" sayfasındaki E sütününa
"AÇIK" sayfasındaki K sütününa denk geleni "680415" sayfasındaki G sütününa
"AÇIK" sayfasındaki L sütününa denk geleni "680415" sayfasındaki I sütününa gönderebilir mi ?
Buna uygun bir makro var ama sayfa yüklü olduğundan dönüp duruyor ve çok geç aktarıyor.

 

[hamitcan]

Bu iş için aynı kod satırını kullanabilirsiniz. Önceki satırı silip aşağıdaki kodu çoğaltın. Tırnak içinde yazılan kısımları sütun isimlerine göre değiştirin.

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

 

[aydgur]

Günaydın teşekkür ederim.
"AÇIK" sayfasındaki F sütününa denk geleni "680415" sayfasındaki B sütününa aktarmak için
s2.Range("f" & son & ":f" & son & "").Value = Range("f" & Target.Row & ":f" & Target.Row & "").Value mi yapayım ?

 

[hamitcan]

Hayır. Aşağıdaki şekilde yazmanız gerekiyor.

s2.Range("b" & son & ":b" & son & "").Value [code]

 

[aydgur]

Çok teşekkür ederim , diğerlerinide ekledim.

 

[aydgur]

Çok pardon . AÇIK sayfasındaki bilgileri aktardıktan sonra SADECE J sütünundaki bilgiyi sil nasıl eklenir?

 

[hamitcan]

Böyle deneyin.

cells(target.row,"j").clearcontents

 

[aydgur]

Çok güzel oldu , diğerleri için de değiştirebildim.
Emeğinize saplık , iyi tatiller iyi ramazanlar dilerim.

 

[hamitcan]

Teşekkürler, size de hayırlı ramazanlar dilerim.