Running a macro based on a cells value

I have a macro that I want to run when a cells value changes due to a
selection from a list. How can I make this happen? Thanks in advance.

As long as you have Excel 2000 up

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ws_exit:
Application.EnableEvents = False
If Target.Address = "$H$10" Then
'run your macro
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)


"Piwo" <[email protected]> wrote in message
news:[email protected]...
> I have a macro that I want to run when a cells value changes due to a
> selection from a list. How can I make this happen? Thanks in advance.

Użytkownik "Piwo" <[email protected]> napisał w wiadomości
news:[email protected]...
> I have a macro that I want to run when a cells value changes due to a
> selection from a list. How can I make this happen? Thanks in advance.

try to modify this one
i assumed that you cell is A2

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)
If Target.Address = "$A$2" Then
Application.Run ...' your macro
End If
End Sub

mcg

Thanks Bob. I will give it a try.

"Bob Phillips" wrote:

> As long as you have Excel 2000 up
>
> Private Sub Worksheet_Change(ByVal Target As Range)
>
> On Error GoTo ws_exit:
> Application.EnableEvents = False
> If Target.Address = "$H$10" Then
> 'run your macro
> 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)
>
>
> "Piwo" <[email protected]> wrote in message
> news:[email protected]...
> > I have a macro that I want to run when a cells value changes due to a
> > selection from a list. How can I make this happen? Thanks in advance.
>
>
>

I have a cell that contains a drop down list. I want the macro to run if the
list selection changes. For example: I currently selected 60/40 from the
list. If I select 60/40 again, there is obviously no need to re run the
macro. however, if I change the selection to 80/20 I would want to macro to
run.

Clear? Thanks


Dim model As String
Range("k34").Select
model = ActiveCell.Value
Select Case model
Case ""
Exit Sub
Case "60/40"
Sheets("Model Allocation Inputs").Select
Range("D25:D37").Select
Selection.Copy
Sheets("60-40 Charts").Select
Range("F39").Select
ActiveSheet.Paste Link:=True
Case "80/20"
Sheets("Model Allocation Inputs").Select
Range("e25:e37").Select
Selection.Copy
Sheets("60-40 Charts").Select
Range("F39").Select
ActiveSheet.Paste Link:=True
End Select
End Sub

"Macgru" wrote:

>
> UÂżytkownik "Piwo" <[email protected]> napisaÂł w wiadomoÂści
> news:[email protected]...
> > I have a macro that I want to run when a cells value changes due to a
> > selection from a list. How can I make this happen? Thanks in advance.
>
> try to modify this one
> i assumed that you cell is A2
>
> Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
> As Range)
> If Target.Address = "$A$2" Then
> Application.Run ...' your macro
> End If
> End Sub
>
> mcg
>
>
>