MS Excel

Samozřejmě že lze. Buď celý kalendář měsíce nebo s vyznačením pracovních dnů, svátků a kde čeho možného nebo jen pracovní dny.
V tomto směru neexistuje téměř žádné omezení.citovat

Tady je makro co to provede,
Podle potřeb si pouprav.

Sub CountDayMonth()
Dim Feb As Byte, Month As Byte,i As Byte

Month = Range("A1")

If (Format(Now, "yyyy") / 4) = (Format(Now, "yyyy") \ 4) Then
Feb = 29
Else
Feb = 28
End If

GetMonth = Choose(Month, 31, Feb, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)

For i = 1 To GetMonth
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Format(i, "00") & "." & Format(Month, "00")
Next i
End Subcitovat

Kluci děkuju moc, oboum to funguje parádně, jen mě ne
Takže jestli Vás mohu poprosit o korekci.

Sheet 1 je master, kde je udělaná tabulka atd.
Tam vyplním číslo měsíce,na základě kterého se mi přepočítá v sheetu datum a vypíše den.To mi funguje.
Po spuštění makra potřebuju aby se ten celý list zkopíroval do následujících záložek podle následujícího datumu.Tzn: Sheet 1 bude 01.10.14 a generování bude od 02 - 31.10.14 včetně obsahu sheetu 1 ale s tím, že se změní i datum v B7.
Protože nejsem v ČR tak pátky se musí vypustit takže pracovní dny jsou sobota - čtvrtek.
Takže název listu musí být dd.mm.yy, nemusí být barevný(ale je to hezké, díky opičáku!!!)

Zjistil jsem, že na tohle jsem úplně levej a ať zkouším cokoliv tak mám výpis všech možných errorů jen ne to co bych chtěl

Jestli mi můžete pomoct, budu Vám zauzlován!!!citovat

Jsi génius, funguje to skvěle!!! Jam mám ještě udělat aby mi to negenerovalo list který připadá na pátek?citovat

dovolil jsem si do makra od @cmuch1 vložit řadek pro eliminaci pátku . Snad to nebude vadit.

Sub CopyDayMonth()
Dim dtm As Variant
Dim Feb As Byte, Month As Byte, i As Byte

Application.ScreenUpdating = False
Month = Range("B2")

If (Format(Now, "yyyy") / 4) = (Format(Now, "yyyy") \ 4) Then
Feb = 29
Else
Feb = 28
End If
GetMonth = Choose(Month, 31, Feb, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)

For i = 2 To GetMonth
dtm = Format(i, "00") & "." & Format(Month, "00") & "." & Format(Range("B7"), "yy")
If Not Weekday(CDate(dtm), vbMonday) = 5 Then '5 se rovná pátek alespon tady v ČR :-D

Sheets(Sheets.Count).Copy After:=Sheets(ThisWorkbook.Sheets.Count)
Sheets(Sheets.Count).Name = dtm
Range("B7").Formula = "=DATE(" & Format(Range("B7"), "yyyy") & ",B2," & i & ")"
Calculate
End If
Next i
Sheets(1).Select
Application.ScreenUpdating = True
End Subcitovat