Navigation

   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 

Navigation

Udfordring med datoer i VBA