Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff.
|
Lista Forumurilor Pe Tematici
|
Mrrrr's Forum (VIEW ONLY) | Reguli | Inregistrare | Login
POZE MRRRR'S FORUM (VIEW ONLY)
Nu sunteti logat.
|
Nou pe simpatie:
angela31
 | Femeie
24 ani
Buzau
cauta Barbat
24 - 60 ani |
|
|
TRaP
Moderator
Inregistrat: acum 6 ani
Postari: 748
|
|
Sub Pivot_Clear_and_Filter_19()
' select all - clear filter
ActiveSheet.PivotTables("Pivottable1").ClearAllFilters
On Error Resume Next
' remove these
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Nume furnizor")
.PivotItems("BLABLA1").Visible = False
.PivotItems("BLABLA2").Visible = False
.PivotItems("BLABLA3").Visible = False
.PivotItems("BLABLA4").Visible = False
.PivotItems("BLABLA5").Visible = False
End With
End Sub
|
|
|
| pus acum 4 ani |
|
|
TRaP
Moderator
Inregistrat: acum 6 ani
Postari: 748
|
|
Remove items using wildcard:
Sub Pivot_Clear_and_Filter_WILDCARD()
' select all
ActiveSheet.PivotTables("Pivottable1").ClearAllFilters
On Error Resume Next
' remove these
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Nume furnizor")
For i = 1 To .PivotItems.Count
If .PivotItems(i).Name Like "*BLA1*" _
Or .PivotItems(i).Name Like "*BLA2*" _
Or .PivotItems(i).Name Like "*BLA3*" _
Or .PivotItems(i).Name Like "*BLA4*" _
Or .PivotItems(i).Name Like "*BLA5*" _
Or .PivotItems(i).Name Like "*BLA6*" _
Then
.PivotItems(i).Visible = False
Else
.PivotItems(i).Visible = True
End If
Next
End With
End Sub |
Source:
Modificat de TRaP (acum 4 ani)
|
|
| pus acum 4 ani |
|