Macro If And issue

[fastballfreddy]

Trying to add an And to the if statement below (red font) and keeps coming back to wrong# (I type in 1 and cell E1 = 1 so it should type Dice 1 into cell A1). I'm sure it's an easy fix but can't figure out what is wrong with my macro. Thanks in advance for reviewing

Sub Test2()

Dim InputText1 As String

InputText1 = InputBox("Enter #")


If StrPtr(InputText1) = 1 And Range("E1").Value = "1" Then
Range("A1").Select
ActiveCell.FormulaR1C1 = "DICE 1"
ElseIf InputText1 = 2 Then
Range("A1").Select
ActiveCell.FormulaR1C1 = "DICE 2"
ElseIf InputText1 = 3 Then
Range("A1").Select
ActiveCell.FormulaR1C1 = "DICE 3"
ElseIf InputText1 = 4 Then
Range("A1").Select
ActiveCell.FormulaR1C1 = "DICE 4"
Else
MsgBox "Wrong #"
End If

End Sub

 

[Saurabhj]

Hi,

Please check with below...
I have removed double quotes..

If StrPtr(InputText1) = 1 And Range("E1").Value = 1 Then

 

[fastballfreddy]

Thanks Saurabhj but unfortunately that doesn't work.

 

[Fluff]

How about

Sub Test2()

Dim InputText1 As String

InputText1 = InputBox("Enter #")

If InputText1 = "1" And Range("E1").Value = 1 Then
   Range("A1").Value = "DICE 1"
ElseIf InputText1 = "2" Then
   Range("A1").Value = "DICE 2"
ElseIf InputText1 = "3" Then
   Range("A1").Value = "DICE 3"
ElseIf InputText1 = "4" Then
r ange("A1").Value = "DICE 4"
Else
   MsgBox "Wrong #"
End If

End Sub

 

[fastballfreddy]

Thanks Fluff! That works!

 

[Fluff]

Glad we could help & thanks for the feedback.