Hromadná úprava podmíněného formátu makrem Vyřešeno

[MK_Vs]

Dobrý den,

v dokumentu mám vytvořeno 50 listů. Na každém listu se vyskytují 2 buňky s podmíněným formátováním pomocí vzorce, které bych potřeboval doplnit.
Na každém z 50-ti listů se bude jednat vždy o stejnou úpravu.

Uvažoval jsem nad nahráním makra. Toto však zůstane po ukončení nahrávání prázdné.
Při úprave funkce Ověření dat se naopak pomocí makra pracovat dá.

Je možno hromadně upravovat podmíměné formáty, případně jak?
Excel 2010.

Děkuji za pomoc.

MK

[Reklama]

[cmuch]

Kukni tady http://wall.cz/index.php?m=topic&id=13548#post-14251

[MK_Vs]

DObrý den,

děkuji za odkaz.

Přesto se mi nepodaří pomocí makra nahrazovat:

Např. v buňce A1 je vzorec: =KDYŽ(B$33="";"";A(B$33=Data!B$5)), buňka formátována červenou výplní.
Potřebuji nahradit za: =KDYŽ(B$33="";"";A(B$33=Data!B$5;B$33=Data!B$6)), buňka formátována modře.
Potřebuji doplnit další podmínku do A1: =A(B$33=Data!C$3), opět barevný formát.

Buněk, teré se budo měnit je více. Princip však zůstává stejný.

Toto budu opakovat ve všech buňkách na několika listech.

MK

[Azuzula]

Zdravím,
nevím jak Vám, ale mě to nahrát jde (excel 2010/win7). Na následujícím kódu se už snad dá stavět.

Kód: Vybrat vše

Sub nahrad_format()
'smaže podm. formát
Selection.FormatConditions.Delete
'první podmínka
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=KDYŽ(B$33="""";"""";A(B$33=Data!B$5;B$33=Data!B$6))"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .Color = 12611584
    .TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
'druhá podmínka
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=A(B$33=Data!C$3)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .Color = 255
    .TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub


[MK_Vs]

Dobrý den,

děkuji za reakci.

Nahrát šla jen změna Ověření dat.

Každopádně to nyní řeším takto:

- Ruční změna co je třeba v buňkách prvního listu
- Odstranění všech formátů a podmínek postupně ve všech listech - pro jistotu (makro)
- Kopie všech všech změněných buněk do jednotlivých listů makrem

Takto mohu upavit pokud bude nejhůře potřebné buňky a rozkopírovat dále.