Moderatori: Anthony47, Flash30005
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable) 'VECCHIO CODICE
If Target.Name = "Top10_Fam" Then
Application.EnableEvents = False
If Me.CheckBox1 Then Call CBCheck
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
If Target.Name = "Top10_Fam" Then
Application.EnableEvents = False
If Me.CheckBox1 Then Call CBCheck
ActiveWorkbook.SlicerCaches("TS_Data2").ClearDateFilter
resp = ActiveWorkbook.SlicerCaches("TS_Data2").TimelineState. _
SetFilterDateRange(Format(ActiveWorkbook.SlicerCaches("TS_data1").TimelineState.StartDate, "dd/mm/yyyy"), _
Format(ActiveWorkbook.SlicerCaches("TS_data1").TimelineState.EndDate, "dd/mm/yyyy"))
Application.EnableEvents = True
End If
End Sub
resp = ActiveWorkbook.SlicerCaches("TS_Data2").TimelineState. _
SetFilterDateRange(Format(ActiveWorkbook.SlicerCaches("TS_Data1").TimelineState.StartDate, "dd/mm/yyyy"), _
Format(ActiveWorkbook.SlicerCaches("TS_Data1").TimelineState.EndDate, "dd/mm/yyyy"))
ActiveWorkbook.SlicerCaches("TS_Data2").ClearDateFilter
'Segue parte modificata>>>
If Not ActiveWorkbook.SlicerCaches("TS_data1").FilterCleared Then
resp = ActiveWorkbook.SlicerCaches("TS_Data2").TimelineState. _
SetFilterDateRange(Format(ActiveWorkbook.SlicerCaches("TS_data1").TimelineState.StartDate, "dd/mm/yyyy"), _
Format(ActiveWorkbook.SlicerCaches("TS_data1").TimelineState.EndDate, "dd/mm/yyyy"))
End If
'<<< Fine parte modificata
Application.EnableEvents = True
Torna a Applicazioni Office Windows
Inserimento dati su tabella da codice a barre Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 80 |
menu a tendina con filtro per selezione elenco Autore: marcus69 |
Forum: Applicazioni Office Windows Risposte: 13 |
Visitano il forum: Nessuno e 14 ospiti