Alan seçip aynı yere kopyalamak.

[nasdaq]

B4 hücresi ve en alttaki satıra kadar olan alanı seçmek. Buna bağlı olarak sağdaki C kolonundaki verileri seçip. yine aynı alana COPYALA-ÖZEL YAPIŞTIRMA-DEĞERLER şeklinde bir excel makrosu rica ediyorum.

 

[alicimri]

Eğer A sütununda veri varsa asıl koddaki ilgili satırı aşağıdaki satırı ile değiştirin

Set tbl1 = tbl.Resize(tbl.Rows.Count, 1).Offset(0, 2)

Sub b()
Set tbl = Range("b4").CurrentRegion
Set tbl1 = tbl.Resize(tbl.Rows.Count, 1).Offset(0, 1)
tbl1.Copy
tbl1.PasteSpecial Paste:=xlPasteValues
End Sub

 

[nasdaq]

Eğer A sütununda veri varsa asıl koddaki ilgili satırı aşağıdaki satırı ile değiştirin

Set tbl1 = tbl.Resize(tbl.Rows.Count, 1).Offset(0, 2)

Sub b()
Set tbl = Range("b4").CurrentRegion
Set tbl1 = tbl.Resize(tbl.Rows.Count, 1).Offset(0, 1)
tbl1.Copy
tbl1.PasteSpecial Paste:=xlPasteValues
End Sub

DAHA ÖNCE BİR ARKADAŞTAN ÇÖZÜMÜ ALDIM. İLGİNİZE TEŞEKKÜRLER...