25. juli 2014 - 09:53Der er
3 kommentarer og 1 løsning
Skift af status med formler (evt. flere hvis funktioner)
Vi har en vare som skifter status ved indtastning af datoer i nogle celler. Vi skal i en kolonne kunne se hvilken status varen har.
Cellerne bliver udfyldt når status er indtruffet.
Celle A1: dato1 Celle B1: dato2 Celle C1: dato3 Celle D1: dato4 Celle E1: dato5
Resultatet fra formlen skal stå i celle F1
Argument Resultat fra formlen: 1: A1 er udfyldt Status1 2: B1 er udfyldt Status2 3: C1 er udfyldt Status3 4: D1 er udfyldt Status4 5: E1 er udfyldt Sendt til kunde
En mulighed kunne være en funktion. Denne funktion skal ligge i et modul. Ny kan du selv skrive hvilken status de forskellige dator skal vise. Der checkes 'baglæns' for at finde den sidst indtastede dato. Det er lavet så datoer ikke _skal_ stå i A1:A5 da de blot tages med som en Range. Det er meget simpelt lavet, der checkes kun om en celle i området A1:A5 ikke er tom, så forventes det der er skrevet en dato. Et hvilket som helst input der gør at cellen ikke er tom vil give denne status.
Function updateStatus(dates As Range) As String
Dim retVal As String
retVal = ""
If (dates.Cells(5, 1) <> "") Then retVal = "Sendt til kunde" ElseIf (dates.Cells(4, 1) <> "") Then retVal = "Status 4" ElseIf (dates.Cells(3, 1) <> "") Then retVal = "Status3" ElseIf (dates.Cells(2, 1) <> "") Then retVal = "Status 2" ElseIf (dates.Cells(1, 1) <> "") Then retVal = "status 1" End If
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.
