MS Excel

Téma: Makro pro podbarvení buňky na základě podmínky

Zaslal/a Turekh83 29.5.2012 22:02

Ahoj, řeším problém, vytvořil jsem si makro na podbarvení buňky na základě funkce. Ale funguje mi to jen pro jeden řádek. Potřeboval bych radu, jak to upravit, aby to fungovalo pro pro všechny řádky v sloupci.

If Range("G11") < Range("G2") And Range("J11") = "Open" Then
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 6684927
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If

Díky za radu.

HT

Uzamčeno - nelze přidávat nové příspěvky.

Strana: « předchozí 1 2

RomanX(30.5.2012 13:41)#008681

To je jiná pak:i = 0
Do Until Range("G3").Offset(i, 0) = ""
If Range("G3").Offset(i, 0) < Range("G2") And Range("G3").Offset(i, 3) = "Open" Then
Range("G3").Offset(i, 0).Interior.Color = 6684927
Range("G3").Offset(i, 3).Interior.Color = 6684927

Else
Range("G3").Offset(i, 0).Interior.Color = xlNone
Range("G3").Offset(i, 3).Interior.Color = xlNone
End If
i = i + 1
Loopcitovat

turekh83(30.5.2012 14:29)#008682

RomanX

Přikládám soubor a shrnutí.

Potřebuji podbarvit buňky ve sloupci H pokud je splněna podmínka, že datum ve buňce sloupce G je menší než DNES() - G2 a zároveň je buňka ve sloupci J rovna Open.

Díky za pomoc

HT

Příloha: zip