Değerli arkadaşlar
içinden çıkamadığım bir konuda yardım ederseniz sevinirim.
Aşagıda kullandığım makro, çalışma kitabında tarihli sayfa açıyor fakat her açtığı sayfaya şablon sayfasını kopyalasın veya çoğaltsın istiyorum. Bir de bu makroda tatil günlerini yazdırmak istemiyorum.
Yardımlarınız için şimdiden teşekkür ederim.
Sub DayWorkbook()
Dim iWeek As Integer
Dim sht As Variant
Dim sTemp As String
Dim dSDate As Date
sTemp = InputBox("Date for the first worksheet:", "")
dSDate = CDate(sTemp)
Application.ScreenUpdating = False
Worksheets.Add After:=Worksheets(Worksheets.Count), _
Count:=(365 - Worksheets.Count)
For Each sht In Worksheets
sht.Name = Format(dSDate, "dd-mmm-yyyy")
dSDate = dSDate + 1
Next sht
Application.ScreenUpdating = True
End Sub
içinden çıkamadığım bir konuda yardım ederseniz sevinirim.
Aşagıda kullandığım makro, çalışma kitabında tarihli sayfa açıyor fakat her açtığı sayfaya şablon sayfasını kopyalasın veya çoğaltsın istiyorum. Bir de bu makroda tatil günlerini yazdırmak istemiyorum.
Yardımlarınız için şimdiden teşekkür ederim.
Sub DayWorkbook()
Dim iWeek As Integer
Dim sht As Variant
Dim sTemp As String
Dim dSDate As Date
sTemp = InputBox("Date for the first worksheet:", "")
dSDate = CDate(sTemp)
Application.ScreenUpdating = False
Worksheets.Add After:=Worksheets(Worksheets.Count), _
Count:=(365 - Worksheets.Count)
For Each sht In Worksheets
sht.Name = Format(dSDate, "dd-mmm-yyyy")
dSDate = dSDate + 1
Next sht
Application.ScreenUpdating = True
End Sub
