|
Hej med Jer
Jeg sidder med et større Excel ark der registrerer nogle reklamationer. Til det vil jeg gerne have excel til at angive hvornår en reklamation er Low, Medium, High, Critical.
Dette skal være udfra følgende kriterier:
Low: - Dato for oprettelse (registreret med Timestamp) er lig med dd. - Totalen af kostprisen er under 3000 kr. - Der er anført en test i Action 1 (Felt)
Medium: - Dato for oprettelse (registreret med Timestamp) er ældre end dd. + 2 dage - Totalen af kostprisen er lig med 3000 kr. - Der er anført en test i Action 1 & 2 (Felt)
High: - Dato for oprettelse (registreret med Timestamp) er ældre end dd. + 5 dage - Totalen af kostprisen er højere end 3000 kr. - Der er anført en test i Action 1, 2 & 3 (Felt)
Critical: - Dato for oprettelse (registreret med Timestamp) er ældre end dd. + 7 dage - Totalen af kostprisen er højere 3000 kr. - Der er anført en test i Action 1, 2 & 3 (Felt)
Jeg har fået det meste af det til at virke. Men det med datoerne kan jeg simpelthen ikke få til at virke. Kan I evt. hjælpe mig?
Evt. optimeringer af koden er hjertens velkommen, da jeg stadig er ny i denne form for kodning.
H29 = Timestamp C25 = Today()
Min kode ser således ud:
Private Sub Claim_Importance() If Range("C25").Value = Range("H29").Value Or Range("AA29").Value > 3000 Or Range("AD29").Value > 0 Then Range("C29").Value = "Low" End If If Range("H29").Value + 2 > Range("C25").Value Or Range("AE29").Value > 0 Or Range("AA29").Value = 3000 Then Range("C29").Value = "Medium" End If If Range("H29").Value + 5 > Range("C25").Value Or Range("AF29").Value > 0 Or Range("AA29").Value > 3000 Then Range("C29").Value = "High" End If If Range("H29").Value + 7 > Range("C25").Value Then Range("C29").Value = "Critical" End If If Range("AA29").Value > 3000 Then Range("C29").Value = "Needs Approval" ElseIf Range("H29").Value = "" Then Range("C29").Value = "" End If End Sub
De bedste hilsner
Daniel
|