Hi All,
I'm New to this forum and this is my first threat.

I need a help on linking pivot table to a combobox, I'm trying with the below code but its not working can anybody plz help on this.


Private Sub ComboBox1_Change()
With Me.PivotTables(1).ColumnFields(1) "Tried replacing columnfields to rowfields"
.ClearAllFilters
.PivotFilters.Add _
Type:=xlCaptionEquals, Value1:=Me.ComboBox1.Value
End With
end sub

My Pivot
ELEMENT (All)
Row Labels Sum of HOURS
203522489 0
203522490 0
203522491 1
203522492 2
203522531 4
203522563 8
203522564 5
203522613 6
203522614 3
203522615 4
203522616 5
203522617 54
203522620 21
203522622 47
203522717 69
203522841 58
203522863 10
203523180 3
Grand Total 300
And this code too-
Private Sub ComboBox1_Change()
Me.ComboBox1.ListFillRange = Range("N1:N5").Address
ActiveSheet.PivotTables("PivotTable1").PivotFields("ELEMENT").CurrentPage = Me.ComboBox1.Value
End Sub

With this code is not getting linked, no changes in pivot.

I need help how do i enable/disenable Checkbox based on combobox items.

Thanks in advance.