Excel / VBA - Barevná část sloupce

Mám kód pro barevnou část řádku na základě toho, co je vloženo do konkrétního sloupce, ale chtěl bych tento kód transponovat tak, aby část sloupce byla barevná na základě údajů zadaných v řadě. Jak vyladit níže uvedený kód:

 Private Sub Worksheet_Change (Cíl Tarif jako ByVal jako rozsah) 'Když je v listu provedena změna ... Pokud se neprovádí průnik (cíl, rozsah ("B3: B100")), není nic pak' ... na všechny buňky z B3 do B100 (Role) ... Pokud Selection.Cells.Count> 1 Pak Exit Sub '(exit reoutine, pokud změny provedené na více než jedné buňce najednou - zabrání padání Vyberte Case Target Case "Manager"' ... zkontrolujte, zda buňka obsahuje "Správce" ... Rozsah ("A" & Target.Row & ": AG" & Target.Row) .Interior.ColorIndex = 36 '... a pokud ano, změňte barvu buněk v tomto řádku, od B - AH na světle žlutou. 'Další případy zde ... Konec Vyberte End If End Sub 

Řešení

Tady máš:

 Private Sub Worksheet_Change (Cílový cíl ByVal jako rozsah) Pokud je průsečík (cíl, rozsah ("A3: L3")) není nic nebo _ Selection.Cells.Count> 1 Potom Exit Sub Vyberte případový cíl "Správce" Rozsah (buňky (1, Target.Column), Cells (30, Target.Column)) Interior.ColorIndex = 36 End Select End Sub 

Díky TrowaD za tento tip.