ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   How can I get a macro to execute in excel based on the value of a. (https://www.excelbanter.com/excel-programming/327762-how-can-i-get-macro-execute-excel-based-value.html)

Ian P[_2_]

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?

Bob Phillips[_6_]

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?




Stevie_mac

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