2800 not equal to "2800" ?

[YCJ]

Hi there

I'm puzzled with the value that I got from my active cell.
When my cell contains "2800" (without the double quotes), and my coding is

freq = ActiveCell.value

the result will be 2800.
But when my cell contains "2800-7200" (without the double quotes), and my coding is still

freq = ActiveCell.value

the result will be "2800-7200". (with double quotes)

I've separated the "2800-7200" using

intPos = InStr(1, freq, "-", vbTextCompare)
freq1 = Mid(freq, 1, intPos - 1)
freq2 = Mid(freq, intPos + 1)

In this case, my freq1 is "2800" and freq2 is "7200",
I need to use these two frequency to look through a list of frequencies.
For example,

If ActiveCell.value = freq1 Then

This will result in 2800 = "2800", and it is seen as not fulfilling the condition.

Where does the double quotes "" come out from?

CJ

 

[VoG]

Mid returns a text value. Try like this

freq1 = Val(Mid(freq, 1, intPos - 1))

 

[Richard Schollar]

2800-2700 in the cell is a string of characters not a numeric result so you end up comparin the string "2800" to the numeric value 2800 and VBA says they don't match. You can convert the string into a numeric value eg by using CInt or CDbl:

If CInt(Activecell.Value) = 2800 Then '...

and

freq1 = CInt(Split(freq,"-")(0))

freq2 =  CInt(Split(freq,"-")(1))

 

[YCJ]

Wow, works like a charm. Thanks guys for your prompt reply, at least I know what's wrong now. Have a nice day!

Cheers,
CJ