PS: příloha
Příloha: 
36791_barva-bunky.rar (221kB, staženo 36x)
citovat36791_barva-bunky.rar (221kB, staženo 36x)
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Barva buňky za určité podmínky
Ani toto nepomohlo, i tak děkuji, že se snažíš pomoc.citovat
MS Excel
Téma: Barva buňky za určité podmínky 
Zaslal/a Raders486 4.7.2017 14:15
Ahoj.
Pro někoho banalita pro mě neřešitelný problém.
Chtěl bych požádat o proceduru na:
a) Když buňka ve sloupci "M"= než hodnota buňky ActiveCell.Offset(0, -1) tak barva buňky třeba zelená
b) Když buňka ve sloupci "M"< než hodnota ActiveCell.Offset(0, -1) tak nic
c) Když buňka ve sloupci "M"> než hodnota ActiveCell.Offset(0, -1) tak barva buňky třeba červená
To vše od řádku 3 po poslední obsazenou buňku ve sloupci "M"
Děkuji
Radek
Ale na to v poho stačí Podmienené formátovanie. Určite potrebujete makro ?
Příloha: 36794_barva-bunky.zip (225kB, staženo 32x)
citovat36794_barva-bunky.zip (225kB, staženo 32x)Ahoj.
Přes podmíněné formátování jsem se to pokoušel dosadit a právě že mi to nešlo.
Když to vidím, tak už si s makrem poradím.
Děkuji
Radekcitovat
Přes podmíněné formátování jsem se to pokoušel dosadit a právě že mi to nešlo.
Když to vidím, tak už si s makrem poradím.
Děkuji
Radekcitovat
Tak beru zpět.
Jsem úplný trotl a ani tvoje ukázka mi nepomůže.
Pokoušel jsem se tvůj vzorec pro červené podbarvení=A($M1<>"";ŘÁDEK($M1)>2;$L1<$M1)přepsat do sloupce N a O, protože tam potřebuji toto podmíněné formátování a když jsem to upravil =A($N1<>"";ŘÁDEK($N1)>2;$M1<$N1) =A($O1<>"";ŘÁDEK($O1)>2;$M1<$O1)tak mi to stejně nejde.
Pokud tedy mohu požádat, potřeboval bych to upravit tak jak jsi ve tvé příloze porovnával sloupce M s L (chyba v mém zadání) tak já potřebuji porovnat N s M a pak O s M.
Pokud by šlo upravit do makra, bylo by to skvělé, při aktualizaci se celý list maže a tak bych musel podmíněné formátování nahazovat pokaždé ručně.
Děkuji
Radekcitovat
Jsem úplný trotl a ani tvoje ukázka mi nepomůže.
Pokoušel jsem se tvůj vzorec pro červené podbarvení=A($M1<>"";ŘÁDEK($M1)>2;$L1<$M1)přepsat do sloupce N a O, protože tam potřebuji toto podmíněné formátování a když jsem to upravil =A($N1<>"";ŘÁDEK($N1)>2;$M1<$N1) =A($O1<>"";ŘÁDEK($O1)>2;$M1<$O1)tak mi to stejně nejde.
Pokud tedy mohu požádat, potřeboval bych to upravit tak jak jsi ve tvé příloze porovnával sloupce M s L (chyba v mém zadání) tak já potřebuji porovnat N s M a pak O s M.
Pokud by šlo upravit do makra, bylo by to skvělé, při aktualizaci se celý list maže a tak bych musel podmíněné formátování nahazovat pokaždé ručně.
Děkuji
Radekcitovat
Už som z toho LMNO fakt domýlený. PF sa dá obnoviť aj makrom napr.:
Sub AktualizacePF()
Application.ScreenUpdating = False
With Columns(14)
With .FormatConditions
.Delete
.Add Type:=xlExpression, Formula1:="=AND($N1<>"""";ROW($N1)>2;$M1=$N1)"
.Add Type:=xlExpression, Formula1:="=AND($N1<>"""";ROW($N1)>2;$M1<$N2)"
End With
.FormatConditions(1).Interior.Color = 5296274
.FormatConditions(2).Interior.Color = 255
End With
With Columns(15)
With .FormatConditions
.Delete
.Add Type:=xlExpression, Formula1:="=AND($O1<>"""";ROW($O1)>2;$M1=$O1)"
.Add Type:=xlExpression, Formula1:="=AND($O1<>"""";ROW($O1)>2;$M1<$O2)"
End With
.FormatConditions(1).Interior.Color = 5296274
.FormatConditions(2).Interior.Color = 255
End With
Application.ScreenUpdating = True
End Sub
Sub AktualizacePF()
Application.ScreenUpdating = False
With Columns(14)
With .FormatConditions
.Delete
.Add Type:=xlExpression, Formula1:="=AND($N1<>"""";ROW($N1)>2;$M1=$N1)"
.Add Type:=xlExpression, Formula1:="=AND($N1<>"""";ROW($N1)>2;$M1<$N2)"
End With
.FormatConditions(1).Interior.Color = 5296274
.FormatConditions(2).Interior.Color = 255
End With
With Columns(15)
With .FormatConditions
.Delete
.Add Type:=xlExpression, Formula1:="=AND($O1<>"""";ROW($O1)>2;$M1=$O1)"
.Add Type:=xlExpression, Formula1:="=AND($O1<>"""";ROW($O1)>2;$M1<$O2)"
End With
.FormatConditions(1).Interior.Color = 5296274
.FormatConditions(2).Interior.Color = 255
End With
Application.ScreenUpdating = True
End Sub
Příloha: 36797_barva-bunky.zip (233kB, staženo 27x)
citovat36797_barva-bunky.zip (233kB, staženo 27x)Tak už vážně nevím.
Když spustím tvoje makro, tak v podmíněném formátování vidím že naformátování buněk proběhlo, ale v tabulce vizuálně žádná barva, viz. příloha.
Je chyba někde u mě v excelu?
Vyzkoušel jsem i přes vzdálenou plochu na jiném PC a stejný výsledek.
Nechápu jak to, že tobě se to ve tvé příloze provedlo i vizuálně v tabulce.
Omlouvám se pokud je chyba mezi klávesnicí a židlí, ale nemyslím si to.
Když spustím tvoje makro, tak v podmíněném formátování vidím že naformátování buněk proběhlo, ale v tabulce vizuálně žádná barva, viz. příloha.
Je chyba někde u mě v excelu?
Vyzkoušel jsem i přes vzdálenou plochu na jiném PC a stejný výsledek.
Nechápu jak to, že tobě se to ve tvé příloze provedlo i vizuálně v tabulce.
Omlouvám se pokud je chyba mezi klávesnicí a židlí, ale nemyslím si to.
Příloha: 36801_barva-bunky.rar (229kB, staženo 25x)
citovat36801_barva-bunky.rar (229kB, staženo 25x)Zatiaľ žiaľ neviem, prečo sa tak deje. Stačí potom iba v správcovi pravidiel dvojklikom otvoriť pravidlo, a OK potvrdiť, bez akéhokoľvek zásahu, a po stlačení Použiť, už funguje normálne.
Snáď niekto má riešenie (kalkulácia listu s tým nič neurobí)...citovat
Snáď niekto má riešenie (kalkulácia listu s tým nič neurobí)...citovat
elninoslov napsal/a:
Stačí potom iba v správcovi pravidiel dvojklikom otvoriť pravidlo, a OK potvrdiť, bez akéhokoľvek zásahu, a po stlačení Použiť, už funguje normálne.
Ani toto nepomohlo, i tak děkuji, že se snažíš pomoc.citovat
(5.7.2017 22:17)#036805
Jojo, pořád stejný problém! Český Excel!.Add Type:=xlExpression, Formula1:="=A($N1<>"""";ŘÁDEK()>2;$M1=$N1)"Pokud to nejde napsat s nějakým "Local".citovat
Na SK/CZ prevody myslím neustále, ale teraz som na to zabudol. Pritom ma to mohlo trknúť, keď som tam ten vzorec chcel zapísať v EN, tak ako sa to pri vkladaní vzorca vo VBA robí, a nechcelo mi zožrať "," ale iba ";" ako oddeľovač parametrov.
No snáď to bude ono, lebo mi stále vŕta hlavou to, že v tej poslednej prílohe od Radek-Klepacek je pre moju SK verziu Excelu správny vzorec, ale ani ten nefachá, pokiaľ neurobím to "kúzlo" s otvorením a potvrdením pravidla.
No uvidíme.
PS: V prípade ak hrozí použitie na multijazykovej platforme :
Ak FormatConditions podporuje iba FormulaLocal, tak sa to dá ofajať napr. dočasným vložením EN vzorca do bunky (iba na to určenej) ako Formula, a načítať ho z nej ako FormulaLocal.citovat
No snáď to bude ono, lebo mi stále vŕta hlavou to, že v tej poslednej prílohe od Radek-Klepacek je pre moju SK verziu Excelu správny vzorec, ale ani ten nefachá, pokiaľ neurobím to "kúzlo" s otvorením a potvrdením pravidla.
No uvidíme.
PS: V prípade ak hrozí použitie na multijazykovej platforme :
Ak FormatConditions podporuje iba FormulaLocal, tak sa to dá ofajať napr. dočasným vložením EN vzorca do bunky (iba na to určenej) ako Formula, a načítať ho z nej ako FormulaLocal.citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články