If condition with range

[AlexCS]

Hi all,

I am trying to put together an IF function that does something everytime a variable ranges between -5 and 5..I am however having an issue with the condition..how can I write the below correctly in VBA?

If ActiveSheet.Cells(s,4).Value >=-5 And <=5 Then...

Please help!

Thank you,

Alex

 

[AD_Taylor]

Try:

If ActiveSheet.Cells(s,4).Value >=-5 And ActiveSheet.Cells(s,4).Value <=5 Then

With multiple If conditions you need to specify the item to check each time.

 

[VoG]

Try

If ActiveSheet.Cells(s, 4).Value >= -5 And ActiveSheet.Cells(s, 4).Value <= 5 Then

 

[taurean]

Like:

If ActiveSheet.Cells(s,4).Value >=-5 And ActiveSheet.Cells(s,4).Value<=5 Then

 

[AlexCS]

Hi Adam, Peter and Taurean,

Many thanks for advising me regarding this matter!

Would any of you know why the If condition does not identify values like
-0.0037 for example, although it is supposed to find any value between -5 and 5?

Kind regards,

Alex
<TABLE style="WIDTH: 69pt; BORDER-COLLAPSE: collapse" border=0 cellSpacing=0 cellPadding=0 width=92><COLGROUP><COL style="WIDTH: 69pt; mso-width-source: userset; mso-width-alt: 3364" width=92><TBODY><TR style="HEIGHT: 15pt" height=20><TD style="BORDER-BOTTOM: #d4d0c8; BORDER-LEFT: #d4d0c8; BACKGROUND-COLOR: transparent; WIDTH: 69pt; HEIGHT: 15pt; BORDER-TOP: #d4d0c8; BORDER-RIGHT: #d4d0c8" class=xl71 height=20 width=92 align=right></TD></TR></TBODY></TABLE>

 

[taurean]

I placed -0.0037 in Cell A1 and then tested the code as below:

Public Sub Test()
If ActiveSheet.Cells(1, 1).Value >= -5 And ActiveSheet.Cells(1, 1).Value <= 5 Then
MsgBox "Fits in range!"
End If
End Sub

And it worked! I tried changing the cell formatting but it doesn't seem to have any bearing on this.

I could not reproduce your situation. Sorry!