IF, And, Then with two Criteria

[willhh3]

Hoping you all can give me a nudge in the right direction. I'm trying to do the below if/then with an AND and it's not working. I'm guessing I'm missing a reference for the bit after the AND, but not sure of the syntax.

Will add attachment, but essential this and code is below. Looking for a text to return in the Status Column.

Charter_Status Signature Status
Renewal Not Started No
Renewal Not Started No
On Hold No
In Progress Yes
On Hold No
In Progress No
Renewal Not Started No
Renewal Not Started No
In Progress Yes
On Hold No

Sub Macro2()
'
' Macro2 Macro
'
For Each Charter_Status In Range("A2:A11")
    If Charter_Status = "Renewal Not Started" Then
    Charter_Status.Offset(0, 2).Value = "Not Started"
    
    ElseIf Charter_Status = "In Progress" And Signature = "Yes" Then
    Charter_Status.Offset(0, 2).Value = "Waiting for FOR Signature"
    
    ElseIf Charter_Status = "In Progress" And Waiting_FOR_Signature = "No" Then
    Charter_Status.Offset(0, 2).Value = "In Progress"
    
    ElseIf Charter_Status = "On Hold" Then
    Charter_Status.Offset(0, 2).Value = "Hold"

    End If
    
Next Charter_Status
    
'
End Sub

[Glenn Kennedy]

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between [code] [/code] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)

[willhh3]

Done! Sorry about that; I've never posted code before, usually just questions.

[Glenn Kennedy]

Thanks!

Open for all VBA helpers (not me... totally infantile with VBA).

[AB33]

My first post in two years' time. Almost forgotten to code.

Option Explicit

Sub Macro2()
'
' Macro2 Macro
'
Dim Charter_Status As Range
For Each Charter_Status In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
    If Charter_Status = "Renewal Not Started" Then
        Charter_Status.Offset(0, 2).Value = "Not Started"
    
    ElseIf Charter_Status = "In Progress" And Charter_Status.Offset(0, 1).Value = "Yes" Then
        Charter_Status.Offset(0, 2).Value = "Waiting for for Signature"
        
    ElseIf Charter_Status = "In Progress" And Charter_Status.Offset(0, 1).Value = "No" Then
        Charter_Status.Offset(0, 2).Value = "In Progress"

    
    ElseIf Charter_Status = "On Hold" Then
        Charter_Status.Offset(0, 2).Value = "Hold"

    End If
    
Next Charter_Status
    
'
End Sub

[willhh3]

Thanks AB33! I see that I needed the Offset on the second value. Tested it in my sample and my full data worksheet. Works like a champ! Thanks for the guidance and quick turn-around!