On Jan 30, 10:40*am, JLGWhiz
wrote:
I see dave has already fixed the code. *I took a little more time to look at
it and realized the syntax was not correct. *Here is what I was going to
suggest.

Sub InputButton_click()
'
' WDRIndOrder Macro
' Macro recorded 1/24/2008 by
'

'
* * If Range("0B2") = "WDR" And Range("B10") = "Individual" _
And Range("B14") = "Active" Then
* * Sheets("NPDES Ind Order").Select
* * Range("B1").Select
* * ElseIf Range("B2") = "NPDES Permits" And Range("B10") _
= "Individual" And Range("B14") = "Active" Then
* * Sheets("WDR Ind Order").Select
* * Range("B1").Select
* * ElseIf Range("B2") = "WAIVER" And Range("B10") = _
"Individual" And Range("B14") = "Active" Then
* * Sheets("WAIVER IND Order").Select
* * Range("B1").Select
* * ElseIf Range("B10") = "General" And Range("B14") _
= "Active" Then
* * Sheets("General Order").Select
* * Range("B1").Select
* * ElseIf Range("B2") = "ENROLLEE" And Range("B14") _
= "Active" Then
* * Sheets("Enrollee Record ").Select
* * Range("B1").Select
* * ElseIf Range("B14") = "Draft" Then
* * Sheets("Draft Order-Enrollee Record").Select
* * Range("B1").Select
* * End If
End Sub



"rink" wrote:
On Jan 30, 9:48 am, JLGWhiz wrote:
Did you get the button from the Forms toolbar or the Control Toolbox? *If
from the Forms toolbar, the Macro has to be attached through the Assign Macro
dialog box. *If from the control toolbox then the button has Its own code
module which is accessed by double clicking in design mode. *You probably
already knew this, but just to be sure all bases are covered.

"rink" wrote:
On Jan 30, 8:48 am, JLGWhiz wrote:
If you did not name the CommandButton "InputButton" then it will not work. *
You can use CommandButton1_Click if it is the only button. *Or make sure the
Name is changed in the properties window. *The caption is not the name.

" wrote:
Hello,

Maybe someone can tell me what I am doing wrong. *I wrote the
following Macro and it appears to run correctly, however when I assign
it to the command button, nothing executes. *The button clicks but
doesnt take you to the assigned sheet. *You help is much appreciated.

Sub InputButton_click()
'
' WDRIndOrder Macro
' Macro recorded 1/24/2008 by
'

'
* * If ("B2" = "WDR") And ("B10" = "Individual") And ("B14" =
"Active") Then
* * Sheets("NPDES Ind Order").Select("B1").Select
* * ElseIf ("B2" = "NPDES Permits") And ("B10" = "Individual") And
("B14" = "Active") Then
* * Sheets("WDR Ind Order").Select("B1").Select
* * ElseIf ("B2" = "WAIVER") And ("B10" = "Individual") And ("B14" =
"Active") Then
* * Sheets("WAIVER IND Order").Select("B1").Select
* * ElseIf ("B10" = "General") And ("B14" = "Active") Then
* * Sheets("General Order").Select("B1").Select
* * ElseIf ("B2" = "ENROLLEE") And ("B14" = "Active") Then
* * Sheets("Enrollee Record ").Select("B1").Select
* * ElseIf ("B14" = "Draft") Then
* * Sheets("Draft Order-Enrollee Record").Select("B1").Select
* * End If
End Sub- Hide quoted text -

- Show quoted text -

I edited the button and renamed it InputButton and assigned the Macro
abovebut it doesn't take me anywhere. *The cells I reference in the
code have dropdown choices, would that make a difference?- Hide quoted text -

- Show quoted text -

I've tried both Buttons. *I copied the code over on the Command Button
and just assigned theMacro on the Button. *Neither take you anywhere.
Just for the heck of it, I added another command at the end that said
Range("B18").Select
and the button changed to that cell on the worksheet with the button
so I don't know what is going on.. I closed the worksheet without
saving so the added code would not save.- Hide quoted text -

- Show quoted text -

Ok, I fixed the code as follows and it runs except for the last 2
commands. Thanks for all of your help..

Sub InputButton_click()
'
' WDRIndOrder Macro
' Macro recorded 1/24/2008 by DAS Staff
'

'
If Range("B2") = "WDR" And Range("B10") = "Individual" And
Range("B14") = "Active" Then
Sheets("WDR Ind Order").Select Range("B1").Select
ElseIf Range("B2") = "NPDES Permits" And Range("B10") =
"Individual" And Range("B14") = "Active" Then
Sheets("NPDES Ind Order").Select Range("B1").Select
ElseIf Range("B2") = "WAIVER" And Range("B10") = "Individual" And
Range("B14") = "Active" Then
Sheets("WAIVER IND Order").Select Range("B1").Select
ElseIf Range("B10") = "General" And Range("B14") = "Active" Then
Sheets("General Order").Select Range("B1").Select
ElseIf Range("B2") = "ENROLLEE" And Range("B14") = "Active" Then
Sheets("Enrollee").Select Range("B1").Select
ElseIf Range("B14") = "Draft" Then
Sheets("Draft Order Enrollee Record").Select Range("B1").Select
End If
End Sub