Please guide me

[abidraza]

Please guide me in this macro because the Excel VBA gives error

Sub Button2_Click()

Sheets("Setups").Select
If Range("A2") = Range("H2") Then
Range("K1") = 1
Else
If Range("A2") = Range("H3") Then
Range("K1") = 2
Else
If Range("A2") = Range("H4") Then
Range("K1") = 3
End If

End Sub

 

[VoG]

Try

Sub Button2_Click()
Sheets("Setups").Select
If Range("A2") = Range("H2") Then
    Range("K1") = 1
ElseIf Range("A2") = Range("H3") Then
    Range("K1") = 2
ElseIf Range("A2") = Range("H4") Then
    Range("K1") = 3
End If
End Sub

 

[Jonmo1]

Perhaps...

Sub Button2_Click()
Range("K1").Value = Application.Match(Range("A2").Value, Range("H2:H4"), 0)
End Sub

 

[abidraza]

Thanks