Betinget formatering eller lign. søges

Hvad bestemmer ordrens farve på arket Værksted?

Du er velkommen til at sende filen - så er det lidt nemmere at komme med et forslag. Må det være VBA?
@-adresse under min profil.

Farven bestemmes ud fra hvor langt den er i processen, om den kan pakkes, eller sættes i gang, eller den skal til maleren osv.

jeg sender en mail til dig med emne feltet:

Spørgsmål fra Eksperten vedr. betinget formatering

Kode anbragt under Værksted:

Const dataRækkeStart = 5
Const kolonneOrdreNr = "E"
Dim antalRækker As Integer

Const værkstedArkNavn = "Hurtigskift"
Const ordrebeholdningArkNavn = "Ordre beholdning"
Const fragtmandArkNavn = "Fragtmand"

Dim sysArk As Worksheet
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim ræk As Integer, ordreNr, farveNr
   
    If Target.Address = "$E$1" Then
        Cancel = True
        Application.ScreenUpdating = False
       
        Set sysArk = ActiveWorkbook.Sheets(værkstedArkNavn)
   
        antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
       
        For ræk = dataRækkeStart To antalRækker
            If Range(kolonneOrdreNr & ræk) <> "" Then
                ordreNr = Range(kolonneOrdreNr & ræk).Value
                farveNr = Range(kolonneOrdreNr & ræk).Interior.ColorIndex
               
                justerFarve ordrebeholdningArkNavn, ordreNr, farveNr
                justerFarve fragtmandArkNavn, ordreNr, farveNr
            End If
        Next ræk
    End If
   
    Application.ScreenUpdating = True
    ActiveWorkbook.Sheets(ordrebeholdningArkNavn).Activate
End Sub
Private Sub justerFarve(arkNavn, ordreNr, farveNr)
Dim antalRækker As Integer, ræk As Integer
    ActiveWorkbook.Sheets(arkNavn).Activate
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
    For ræk = 1 To antalRækker
        If ActiveSheet.Range(kolonneOrdreNr & ræk) = ordreNr Then
            ActiveSheet.Rows(CStr(ræk) & ":" & CStr(ræk)).Select
            Selection.Interior.ColorIndex = farveNr
            sysArk.Activate
            Exit Sub
        End If
    Next ræk
End Sub

Det virker!

tak for det!

kan man få den til og søge på 2 kolonner mere så den søger på 3 kolonner og ikke kun 1 så giver det den helt rigtige resultat?

tak for hjælpen!!!