Ciao,
adesso è più chiaro almeno un po lo schema dei dati ma poco.
Ma dove si trovano le pivot?
Ma un file di esempio si può avere?
Moderatori: Anthony47, Flash30005
Sub macrall()
'Altre parti di macro qui in testa
'il foglio "Lettere da trovare" deve essere attivo...
'la cella filtrata deve essere selezionata
'raccogli un paio di info:
myNPvt = Application.WorksheetFunction.CountA(ActiveCell.Resize(1, 30))
myFilts = ActiveCell.Address
'
Sheets("Pivot").Select
'
'Elimina pivottables oltre la prima
For I = 2 To ActiveSheet.PivotTables.Count
ActiveSheet.PivotTables(1).PivotSelect "", xlDataAndLabel, True
Selection.ClearContents
Next I
'allineai a sx
PrimaCol = ActiveSheet.PivotTables(1).TableRange2.Range("A1").Column
If PrimaCol > 1 Then
Range("A:A").Resize(, PrimaCol - 1).Delete Shift:=xlToLeft
End If
'aggiungi le nuove pvt
Sheets("Pivot").Select
myOff = ActiveSheet.PivotTables(1).TableRange2.Columns.Count
ActiveSheet.PivotTables(1).PivotSelect "", xlDataAndLabel, True
Selection.Copy
For I = 1 To myNPvt - 1
Selection.Range("A1").Offset(0, myOff + 1).Select
ActiveSheet.Paste
Next I
Application.CutCopyMode = False
'Applica filtri
With ActiveSheet
For I = 1 To .PivotTables.Count
.PivotTables(I).PivotFields("Parole").ClearAllFilters
'myFilt = Sheets("Lettere da trovare").Range(myFilts).Offset(0, I - 1).Value
.PivotTables(I).PivotFields("Parole").PivotFilters.Add Type:=xlCaptionEndsWith, _
Value1:=Sheets("Lettere da trovare").Range(myFilts).Offset(0, I - 1).Value
Next I
End With
'
End Sub
Torna a Applicazioni Office Windows
Macro che scatta quando cambia dato in un altro file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 14 |
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Visitano il forum: Nessuno e 56 ospiti