ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Running a macro when selecting an item in a drop-down list (https://www.excelbanter.com/excel-discussion-misc-queries/197252-running-macro-when-selecting-item-drop-down-list.html)

Christine

Running a macro when selecting an item in a drop-down list
 
Could someone provide me with the code to run macro "MyMacro" when an item is
selected from a drop-down list located in cell H4?

Chris

Jim Thomlinson

Running a macro when selecting an item in a drop-down list
 
Right click the workhseet tab with the drop down in it and select view code.
Paste the following...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$4" Then Call MyMacro
End Sub
--
HTH...

Jim Thomlinson


"Christine" wrote:

Could someone provide me with the code to run macro "MyMacro" when an item is
selected from a drop-down list located in cell H4?

Chris


Christine

Running a macro when selecting an item in a drop-down list
 
Beautiful! Thank you very much, Jim.

"Jim Thomlinson" wrote:

Right click the workhseet tab with the drop down in it and select view code.
Paste the following...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$4" Then Call MyMacro
End Sub
--
HTH...

Jim Thomlinson


"Christine" wrote:

Could someone provide me with the code to run macro "MyMacro" when an item is
selected from a drop-down list located in cell H4?

Chris


Gord Dibben

Running a macro when selecting an item in a drop-down list
 
Any item will run the macro or certain items will run certain macros?

This worksheet change event will run MyMacro whenever any item is picked
from the DV dropdown.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If Intersect(Target, Me.Range("H4")) Is Nothing Then Exit Sub
On Error GoTo CleanUp
Application.EnableEvents = False
With Target
If .Value < "" Then
MyMacro
End If
End With
CleanUp:
Application.EnableEvents = True
End Sub


Gord Dibben MS Excel MVP

On Fri, 1 Aug 2008 11:10:00 -0700, Christine
wrote:

Could someone provide me with the code to run macro "MyMacro" when an item is
selected from a drop-down list located in cell H4?

Chris



Christine

Running a macro when selecting an item in a drop-down list
 
Thank you, Gord. I'll try your code as well.

"Gord Dibben" wrote:

Any item will run the macro or certain items will run certain macros?

This worksheet change event will run MyMacro whenever any item is picked
from the DV dropdown.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If Intersect(Target, Me.Range("H4")) Is Nothing Then Exit Sub
On Error GoTo CleanUp
Application.EnableEvents = False
With Target
If .Value < "" Then
MyMacro
End If
End With
CleanUp:
Application.EnableEvents = True
End Sub


Gord Dibben MS Excel MVP

On Fri, 1 Aug 2008 11:10:00 -0700, Christine
wrote:

Could someone provide me with the code to run macro "MyMacro" when an item is
selected from a drop-down list located in cell H4?

Chris





All times are GMT +1. The time now is 08:16 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com