If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Running macro depending on cell value
I want to run a macro depending on the cell value, selected from a
drop down box. Lets say that data to select from is numbers 1 - 20 Lets say I wish to take the person from Sheets 1 - 20 accordingly How can I do that TIA Esra |
#2
|
|||
|
|||
Running macro depending on cell value
Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "G1" '== change to suit Dim cell As Range On Error GoTo ws_exit Application.EnableEvents = False If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then With Target On Error Resume Next Worksheets("Sheet" & .Value).Activate End With End If ws_exit: Application.EnableEvents = True End Sub 'This is worksheet event code, which means that it needs to be 'placed in the appropriate worksheet code module, not a standard 'code module. To do this, right-click on the sheet tab, select 'the View Code option from the menu, and paste the code in. -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Esradekan" wrote in message ... I want to run a macro depending on the cell value, selected from a drop down box. Lets say that data to select from is numbers 1 - 20 Lets say I wish to take the person from Sheets 1 - 20 accordingly How can I do that TIA Esra |
#3
|
|||
|
|||
Running macro depending on cell value
On Jan 29, 12:27*pm, "Bob Phillips" wrote:
Private Sub Worksheet_Change(ByVal Target As Range) Const WS_RANGE As String = "G1" * * '== change to suit Dim cell As Range * * On Error GoTo ws_exit * * Application.EnableEvents = False * * If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then * * * * With Target * * * * * * On Error Resume Next * * * * * * Worksheets("Sheet" & .Value).Activate * * * * End With * * End If ws_exit: * * Application.EnableEvents = True End Sub 'This is worksheet event code, which means that it needs to be 'placed in the appropriate worksheet code module, not a standard 'code module. To do this, right-click on the sheet tab, select 'the View Code option from the menu, and paste the code in. -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Esradekan" wrote in message ... I want to run a macro depending on the cell value, selected from a drop down box. Lets say that data to select from is numbers 1 - 20 Lets say I wish to take the person from Sheets 1 - 20 accordingly How can I do that TIA Esra- Hide quoted text - - Show quoted text - I dont understand this, but its ok, I have done it another way. Thank you for your help. I appreciate it. Esra |
Thread Tools | |
Display Modes | |
|
|