MS Excel

Myslíte toto ? - vložiť kód do listu "List2 (Plán)"
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Cells(2, 3)) Is Nothing Then
Application.EnableEvents = False
If Cells(2, 3) Mod 4 = 0 Then Call Makro2 Else Call Makro1
Application.EnableEvents = True
End If
End Subcitovat

Ešte by stálo za to poukázať na možný problém s EnableEvents. Ak totiž volané makro skončí chybou, debuguje, užívateľ to následne Stopne, lebo si nebude vedieť rady, tak udalosti ostanú vypnuté. V tomto prípade je pravdepodobnosť dosť malá, že pri kopírovaní nastane chyba, ale ak by sa jednalo o zložitejšie makro, tak by som odporúčal procedúry zmeniť na funkcie, obaliť ich On Error kontrolou, a riadiacej procedúre poslať info o prípadnej chybe. Aby užívateľ vedel o chybe (to by zistil aj bez toho), ale aby EnableEvents ostalo zapnuté.
Teda napr.:
Function Makro1() As Boolean
'
'Nepřestupný

On Error GoTo KONIEC
Range("BB45:BE61").Copy Destination:=Range("AF45:AI45")
Exit Function
KONIEC:
Makro1 = True
End Function
Function Makro2() As Boolean
'
' Přestupný

On Error GoTo KONIEC
Range("AU45:AX61").Copy Destination:=Range("AF45:AI45")
Exit Function
KONIEC:
Makro2 = True
End Function

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Chyba As Boolean
If Not Intersect(Target, Cells(2, 3)) Is Nothing Then
Application.EnableEvents = False
If Cells(2, 3) Mod 4 = 0 Then Chyba = Makro2 Else Chyba = Makro1
If Chyba Then MsgBox ("Nastala chyba.")
Application.EnableEvents = True
End If
End Sub

Zmenil som Vám tam kopírovanie na oveľa jednoduchšie, ak už ten február/únor chcete riešiť takto.citovat

Moc děkuji.
Ten kód je přesně to jsem potřeboval.
Více jak týden jsem to řešil.
Prostě kdo umí tak umí. Mám zase o čem přemýšlet.
A poznatky určitě využiji jak makro tak vzorec.
Ještě jednou díky.
Pepčacitovat

Tak aby bola ešte väčšia sranda, dnes som sa venoval prevážne Vám
"Trochu" som Vám to prerobil - prekopané je úplne všetko.

-podmienené aj normálne formátovanie
-vzorce
-dátumy
-nezáleží na mutácii SK či CZ
-všetok neporiadok okolo tabuliek preč
-správne upravovanie februáru aj s formátovaním, zlúčenými bunkami ...
-úprava nesprávnych areas v range v kopírovanej oblasti
-automatické skoky na zvolený mesiac (overenie dát)
-zbytočné riadky a stĺpce preč
-schovávanie a odkrývanie iba prázdnych riadkov a iba v tabuľkách

Ja vlastne už ani neviem čo všetko...
Mrknite, a povedzte, čo ste to tam ešte chceli formátovať tým
MOD(D5;7)<2
v podmienenom formátovaní ? Majú byť pracovné dni až po 2 týždňoch po novom roku, či čo ?

EDIT: upravené jedno zlé číslo stĺpca v makre.
Skontrolujte si, či máte v roku 2016 v bunke AK163 hodnotu True (potom si tú bunku zmažte). Ak áno tak Vám to formátovanie sviatkov fungovať musí.citovat