MS Excel

Pred ten cyklus dajte
Application.DisplayAlerts = False
a za ním
Application.DisplayAlerts = True
Ale to makro je napísané hrozne. Navyše mne ani neprejde hneď na začiatku
MyDate = Mid...
To bude asi záležať na jazykovom prostredí, či dovolí vložiť do premennej Date text "2.2023" tak, že pozná, že ide o 1.2.2023. U mňa končí chybou.

Nerozumiem, načo to stále preformátovávate, veď zmažte iba hodnoty a vypĺňajte iba tie, a nie zmažete formáty a znovu nastavujete. Navyše po jednom, nie hromadne... Veď to majte ako šablónu.

Nemusíte vypĺňať niekoľko dátumov, stačí jeden a nech si vzorcom ostatné dopočíta.

Počet dní v mesiaci sa dá predsa zistiť úplne inak ako podľa čísla mesiaca v 12-ich if then

Nie je zabezpečené, že je aktivovaný správny list a pracuje sa iba s Cells namiesto With Worksheets(x)

To rozdelenie textu na stĺpce predsa nemusíte robiť takto, ale pomocou funkcie Split()

...

Celé makro by bolo dobré preprogramovať.citovat

Neviem, ako často sem chodíte, ale občas sem mrknite, možno Vám to prerobím. Len si to musím najskôr poriadne pozrieť, vyvodiť nejaké logické súvislosti (pretože to nie je kompletné), pochopiť, čo asi chcete urobiť, a ak nenarazím na zásadný logický rozpor, tak to prerobím. Ale ak narazím na nejakú "drobnosť" tak ma žiaľ už prestáva v poslednom čase baviť snaha o dolovanie odpovedí od užívateľov ... v tom prípade to asi iba zahodím ... citovat