Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Looping" Code
In a nutshell, I have a list of projects to which I linked a graph that plots data dynamically, based on the active row of the list. I scroll up or down to a particular project title, press the button the macro is assigned to, and the graph is updated with the parameters that correspond to the project title in the active cell.
I'd like to nix the button so that the graph updates automatically when I move the active cell up and down the list. I don't know if this would be "event" driven (ie. prompted by the movement of the active cell), or better accomplished by looping the script. Here's the code Sub UpdateChart( If ActiveCell.Row 2 And ActiveCell.Row < 20 Then ActiveSheet.Calculat End Su I appreciate your help E |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Looping" Code
Hi
you may try using the Selection_change worksheet event. Put the following in your worksheet module (checks for a selection in A2:A20): Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub If Intersect(Target, Me.Range("A2:A20")) Is Nothing Then Exit Sub On Error GoTo CleanUp: With Target Application.EnableEvents = False 'insert your code to change the chart End If End With CleanUp: Application.EnableEvents = True End Sub -- Regards Frank Kabel Frankfurt, Germany exceluser wrote: In a nutshell, I have a list of projects to which I linked a graph that plots data dynamically, based on the active row of the list. I scroll up or down to a particular project title, press the button the macro is assigned to, and the graph is updated with the parameters that correspond to the project title in the active cell. I'd like to nix the button so that the graph updates automatically when I move the active cell up and down the list. I don't know if this would be "event" driven (ie. prompted by the movement of the active cell), or better accomplished by looping the script. Here's the code: Sub UpdateChart() If ActiveCell.Row 2 And ActiveCell.Row < 20 Then ActiveSheet.Calculate End Sub I appreciate your help. EU |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Looping" Code
Thanks for your valuable help, Frank
Regards EU |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell | Excel Discussion (Misc queries) | |||
change "true" and "false" to "availble" and "out of stock" | Excel Worksheet Functions | |||
HELP on "left","right","find","len","substitute" functions | Excel Discussion (Misc queries) | |||
Count occurences of "1"/"0" (or"TRUE"/"FALSE") in a row w. conditions in the next | New Users to Excel | |||
Looking for VB code to test for "RING" , "BUSY" disconnects or other signals | Excel Programming |