Ben kasa defteri tutuyorum. Günlük kasa cirosu bilgilerini her ayrı bir çalışma sayfasında muhafaza ediyorum. Bu konu hakkında epey araştırma yaptım şu makro kodunu buldum fakat benim pek işime yaramıyor. Ben bunu tarihsel olarak nasıl ayarlıyabilirim yardımcı olunuz.
Public Sub Sayfa_Ad_Degistir()
For i = 1 To Sheets.Count
Sheets(i).Select
ActiveSheet.Name = Format(i, "00") & " 07"
Next i
End Sub
Yani 01.07 02.07 03.07 ..... 30.07 31.07 olduktan sonra 01.08 olarak geçiş yapmasını veya 31.07 de makronun duraklamasını ondan sonraki çalışma sayfası adının 01.08 den baslıyarak 30.08'e kadar çalışma sayfası adını değiştirmesini istiyorum.
Public Sub Sayfa_Ad_Degistir()
For i = 1 To Sheets.Count
Sheets(i).Select
ActiveSheet.Name = Format(i, "00") & " 07"
Next i
End Sub
Yani 01.07 02.07 03.07 ..... 30.07 31.07 olduktan sonra 01.08 olarak geçiş yapmasını veya 31.07 de makronun duraklamasını ondan sonraki çalışma sayfası adının 01.08 den baslıyarak 30.08'e kadar çalışma sayfası adını değiştirmesini istiyorum.