If cell value = somthing specific then vba help

[ExcelNoob222]

Hi,

I have the below code that works:

Sub test()

    If Sheet2.Range("A1") = 1 Then
    Range("B1") = "1"
    ElseIf Sheet2.Range("A1") = 2 Then
    Range("B1") = "2"
    End If
End Sub

However as soon as I change the sheet name:

Sub test()
    If Helper.Range("A1") = 1 Then
    Range("B1") = "1"
    ElseIf Sheet2.Range("A1") = 2 Then
    Range("B1") = "2"
    End If
End Sub

I get "Run-time error '424': Object required" error. Any ideas?

EDIT: Just as I posted I realized I forgot Sheets("Helper") whooops!!!!!

 

[Joe4]

Glad you figured out out.

One thing to keep in mind. When setting values to "1" or "2", when you use the double-quotes like that, you are setting it to the TEXT value of 1 or 2, not the numeric values 1 or 2.
If you want to set it to numeric values, lose the double-quotes there.

Note that in your original code, if you wanted to set the values to numbers, you could rewrite it a little simpler (only needed one IF) like this:

Sub test()
    If (Sheet2.Range("A1") = 1) or (Sheet2.Range("A1") = 2) Then
        Range("B1") = Sheet2.Range("A1")
    End If
End Sub

 

[ExcelNoob222]

Glad you figured out out.

One thing to keep in mind. When setting values to "1" or "2", when you use the double-quotes like that, you are setting it to the TEXT value of 1 or 2, not the numeric values 1 or 2.
If you want to set it to numeric values, lose the double-quotes there.

Note that in your original code, if you wanted to set the values to numbers, you could rewrite it a little simpler (only needed one IF) like this:

Sub test()
    If (Sheet2.Range("A1") = 1) or (Sheet2.Range("A1") = 2) Then
        Range("B1") = Sheet2.Range("A1")
    End If
End Sub

Thanks for the tips!

 

[Joe4]

You are welcome.