Hvis jeg nu har "Titel" i kolonne K. De ligger i en valideringsliste .
RESERVE ASS. OPPASSER VÆRKFØRER TILLIDSREPRÆSTANT
i Kolonne M har jeg ligeledes i en valideringsliste "Status"
DAG AFTEN NAT FERIE SYG
Hver "Titel" skal farvelægge (Row "B:M")
Det jeg vil vise i regnarket er: eksempel En RESERVE skal farvelægges med Colorindex= 43, uanset om vedkommende er på DAG, AFTEN eller NAT En OPPASSER skal farvelægges med Colorindex= 22, uanset om vedkommende er på DAG, AFTEN eller NAT
Derimod vil en ASS skulle farvelægges ud fra om vedkommende er på: DAG ColorIndex = 19 AFTEN ColorIndex = 33 NAT ColorIndex = 44
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = True On Error Resume Next
If Not Intersect(Target, Range("M:M")) Is Nothing Then If UCase(Range("K" & CStr(Target.Row)).Value) = UCase("ASS.") Then ControledByColumnK Target.Offset(0, -2) Else ControledByColumnM Target End If End If
If Not Intersect(Target, Range("K:K")) Is Nothing Then If UCase(Range("K" & CStr(Target.Row)).Value) = UCase("ASS.") Then ControledByColumnK Target Else ControledByColumnM Target.Offset(0, 2) End If End If Application.EnableEvents = True End Sub
Private Sub ControledByColumnK(ByVal rCell As Range) ' Farver ASS. farve Range("B" & rCell.Row & ":M" & rCell.Row).Interior.ColorIndex = 50 'Ret til rigtigt nr Range("B" & rCell.Row & ":M" & rCell.Row).Font.ColorIndex = 1 End Sub
ingen årsag - blot accepter et svar og luk spørgsmålet igen :-)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
