Tabloda standart ve periyodik sütun artırımı

[EKREM1661]

Değerli arkadaşlar.. Ekli dosyada, tablonun son 4 sütunu, her yıl sonunda yeni yıl için çoğaltılıyor. Ancak bunun makro koduna bir ilave yapılması gerekiyor. (Her yılın başlangıç tarihinin artırılması)

 

[YUSUF44]

Aşağıdaki kodu deneyiniz:

Private Sub CommandButton2_Click()
Uyarı = MsgBox("Senelik izin verilerin işlendiği, 4 Sütunluk Yeni bir Yıl Oluşturulacak..!" & _
        vbCrLf & " " & vbCrLf & "Devam Edilsin mi.?", vbSystemModal + vbInformation + vbYesNo, "SİLİNME UYARISI")
If Uyarı = 6 Then
Else: Exit Sub
End If
sonsut = Cells(3, Columns.Count).End(1).Column
Columns(sonsut - 3).Resize(, 4).Copy Columns(sonsut + 1).Resize(, 4)
Cells(1, sonsut + 1) = Cells(1, sonsut + 1) + 1
Cells(2, sonsut + 2) = WorksheetFunction.EoMonth(Cells(2, sonsut - 2), 11) + 1
sonsat = WorksheetFunction.Max(Cells(Rows.Count, sonsut - 1).End(3).Row, 5)
Range(Cells(5, sonsut + 3), Cells(sonsat, sonsut + 3)).ClearContents
End Sub

 

[EKREM1661]

Yusuf hocam, harika olmuş.. Çok teşekkürler ve hayırlı çalışmalar.. Hoşça kalınız