How to make Claim Importance show Low,Medium,High or Critical

Hi guys.

I really hope someone can help me. I am new to VBA and I have a large Excel sheet, that needs to be optimized. I need the cells in column "C" to show Low, Medium, High or Critical due to certain criteria.

- Cell "C25" is todays date inserted with the Today() formula.
- Column "H" is a Claim date, stated by a timestamp()
- Cell "AA" is the total value of a product
- Cell "AD" is an Action field with text

First of all, if a cell or row is blank, Range("C") must be blank as well.

And this function needs to apply as Column "C" becomes active.

If you are able to even optimize the code, please fell free to do so


My code:

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

Best regards

Daniel

Welcome to the forum

Please attach a sample workbook (not a picture or pasted copy). Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.



Why do you need VBA for this. It looks as though formulae would be sufficient.

For curser movement;

File--> options
Advanced--> After pressing Enter move selection
Direction--> Select Right

In the above code there is nothing much common. Optimization does not help much.

I need the cursor to move to the next cell in the next column where the user needs to type data

No problem. What the above quote says.