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

[EKREM1661]

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?

 

[EKREM1661]

Neyse o zaman.. Şimdiye dek yaptığımız gibi manuel olarak devam ederiz..

 

[EmrExcel16]

Deneyiniz..

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]

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]

Bu şekilde deneyiniz..

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]

Çok harika olmuş üstad.. Elinize sağlık.. Hoşça kalınız..!

 

[EmrExcel16]

Rica ederim , sağlıklı günler..