Multiple If statements in one macro

[sobeleg]

I am try to make it so when a certain number is entered into a box, and a button is clicked, it will take you to a different place depending on what number was entered. I keep getting various errors when writing this in Visual Basic such as "Block If without End If," :End if withou block if" Else without if. and "Run-time error '13': type mismatch."

As of now this is what I have:

Sub Testbutton()
'
' If "D8"=011 Then
' Application.Goto Reference:="R28C1"
' If "D8"=701 Then
' Application.Goto Reference:="R86C1"
' End If
End Sub

Any help would be greatly appreciated.

 

[Ruddles]

Try:-

Sub Testbutton()
 
   If range("D8").value=011 Then Application.Goto Reference:="R28C1"
   If range("D8").value=701 Then Application.Goto Reference:="R86C1"
 
End Sub

 

[Ruddles]

Or:-

Sub Testbutton()
 
   select case range("D8").value
      case 011 
          Application.Goto Reference:="R28C1"
      case 701 
          Application.Goto Reference:="R86C1"
      case else
[COLOR=green]          ' do nothing?[/COLOR]
   end select
 
End Sub

 

[WinteE]

Try this :

Sub Testbutton()

 If Range("D8").Value = 11 Then
   Application.Goto Reference:="R28C1"
 ElseIf Range("D8").Value = 701 Then
   Application.Goto Reference:="R86C1"
 End If
End Sub

 

[sobeleg]

Thank you, that was very helpful!

 

[Ruddles]

More info on IF and SELECT here: http://www.mrexcel.com/forum/showpost.php?p=2662392&postcount=2

 

[p45cal]

 If Range("D8") = 11 Then Application.Goto Reference:="R28C1"
 If Range("D8") = 701 Then Application.Goto Reference:="R86C1"

or

Select Case Range("D8").Value
    Case 11: Application.Goto Reference:="R28C1"
    Case 701: Application.Goto Reference:="R86C1"
    Case Else
    MsgBox "Dunno where to go…"
End Select

edit post posting: bleedin' 'ell, I take a 'phone call and everyone piles in!

 

[sobeleg]

One more quick question, if I wanted it to take me to a place on a different sheet, how would I have to change the goto part of it?

Thanks

 

[TiaXL]

For your info, for each "IF" there must be a corresponding "Endif" easiest way to ensure you do this is when you start your code, if you know your are doing an if statement type it otu first before you put your actual code in

like


if
endif

if
elseif
elseif
endif

if
end if
if
end if

and then put your code in. Also indenting helps to make sure you have matching start and end statments.

 

[p45cal]

One more quick question, if I wanted it to take me to a place on a different sheet, how would I have to change the goto part of it?

Thanks

Application.Goto Reference:="Sheet2!R51C3"
or
Application.Goto Reference:=Sheets("Sheet2").Range("D22")