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

8682_ots-pm-review_ver2.zip (65kB, staženo 33x)

citovat

Poki(30.5.2012 14:39)#008683

Nesledoval jsem cele vlakno, ale proc to neudelat podminenym formatem???
napr. takto?

Příloha: zip

8683_ots-pm-review_ver2.zip (65kB, staženo 66x)

citovat

turekh83(30.5.2012 15:33)#008685

To: Poki

Díky to je přesně co jsem potřeboval. To A ve vzorci podmíněného formátování jsem neznal.

Problem vyřešen.

Honza Tcitovat

Strana: « předchozí 1 2

Uživatelské menu

Nejste přihlášen(a)

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.