Trouble with a loop

[CJG19]

Good Morning,

After hours of trying to get the below to work, I realise I need a little more help on the below:

To my mind BM with £12,141 and BN £0 should pop up with a message box and turn red in BO "No" but it isn't working. I can't for the life of me work out why, can someone help please?

TIA!!

CJG19

 

[Peter_SSs]

Does column BN contain formulas?
One possibility is that the 0.00 you see in BN is actually something like 0.0000002 and therefore is not zero.

In a blank cell put this formula pointed at the row in question & see what it returns

=BN15=0

 

[Engberg]

You're checking for "No", but your BO-column is filled with "NO". Those are not the same.

 

[Peter_SSs]

You're checking for "No", but your BO-column is filled with "NO". Those are not the same.

Good spotting I went straight past that.

 

[CJG19]

Perfect, thank you so much!

Another quick question, is there a way of making the MsgBox a yes/no?

 

[Engberg]

vbYesNo instead of vbInformation. To "save and use" the user answer and do something with it you can do:

response = MsgBox "whatever", vbYesNo, "whatever"
If response = vbYes Then
    'do something
End If

 

[CJG19]

Thanks Engberg!

I am trying to get - if the answer is yes, change the active cell to Yes and turn green - final query I promise!

Thank you for all of your help so far!!

CJG19

 

[Peter_SSs]

@CJG19
In future, please post your actual code not a picture of it. That way helpers can copy it to test with, which cannot be done from an image.
My signature block below has more information about posting code using code tags - as @Engberg has done

 

[CJG19]

Apologies, please see below:

Thanks @Engberg!

I am trying to get - if the answer is yes, change the active cell to Yes and turn green - final query I promise!

Sub Final_Account_Cert()

Range("BO5").Select
'Begin the loop
Do Until ActiveCell.Value = ""
If ActiveCell.Value = "NO" And ActiveCell.Offset(0, -2) > 0 And ActiveCell.Offset(0, -1) = 0 Then
'Display a message to the user
MsgBox "Have We Received Final Account Certificate?", vbYesNo, "Thank you"
'Turn cell green and change text to Yes
If AnswerYes = vbYes Then
ActiveCell.Value = "YES"
ActiveCell.Interior.Color = 65280
End If
'Format Invoice Code Cell to Red
ActiveCell.Interior.Color = 255
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Thank you for all of your help so far!!

CJG19

 

[Engberg]

Makes cell green if answer is Yes, makes cell red if answer is No:

Sub Final_Account_Cert()

Range("BO5").Select
'Begin the loop
Do Until ActiveCell.Value = ""
    If ActiveCell.Value = "NO" And ActiveCell.Offset(0, -2) > 0 And ActiveCell.Offset(0, -1) = 0 Then
        'Display a message to the user
        answer = MsgBox("Have We Received Final Account Certificate?", vbYesNo, "Thank you")
        If answer = vbYes Then
            ActiveCell.Value = "YES" 'Turn cell green and change text to Yes
            ActiveCell.Interior.Color = 65280
        ElseIf answer = vbNo Then
            ActiveCell.Interior.Color = 255 'Format Invoice Code Cell to Red
        End If
    End If
    ActiveCell.Offset(1, 0).Select
Loop

End Sub