![]() |
How can I get a macro to execute in excel based on the value of a.
I want to get an excel macro to run based on the value of a cell. Is this
possible? |
How can I get a macro to execute in excel based on the value of a.
If you use event code
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ws_exit: Application.EnableEvents = False If Target.Address = "$H$10" Then If Target.Value = "my value" Then myMacro End If 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 RP (remove nothere from the email address if mailing direct) "Ian P" <Ian wrote in message ... I want to get an excel macro to run based on the value of a cell. Is this possible? |
How can I get a macro to execute in excel based on the value of a.
Not quite sure what you mean but as a guess
If you want a different macro to run depending on what a cell contains then... 'In the SHEETS code module... Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Row = 1 And Target.Column = 1 Then Select Case Target.Value Case 1 Call Macro1() Case 3 Call Macro2() Case 3 Call Macro3() Else 'Do nothing End Select End If End Sub If you need a certain macro to run only when a cell = a certain value then... 'In the SHEETS code module... Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Row = 1 And Target.Column = 1 Then Select Case Target.Value Case 1, 2, 3 TheRealMacro Target 'Call the real macro End Select End If End Sub Private Sub TheRealMacro(Target As Excel.Range) MsgBox "Macro running: You typed " & Target.Value End Sub Regards - Steve. "Ian P" <Ian wrote in message ... I want to get an excel macro to run based on the value of a cell. Is this possible? |
All times are GMT +1. The time now is 03:07 AM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com