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.
Eğer A sütununda veri varsa asıl koddaki ilgili satırı aşağıdaki satırı ile değiştirin
Kod:
Set tbl1 = tbl.Resize(tbl.Rows.Count, 1).Offset(0, 2)
Kod:
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
Eğer A sütununda veri varsa asıl koddaki ilgili satırı aşağıdaki satırı ile değiştirin
Kod:
Set tbl1 = tbl.Resize(tbl.Rows.Count, 1).Offset(0, 2)
Kod:
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.