Podmíněné Formátování celého řádku Vyřešeno

[jikom]

Dobrý den

Potreboval bych v celem liste nastavit podminene formatovani pro celi radek v zavislosti na urcite bunce.

Přiklad:
ve sloupci mam hodnoty:
OK
Storno
V reseni
atd

a potrebuji aby radek ktery ma v danem sloupci "OK" aby byl zeleny atd

Pokud by to slo automatickym makrem byl bych radeji. Podminene formatovani zbytecne zvetsuje soubor.

Dekuji Jirka

[Reklama]

[mike007]

Vítej na Pc-help

Označ řádky, jdi do podmíněného formátování a tam nastav tuto podmínku:

[jikom]

Funguje děkuji moc

[navstevnik]

Pozadovana procedura VBA (v editoru VBA - Alt+F11 - vloz do modulu prislusneho listu):

Kód: Vybrat vše

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Radek As Range, IntClr As Byte
  If Target.Column <> 1 Then Exit Sub
  Set Radek = Target.Resize(Target.Rows.Count, Cells.SpecialCells(xlLastCell).Column)
  ' kdyz Del pro vice bunek
  If Target.Count > 1 Then Set Target = Target.Resize(1, 1)
  Select Case Target.Value
    Case "OK"
      IntClr = 4
    Case "Storno"
      IntClr = 3
    Case "V reseni"
      IntClr = 6
      ' dalsi
    Case Else
      IntClr = 0
  End Select
  Radek.Interior.ColorIndex = IntClr
End Sub

[leew]

Dobrý den,
hledal jsem na internetu řešení jak formátovat celý řádek a s radostí jsem našel toto řešení a využil ho.

Funguje skvěle ale mám tam jeden problém:

Když vložím text do buňky (zkopírovaný z emailu) s jiným formátem (než je v buňce) pak se mě po podmíněném formátováním, kdy se má celý řádek zabarvit dle podmínek, se buňky kde byl text vložen nezabarví. zabarví se pouze buňky kde byl text vepsán (vyplněn ručně).

Snad jsem to vysvětlil srozumitelně.

Děkuji
Marek

[mike007]

Ctrl+C text z mailu --> Excel: Klik pravým do buňky a vyber Vložit jinak --> Hodnoty