Bir sütun grubunu, buton yardımı ile çoğaltmak..

EKREM1661

Altın Üye
Katılım
10 Kasım 2006
Mesajlar
1,265
Excel Vers. ve Dili
Excel-2016
Saygıdeğer Arkadaşlar..! iyi çalışmalar dileğiyle..

Ekli dosyada küçük bir örneğini ve açıklamasını verdim.. Belli bir sütun (15 sütun) grubunu, tüm biçimleriyle birlikte, bir sonraki boş sütundan itibaren her yıl artırmak gerekiyor.. Bunu buton ile yapabilir miyiz?
 

Ekli dosyalar

EKREM1661

Altın Üye
Katılım
10 Kasım 2006
Mesajlar
1,265
Excel Vers. ve Dili
Excel-2016
Neyse o zaman.. Şimdiye dek yaptığımız gibi manuel olarak devam ederiz..
 
Son düzenleme:

EmrExcel16

Destek Ekibi
Destek Ekibi
Katılım
1 Kasım 2012
Mesajlar
1,520
Excel Vers. ve Dili
Office 365 Türkçe
Deneyiniz..
Kod:
Sub Kopyala()
    Columns(Cells(3, Columns.Count).End(1).Column - 14).Resize(, 15).Copy _
    Columns(Cells(3, Columns.Count).End(1).Column + 1).Resize(, 15)
End Sub
 

EKREM1661

Altın Üye
Katılım
10 Kasım 2006
Mesajlar
1,265
Excel Vers. ve Dili
Excel-2016
Sn.EmrExcel16 Elinize sağlık, çok teşekkürler..
Üstad.. 1.nci satırda devam eden yılları da (2020 YILI, 2021 YILI...gibi) bir öncekine bağlı olarak birer birer artırabilir miyiz..
Çok da önemli değil, olmasa da olur. Asıl istenilen halledildi..
 

EmrExcel16

Destek Ekibi
Destek Ekibi
Katılım
1 Kasım 2012
Mesajlar
1,520
Excel Vers. ve Dili
Office 365 Türkçe
Bu şekilde deneyiniz..

Kod:
Sub Kopyala()
    SonSut = Cells(3, Columns.Count).End(1).Column
    Columns(SonSut - 14).Resize(, 15).Copy Columns(SonSut + 1).Resize(, 15)
    Cells(1, SonSut + 2) = Cells(1, SonSut + 2) + 1
End Sub
 

EKREM1661

Altın Üye
Katılım
10 Kasım 2006
Mesajlar
1,265
Excel Vers. ve Dili
Excel-2016
Çok harika olmuş üstad.. Elinize sağlık.. Hoşça kalınız..!
 

EmrExcel16

Destek Ekibi
Destek Ekibi
Katılım
1 Kasım 2012
Mesajlar
1,520
Excel Vers. ve Dili
Office 365 Türkçe
Rica ederim , sağlıklı günler..
 
Üst