Cİft Tik İle Kopyalama

[tatasoy]

sayfa11 deki A sütunudaki herhangi bir hücreye çift tıkladıgımda o satırı (veya yan yana 65 hücreyi) sayfa13 deki 5. satırdan başlamak üzere ilk boş satıra kopyalama işlemini nasıl yapabilirim.

ilgilenen arkadaşlara sonsuz teşkkürler...

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A1:A5000]) Is Nothing Then Exit Sub
Set S13 = Sheets("Sayfa13")
SON = S13.Cells(65536, "A").End(3).Row + 1
Target.EntireRow.Copy
If S13.[A5] = "" Then GoTo ATLA
S13.Cells(SON, "A").PasteSpecial xlValues
ATLA:
S13.[A5].PasteSpecial xlValues
Application.CutCopyMode = False
End Sub

 

[tatasoy]

ilginiz için teşekkürler

çok güzel olmuş.

Yalnız 2. kopyalamayı ilk satırın üzerine yaptıgı iç ilk deger kaybolmakta. Bu durum nasıl giderilebilir. (makrodaki satırlara ait açıklamaları da yazabilirseniz sevinirim)

 

[N.Ziya Hiçdurmaz]

Yanıt

Kodu bununla değiştiriniz

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A1:A5000]) Is Nothing Then Exit Sub
Set S13 = Sheets("Sayfa13")
SON = S13.Cells(65536, "A").End(3).Row + 1
Target.EntireRow.Copy
If S13.[A5] = "" Then GoTo ATLA
S13.Cells(SON, "A").PasteSpecial xlValues
Exit Sub
ATLA:
S13.[A5].PasteSpecial xlValues
Application.CutCopyMode = False
End Sub

 

[tatasoy]

Çook TeŞekkÜrler...