Macro runs but unless the cells you are filtering is the same it does not work

B

Bourgoine

New Member
Joined
May 19, 2015
Messages
8
I am triyng to get a Pivot table report raw data to update from another report, So when I record the macro to follow the steps it works on the same data, But as the cells postion changes on the new report it does not work.

So I need to find out who to script it to just copy the selected filtering need. the two columns to filter is contry and Assigned groups.

As you can see below the scrip slects the cells location only.

Sub Pulseupdatev2()
'
' Pulseupdatev2 Macro
' Cuts and paste and then refeshes
'
'
Sheets("Incidents").Select
Cells.Select
Selection.ClearContents
Sheets("Requests").Select
Selection.ClearContents
Range("J32").Select
Workbooks.Open Filename:= _
"N:\Technical Resources Group\Event Scheduling\Reporting Donna\GE Pulse\PulseReport.xlsx"
Sheets("Incidents").Select
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Selection.AutoFilter
ActiveWindow.ScrollRow = 7815
ActiveWindow.ScrollRow = 7791
ActiveWindow.ScrollRow = 7767
ActiveWindow.ScrollRow = 7744
ActiveWindow.ScrollRow = 7696
ActiveWindow.ScrollRow = 7672
ActiveWindow.ScrollRow = 7601
ActiveWindow.ScrollRow = 7530
ActiveWindow.ScrollRow = 7435
ActiveWindow.ScrollRow = 7387
ActiveWindow.ScrollRow = 7316
ActiveWindow.ScrollRow = 7245
ActiveWindow.ScrollRow = 7150
ActiveWindow.ScrollRow = 6889
ActiveWindow.ScrollRow = 6699
ActiveWindow.ScrollRow = 6532
ActiveWindow.ScrollRow = 6342
ActiveWindow.ScrollRow = 5962
ActiveWindow.ScrollRow = 5749
ActiveWindow.ScrollRow = 5582
ActiveWindow.ScrollRow = 5321
ActiveWindow.ScrollRow = 5060
ActiveWindow.ScrollRow = 4846
ActiveWindow.ScrollRow = 4537
ActiveWindow.ScrollRow = 4039
ActiveWindow.ScrollRow = 3777
ActiveWindow.ScrollRow = 3469
ActiveWindow.ScrollRow = 3231
ActiveWindow.ScrollRow = 2970
ActiveWindow.ScrollRow = 2685
ActiveWindow.ScrollRow = 2424
ActiveWindow.ScrollRow = 1854
ActiveWindow.ScrollRow = 1569
ActiveWindow.ScrollRow = 1284
ActiveWindow.ScrollRow = 1070
ActiveWindow.ScrollRow = 595
ActiveWindow.ScrollRow = 381
ActiveWindow.ScrollRow = 144
ActiveWindow.ScrollRow = 1
Selection.AutoFilter
ActiveSheet.Range("$A$1:$AB$17327").AutoFilter Field:=5, Criteria1:= _
"Ireland"
ActiveSheet.Range("$A$1:$AB$17327").AutoFilter Field:=6, Criteria1:=Array( _
"@CORP EUS EMEA IE Cork", "@CORP EUS EMEA IE Dublin", "@CORP EUS EMEA IE Shannon" _
), Operator:=xlFilterValues
Rows("1:16640").Select
Selection.Copy
Windows("PulseReport_work sheet v2.xlsm").Activate
Sheets("Incidents").Select
Range("A1").Select
ActiveSheet.Paste
ActiveWindow.ScrollRow = 36
ActiveWindow.ScrollRow = 105
ActiveWindow.ScrollRow = 139
ActiveWindow.ScrollRow = 174
ActiveWindow.ScrollRow = 208
ActiveWindow.ScrollRow = 243
ActiveWindow.ScrollRow = 347
ActiveWindow.ScrollRow = 416
ActiveWindow.ScrollRow = 485
ActiveWindow.ScrollRow = 554
ActiveWindow.ScrollRow = 623
ActiveWindow.ScrollRow = 692
ActiveWindow.ScrollRow = 761
ActiveWindow.ScrollRow = 830
ActiveWindow.ScrollRow = 934
ActiveWindow.ScrollRow = 1003
ActiveWindow.ScrollRow = 1038
ActiveWindow.ScrollRow = 1141
ActiveWindow.ScrollRow = 1210
ActiveWindow.ScrollRow = 1279
ActiveWindow.ScrollRow = 1314
ActiveWindow.ScrollRow = 1418
ActiveWindow.ScrollRow = 1487
ActiveWindow.ScrollRow = 1556
ActiveWindow.ScrollRow = 1625
ActiveWindow.ScrollRow = 1694
ActiveWindow.ScrollRow = 1729
ActiveWindow.ScrollRow = 1763
ActiveWindow.ScrollRow = 1798
ActiveWindow.ScrollRow = 1867
ActiveWindow.ScrollRow = 1936
ActiveWindow.ScrollRow = 2005
ActiveWindow.ScrollRow = 2039
ActiveWindow.ScrollRow = 2109
ActiveWindow.ScrollRow = 2143
ActiveWindow.ScrollRow = 2178
ActiveWindow.ScrollRow = 2247
ActiveWindow.ScrollRow = 2281
ActiveWindow.ScrollRow = 2316
ActiveWindow.ScrollRow = 2281
ActiveWindow.ScrollRow = 2247
ActiveWindow.ScrollRow = 2212
ActiveWindow.ScrollRow = 2143
ActiveWindow.ScrollRow = 2109
ActiveWindow.ScrollRow = 2039
ActiveWindow.ScrollRow = 2005
ActiveWindow.ScrollRow = 1970
ActiveWindow.ScrollRow = 1936
ActiveWindow.ScrollRow = 1901
ActiveWindow.ScrollRow = 1867
ActiveWindow.ScrollRow = 1832
ActiveWindow.ScrollRow = 1798
ActiveWindow.ScrollRow = 1763
ActiveWindow.ScrollRow = 1729
ActiveWindow.ScrollRow = 1659
ActiveWindow.ScrollRow = 1625
ActiveWindow.ScrollRow = 1590
ActiveWindow.ScrollRow = 1556
ActiveWindow.ScrollRow = 1521
ActiveWindow.ScrollRow = 1487
ActiveWindow.ScrollRow = 1452
ActiveWindow.ScrollRow = 1418
ActiveWindow.ScrollRow = 1383
ActiveWindow.ScrollRow = 1348
ActiveWindow.ScrollRow = 1314
ActiveWindow.ScrollRow = 1279
ActiveWindow.ScrollRow = 1245
ActiveWindow.ScrollRow = 1210
ActiveWindow.ScrollRow = 1176
ActiveWindow.ScrollRow = 1141
ActiveWindow.ScrollRow = 1107
ActiveWindow.ScrollRow = 1038
ActiveWindow.ScrollRow = 1003
ActiveWindow.ScrollRow = 968
ActiveWindow.ScrollRow = 934
ActiveWindow.ScrollRow = 899
ActiveWindow.ScrollRow = 865
ActiveWindow.ScrollRow = 830
ActiveWindow.ScrollRow = 796
ActiveWindow.ScrollRow = 761
ActiveWindow.ScrollRow = 692
ActiveWindow.ScrollRow = 657
ActiveWindow.ScrollRow = 623
ActiveWindow.ScrollRow = 588
ActiveWindow.ScrollRow = 554
ActiveWindow.ScrollRow = 519
ActiveWindow.ScrollRow = 485
ActiveWindow.ScrollRow = 450
ActiveWindow.ScrollRow = 416
ActiveWindow.ScrollRow = 381
ActiveWindow.ScrollRow = 347
ActiveWindow.ScrollRow = 312
ActiveWindow.ScrollRow = 277
ActiveWindow.ScrollRow = 312
ActiveWindow.ScrollRow = 347
ActiveWindow.ScrollRow = 381
ActiveWindow.ScrollRow = 416
ActiveWindow.ScrollRow = 450
ActiveWindow.ScrollRow = 485
ActiveWindow.ScrollRow = 519
ActiveWindow.ScrollRow = 554
ActiveWindow.ScrollRow = 519
ActiveWindow.ScrollRow = 485
ActiveWindow.ScrollRow = 450
ActiveWindow.ScrollRow = 416
ActiveWindow.ScrollRow = 381
ActiveWindow.ScrollRow = 347
ActiveWindow.ScrollRow = 312
ActiveWindow.ScrollRow = 277
ActiveWindow.SmallScroll Down:=72
Range("A376").Select
Windows("PulseReport.xlsx").Activate
ActiveSheet.Range("$A$1:$AB$17327").AutoFilter Field:=5, Criteria1:= _
"United Kingdom"
ActiveSheet.Range("$A$1:$AB$17327").AutoFilter Field:=6
ActiveSheet.Range("$A$1:$AB$17327").AutoFilter Field:=6, Criteria1:=Array( _
"@CORP EUS EMEA GB Aberdeen", "@CORP EUS EMEA GB Amersham", _
"@CORP EUS EMEA GB Ark", "@CORP EUS EMEA GB Groby", "@CORP EUS EMEA GB Hounslow", _
"@CORP EUS EMEA GB Leeds", "@CORP EUS EMEA GB Lisburn", _
"@CORP EUS EMEA GB Montrose", "@CORP EUS EMEA GB Reigate"), Operator:= _
xlFilterValues
ActiveSheet.Range("$A$1:$AB$17327").AutoFilter Field:=6, Criteria1:=Array( _
"@CORP EUS EMEA GB Aberdeen", "@CORP EUS EMEA GB Amersham", _
"@CORP EUS EMEA GB Ark", "@CORP EUS EMEA GB Groby", "@CORP EUS EMEA GB Hounslow", _
"@CORP EUS EMEA GB Leeds", "@CORP EUS EMEA GB Lisburn", _
"@CORP EUS EMEA GB Montrose", "@CORP EUS EMEA GB Reigate"), Operator:= _
xlFilterValues
Rows("2200:17288").Select
Application.CutCopyMode = False
Selection.Copy
Windows("PulseReport_work sheet v2.xlsm").Activate
ActiveSheet.Paste
ActiveWindow.ScrollRow = 347
ActiveWindow.ScrollRow = 312
ActiveWindow.ScrollRow = 347
ActiveWindow.ScrollRow = 381
ActiveWindow.ScrollRow = 416
ActiveWindow.ScrollRow = 450
ActiveWindow.ScrollRow = 554
ActiveWindow.ScrollRow = 588
ActiveWindow.ScrollRow = 623
ActiveWindow.ScrollRow = 657
ActiveWindow.ScrollRow = 692
ActiveWindow.ScrollRow = 727
ActiveWindow.ScrollRow = 761
ActiveWindow.ScrollRow = 796
ActiveWindow.ScrollRow = 865
ActiveWindow.ScrollRow = 934
ActiveWindow.ScrollRow = 968
ActiveWindow.ScrollRow = 1038
ActiveWindow.ScrollRow = 1072
ActiveWindow.ScrollRow = 1107
ActiveWindow.ScrollRow = 1210
ActiveWindow.ScrollRow = 1279
ActiveWindow.ScrollRow = 1348
ActiveWindow.ScrollRow = 1452
ActiveWindow.ScrollRow = 1521
ActiveWindow.ScrollRow = 1625
ActiveWindow.ScrollRow = 1659
ActiveWindow.ScrollRow = 1763
ActiveWindow.ScrollRow = 1798
ActiveWindow.ScrollRow = 1901
ActiveWindow.ScrollRow = 1936
ActiveWindow.ScrollRow = 2005
ActiveWindow.ScrollRow = 2109
ActiveWindow.ScrollRow = 2178
ActiveWindow.ScrollRow = 2281
ActiveWindow.ScrollRow = 2385
ActiveWindow.ScrollRow = 2489
ActiveWindow.ScrollRow = 2592
ActiveWindow.ScrollRow = 2731
ActiveWindow.ScrollRow = 2834
ActiveWindow.ScrollRow = 2938
ActiveWindow.ScrollRow = 3076
ActiveWindow.ScrollRow = 3180
ActiveWindow.ScrollRow = 3283
ActiveWindow.ScrollRow = 3352
ActiveWindow.ScrollRow = 3456
ActiveWindow.ScrollRow = 3525
ActiveWindow.ScrollRow = 3560
ActiveWindow.ScrollRow = 3594
ActiveWindow.ScrollRow = 3629
ActiveWindow.ScrollRow = 3663
ActiveWindow.ScrollRow = 3698
ActiveWindow.ScrollRow = 3732
ActiveWindow.ScrollRow = 3767
ActiveWindow.ScrollRow = 3802
ActiveWindow.ScrollRow = 3767
ActiveWindow.ScrollRow = 3663
ActiveWindow.ScrollRow = 3560
ActiveWindow.ScrollRow = 3491
ActiveWindow.ScrollRow = 3387
ActiveWindow.ScrollRow = 3283
ActiveWindow.ScrollRow = 3111
ActiveWindow.ScrollRow = 3007
ActiveWindow.ScrollRow = 2938
ActiveWindow.ScrollRow = 2869
ActiveWindow.ScrollRow = 2731
ActiveWindow.ScrollRow = 2696
ActiveWindow.ScrollRow = 2558
ActiveWindow.ScrollRow = 2489
ActiveWindow.ScrollRow = 2420
ActiveWindow.ScrollRow = 2350
ActiveWindow.ScrollRow = 2316
ActiveWindow.ScrollRow = 2212
ActiveWindow.ScrollRow = 2143
ActiveWindow.ScrollRow = 2109
ActiveWindow.ScrollRow = 2074
ActiveWindow.ScrollRow = 2005
ActiveWindow.ScrollRow = 1970
ActiveWindow.ScrollRow = 1901
ActiveWindow.ScrollRow = 1867
ActiveWindow.ScrollRow = 1798
ActiveWindow.ScrollRow = 1763
ActiveWindow.ScrollRow = 1694
ActiveWindow.ScrollRow = 1625
ActiveWindow.ScrollRow = 1590
ActiveWindow.ScrollRow = 1556
ActiveWindow.ScrollRow = 1521
ActiveWindow.ScrollRow = 1487
ActiveWindow.ScrollRow = 1452
ActiveWindow.ScrollRow = 1383
ActiveWindow.ScrollRow = 1348
ActiveWindow.ScrollRow = 1279
ActiveWindow.ScrollRow = 1245
ActiveWindow.ScrollRow = 1176
ActiveWindow.ScrollRow = 1141
ActiveWindow.ScrollRow = 1072
ActiveWindow.ScrollRow = 1038
ActiveWindow.ScrollRow = 968
ActiveWindow.ScrollRow = 934
ActiveWindow.ScrollRow = 899
ActiveWindow.ScrollRow = 865
ActiveWindow.ScrollRow = 796
ActiveWindow.ScrollRow = 761
ActiveWindow.ScrollRow = 692
ActiveWindow.ScrollRow = 657
ActiveWindow.ScrollRow = 588
ActiveWindow.ScrollRow = 519
ActiveWindow.ScrollRow = 485
ActiveWindow.ScrollRow = 416
ActiveWindow.ScrollRow = 381
ActiveWindow.ScrollRow = 347
ActiveWindow.ScrollRow = 312
ActiveWindow.ScrollRow = 277
ActiveWindow.ScrollRow = 208
ActiveWindow.ScrollRow = 174
ActiveWindow.ScrollRow = 105
ActiveWindow.ScrollRow = 70
ActiveWindow.ScrollRow = 36
ActiveWindow.ScrollRow = 1
Range("K25").Select
Sheets("Requests").Select
Windows("PulseReport.xlsx").Activate
Application.CutCopyMode = False
Selection.AutoFilter
Sheets("Requests").Select
ActiveWindow.ScrollRow = 2875
ActiveWindow.ScrollRow = 2867
ActiveWindow.ScrollRow = 2851
ActiveWindow.ScrollRow = 2780
ActiveWindow.ScrollRow = 2551
ActiveWindow.ScrollRow = 2267
ActiveWindow.ScrollRow = 1967
ActiveWindow.ScrollRow = 1777
ActiveWindow.ScrollRow = 1517
ActiveWindow.ScrollRow = 1256
ActiveWindow.ScrollRow = 1035
ActiveWindow.ScrollRow = 917
ActiveWindow.ScrollRow = 759
ActiveWindow.ScrollRow = 648
ActiveWindow.ScrollRow = 585
ActiveWindow.ScrollRow = 498
ActiveWindow.ScrollRow = 459
ActiveWindow.ScrollRow = 396
ActiveWindow.ScrollRow = 309
ActiveWindow.ScrollRow = 246
ActiveWindow.ScrollRow = 183
ActiveWindow.ScrollRow = 119
ActiveWindow.ScrollRow = 64
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 1
Selection.AutoFilter
Selection.AutoFilter
ActiveSheet.Range("$A$1:$Y$5784").AutoFilter Field:=5, Criteria1:="Ireland"
ActiveSheet.Range("$A$1:$Y$5784").AutoFilter Field:=6, Criteria1:=Array( _
"@CORP EUS EMEA IE Cork", "@CORP EUS EMEA IE Dublin", "@CORP EUS EMEA IE Shannon" _
), Operator:=xlFilterValues
Rows("1:5775").Select
Selection.Copy
Windows("PulseReport_work sheet v2.xlsm").Activate
Range("A1").Select
ActiveSheet.Paste
Range("D9").Select
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 51
ActiveWindow.ScrollRow = 61
ActiveWindow.ScrollRow = 81
ActiveWindow.ScrollRow = 91
ActiveWindow.ScrollRow = 111
ActiveWindow.ScrollRow = 121
ActiveWindow.ScrollRow = 131
ActiveWindow.ScrollRow = 151
ActiveWindow.ScrollRow = 161
ActiveWindow.ScrollRow = 181
ActiveWindow.ScrollRow = 191
ActiveWindow.ScrollRow = 221
ActiveWindow.ScrollRow = 231
ActiveWindow.ScrollRow = 251
ActiveWindow.ScrollRow = 261
ActiveWindow.ScrollRow = 281
ActiveWindow.ScrollRow = 290
ActiveWindow.ScrollRow = 310
ActiveWindow.ScrollRow = 320
ActiveWindow.ScrollRow = 340
ActiveWindow.ScrollRow = 350
ActiveWindow.ScrollRow = 360
ActiveWindow.ScrollRow = 340
ActiveWindow.ScrollRow = 330
ActiveWindow.ScrollRow = 320
ActiveWindow.ScrollRow = 310
ActiveWindow.ScrollRow = 300
ActiveWindow.ScrollRow = 290
ActiveWindow.ScrollRow = 281
ActiveWindow.ScrollRow = 271
ActiveWindow.ScrollRow = 261
ActiveWindow.ScrollRow = 251
ActiveWindow.ScrollRow = 241
ActiveWindow.ScrollRow = 221
ActiveWindow.ScrollRow = 211
ActiveWindow.ScrollRow = 201
ActiveWindow.ScrollRow = 191
ActiveWindow.ScrollRow = 181
ActiveWindow.ScrollRow = 171
ActiveWindow.ScrollRow = 161
ActiveWindow.ScrollRow = 151
ActiveWindow.ScrollRow = 141
ActiveWindow.ScrollRow = 131
ActiveWindow.ScrollRow = 121
ActiveWindow.ScrollRow = 111
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 111
ActiveWindow.ScrollRow = 121
ActiveWindow.ScrollRow = 131
ActiveWindow.ScrollRow = 141
ActiveWindow.ScrollRow = 151
ActiveWindow.ScrollRow = 161
ActiveWindow.ScrollRow = 171
ActiveWindow.ScrollRow = 161
ActiveWindow.ScrollRow = 151
ActiveWindow.ScrollRow = 141
Windows("PulseReport.xlsx").Activate
ActiveSheet.Range("$A$1:$Y$5784").AutoFilter Field:=5, Criteria1:= _
"United Kingdom"
ActiveSheet.Range("$A$1:$Y$5784").AutoFilter Field:=6
ActiveSheet.Range("$A$1:$Y$5784").AutoFilter Field:=6, Criteria1:=Array( _
"@CORP EUS EMEA GB Aberdeen", "@CORP EUS EMEA GB Amersham", _
"@CORP EUS EMEA GB Ark", "@CORP EUS EMEA GB Groby", "@CORP EUS EMEA GB Hounslow", _
"@CORP EUS EMEA GB Leeds", "@CORP EUS EMEA GB Lisburn", _
"@CORP EUS EMEA GB Montrose", "@CORP EUS EMEA GB Reigate"), Operator:= _
xlFilterValues
Rows("55:5778").Select
Application.CutCopyMode = False
Selection.Copy
Windows("PulseReport_work sheet v2.xlsm").Activate
Range("A159").Select
ActiveSheet.Paste
Range("C162").Select
ActiveWindow.ScrollRow = 121
ActiveWindow.ScrollRow = 111
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 91
ActiveWindow.ScrollRow = 81
ActiveWindow.ScrollRow = 71
ActiveWindow.ScrollRow = 61
ActiveWindow.ScrollRow = 51
ActiveWindow.ScrollRow = 41
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 1
Windows("PulseReport.xlsx").Activate
Application.CutCopyMode = False
Selection.AutoFilter
ActiveWindow.Close
Sheets("Incident SLA").Select
ActiveWorkbook.RefreshAll
End Sub
 

Excel Facts

Square and cube roots
The =SQRT(25) is a square root. For a cube root, use =125^(1/3). For a fourth root, use =625^(1/4).
You must log in or register to reply here.

Similar threads

C
  • Question
Macro Code Help - File name changes
Replies
4
Views
591
CM722
C
J
  • Question
Excel macro for Remove comma's and spaces from a cell and place the data in different cell
Replies
3
Views
689
JEC
JEC
E
  • Question
macro issue
Replies
3
Views
411
edwardfraser
E
P
  • Question
macro not working !!!
2
Replies
13
Views
1K
paquirl
P
R
  • Question
Streamlining a recorded macro
Replies
8
Views
805
rc39452
R

Forum statistics

Threads
1,203,605
Messages
6,056,269
Members
444,853
Latest member
sam69

Share this page

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