Question on IF statement

[EssKayKay]

I’m apparently missing something here. IF
A = dog
B = dog
Then doesn’t A=B

Here is my test IF statements –

  If txtYEAR = 2025 Then MsgBox "#1"
  If Range("S32").End(xlDown).Offset(0, -1) = 2025 Then MsgBox "#2"
  If txtYEAR = Range("S32").End(xlDown).Offset(0, -1) Then MsgBox "#3"

When I run this I only see messages “#1” & “#2”, I do not see “#3”. Any suggestions?

Thanks for viewing,
Steve K.

 

[Skyybot]

When you step through your code what are the data types?

textYEAR1 = 2025
textYEAR2 = Range("S32").End(xlDown).Offset(0,-1).Value
If textYEAR1 = textYEAR2 then Debug.Print "They are the same"

 

[EssKayKay]

Thanks for getting back to me Skybot,
I have the code on a test command button. When I click the button I first see message #1; I click OK and I see message #2; I click OK and see nothing.
I ran your code from my command button and I see nothing.

 

[Skyybot]

Check your Immediate window in VBA. That's where Debug.Print outputs.

 

[EssKayKay]

Ahh, I checked the Immediate window and your message did appear. I should have noted, my code resides in a form (frmPITI) and is triggered from cmdTest1_Click. Maybe this is what's causing the problem. It just seemed weird that the first two messages appeared but not the third.

 

[EssKayKay]

I modified my code. Rather than looking at the txtYEAR box I have it looking at a cell ("T24") which should be the same as txtYEAR. It appears to be working. Still confusing why the other didn't work but I OKAY with this.

Thanks again,
SKK

 

[Alex Blakenburg]

I modified my code. Rather than looking at the txtYEAR box I have it looking at a cell ("T24") which should be the same as txtYEAR. It appears to be working. Still confusing why the other didn't work but I OKAY with this.

txtYear is a string and 2025 is a number. You are relying on VBA to do an implicit conversion. This can produce unexpected results as you are experiencing.
It's preferable to take control over the conversion and convert explicitly.

What happens if you do this:

  If CLng(txtYEAR) = Range("S32").End(xlDown).Offset(0, -1) Then MsgBox "#3"

 

[EssKayKay]

That worked Alex. Thank you very much for your input. I will use this code.

Again, much appreciated. . .
SKK

 

[Alex Blakenburg]

You're welcome. Glad we could help.