Excel / VBA - Kolor części kolumny

Mam kod do kolorowania części wiersza na podstawie tego, co jest wprowadzone do konkretnej kolumny, ale chciałbym przetransponować ten kod, tak aby część kolumny została zabarwiona na podstawie danych wprowadzonych z rzędu. Jak poprawić poniższy kod:

 Private Sub Worksheet_Change (ByVal Target As Range) 'Kiedy dokonano zmiany w arkuszu ... If Not Intersect (Target, Range ("B3: B100")) Is Nothing Then' ... do dowolnych komórek od B3 do B100 (Rola) ... Jeśli Selection.Cells.Count> 1 Następnie Wyjdź Sub '(zakończ reoutine, jeśli zmiany zostały wprowadzone do więcej niż jednej komórki naraz - uniemożliwia zawieszenie przypadku Wybierz przypadek „Menedżer” „... sprawdź, czy komórka zawiera „Manager” ... Zakres („A” i Target.Row & „: AG” & Target.Row) .Interior.ColorIndex = 36 ”... i jeśli tak, zmień kolor komórek w tym wierszu, z B - AH do bladożółtego. ”Inne przypadki tutaj .... Koniec Wybierz Koniec jeśli koniec Sub 

Rozwiązanie

Proszę bardzo:

 Private Sub Worksheet_Change (ByVal Target as Range) If Intersect (Target, Range („A3: L3”)) Is Nothing or _ Selection.Cells.Count> 1 Następnie Exit Sub Select Case Case Case „Manager” Range (Cells (1, Target.Column), Cells (30, Target.Column)). Interior.ColorIndex = 36 End Select End Sub 

Dzięki TrowaD za tę wskazówkę.