Moderatori: Anthony47, Flash30005
Sub ItemSelect()
Dim PvI As PivotItem
'
With ActiveSheet.PivotTables(1)
.ManualUpdate = True
For Each PvI In .PivotFields("Valori").PivotItems
pviHead = PvI.Name
If Application.WorksheetFunction.CountIf(Range("A20:A100"), pviHead) = 0 Then
Range(PvI.LabelRange.Address).EntireColumn.Hidden = True
' PvI.Visible = False
Else
Range(PvI.LabelRange.Address).EntireColumn.Hidden = False
' PvI.Visible = True
End If
Next PvI
.ManualUpdate = False
.Update
End With
End Sub
Torna a Applicazioni Office Windows
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 5 |
confrontare e evidenziare 2 fogli excel Autore: niccia |
Forum: Applicazioni Office Windows Risposte: 7 |
[EXCEL] controllo corrispondenza tra valori con un vincolo Autore: sbs |
Forum: Applicazioni Office Windows Risposte: 9 |
Visitano il forum: Nessuno e 5 ospiti