macro when run if any cells have minus vale in range give warning message?

[tonywatsonhelp]

Hi Everyone,

I'd like a macro that when run checks if any cells in range D21:BZ2500 has a negative value and if it does bring up a message box saying "Can't proceed with Negative Values"


suck again,

please help

Tony

 

[My Aswer Is This]

Try this:

Sub check_Range()
Dim c As Range
For Each c In Range("D21:BZ2500")
    If c.Value < 0 Then MsgBox "Can't proceed with Negative Values": Exit Sub
Next
End Sub

 

[My Aswer Is This]

And if you want to know which cell has a negative value try this script:

It will tell you what cell and highlight the cell in red.
But it stops after finding the first one like you said.

Sub check_Range()
Dim c As Range
For Each c In Range("D21:BZ2500")
    If c.Value < 0 Then
    
    c.Interior.Color = vbRed
    MsgBox "Can't proceed with Negative Values" & vbNewLine & "Cell  " & c.Address & "  has a negative value"
    Exit Sub
End If
Next
End Sub

 

[tonywatsonhelp]

Hi Mate,
these are both excellent!
thank you so much I think I'll use the second one, but both great

Tony

 

[My Aswer Is This]

Glad I was able to help you. Come back here to Mr. Excel next time you need additional assistance.

Hi Mate,
these are both excellent!
thank you so much I think I'll use the second one, but both great

Tony