Workbook_SheetChange event

ajm

Well-known Member
Joined
Feb 5, 2003
Messages
2,004
Office Version
  1. 365
Platform
  1. Windows
I need pivot tables to refresh automatically once a user enters new source data. I have my workbook set up on monthly tabs and the users can enter data below row 12 on each of these tabs.

I have set up the workbook with dashboard/display tabs at the front and the monthly data sheets at the rear, bookended by two sheets "First" and "Last". I have attempted to repurpose some old code in an attempt to refresh all pivot tables when any row below row 12, between columns A and Z is changed.

Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

'///refreshes all pivot tables when sheets changed.
    Dim rng As Range
    Set rng = Target.Parent.Range("a12:z500")


    Dim shtFirst%, shtLast%
    shtFirst = Worksheets("First").Index
    shtLast = Worksheets("Last").Index
    '    MsgBox ActiveSheet.Name
    If ActiveSheet.Index <= shtFirst Then Exit Sub
    If ActiveSheet.Index >= shtLast Then Exit Sub


    'If Target.Cells.Count > 1 Then Exit Sub
    If Intersect(Target, rng) Is Nothing Then Exit Sub
    
 With Application
        .ScreenUpdating = False
        .EnableEvents = False
 End With
 
 ThisWorkbook.RefreshAll
 
 With Application
        .ScreenUpdating = True
        .EnableEvents = True
 End With
 
 Calculate
 
 End Sub

I have set up a breakpoint to check the code and after entering something in H15, the macro fires, and then stops at the breakpoint (as it should) but then keeps looping when I start it off again. What have i done wrong?
 

Excel Facts

Links? Where??
If Excel says you have links but you can't find them, go to Formulas, Name Manager. Look for old links to dead workbooks & delete.
Do you have other codes on another or other sheets?
 
Upvote 0
Hola Dante, como estas? I have a workbook open event to hide sheets that are not needed at this point.
 
Upvote 0
I performed tests with your code and it does not enter a loop.
Maybe something with your data.
 
Upvote 0
Thanks Dante. I think it was having issues as the refreshall command affects 36 pivots, and 40 tables.
 
Upvote 0
But you have the events turned off (.EnableEvents = False), this should not enter a loop. I think!
 
Upvote 0
exactly. I don't think it was a loop. I rearranged the data and let it run. took a little while due to the number of pivots and tables but it did run. thanks again for looking.
 
Upvote 0

Forum statistics

Threads
1,213,527
Messages
6,114,140
Members
448,551
Latest member
Sienna de Souza

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top