caroparrado
New Member
- Joined
- May 10, 2015
- Messages
- 5
Hello I am kind of new in VB and I am trying to control different pivot tables with a combobox, but when I try to do so I receieve the same error that says: "Error 1004: Application-defined or Object-defined Error". This is the code that I am using. Could someone help me to solve this issue?
Sub SwitchMarkets()
<code style="margin: 0px; padding: 0px; border: 0px; font-family: Consolas, Menlo, Monaco, 'Lucida Console', 'Liberation Mono', 'DejaVu Sans Mono', 'Bitstream Vera Sans Mono', 'Courier New', monospace, sans-serif; white-space: inherit;">ActiveSheet.PivotTables("PivotTable1").PivotFields("Market").ClearAllFilters
ActiveSheet.PivotTables("PivotTable1").PivotFields("Market").CurrentPage = _
Worksheets("Using Combo Box Controls").Range(“O5”).Value
ActiveSheet.PivotTables("PivotTable2").PivotFields("Market").ClearAllFilters
ActiveSheet.PivotTables("PivotTable2").PivotFields("Market").CurrentPage = _
Worksheets("Using Combo Box Controls").Range(“O5”).Value</code>End Sub
Thanks!!
Sub SwitchMarkets()
<code style="margin: 0px; padding: 0px; border: 0px; font-family: Consolas, Menlo, Monaco, 'Lucida Console', 'Liberation Mono', 'DejaVu Sans Mono', 'Bitstream Vera Sans Mono', 'Courier New', monospace, sans-serif; white-space: inherit;">ActiveSheet.PivotTables("PivotTable1").PivotFields("Market").ClearAllFilters
ActiveSheet.PivotTables("PivotTable1").PivotFields("Market").CurrentPage = _
Worksheets("Using Combo Box Controls").Range(“O5”).Value
ActiveSheet.PivotTables("PivotTable2").PivotFields("Market").ClearAllFilters
ActiveSheet.PivotTables("PivotTable2").PivotFields("Market").CurrentPage = _
Worksheets("Using Combo Box Controls").Range(“O5”).Value</code>End Sub
Thanks!!