ho aperto un nuovo topic non sapendo se potevo accodarlo alla precedente discussione.
in pratica, sempre in riferimento al file precedente dove avevo chiesto come evidenziare celle in base ad un determinato valore,
ho aggiunto una pivot ma con riferimento a righe dinamiche perchè possono cambiare di volta in volta.
ho dichiarato le variabili ma va in errore. -- "errore di runtime 5 chiamata di routine o argomento non valido"
dove sto sbagliando??
riallego il file con macro
https://we.tl/t-smzleKy0Gq
e l'immagine con errore
![Immagine](https://i.postimg.cc/K3mxQtKW/errore-debug-macro12-08-2022.gif)
- Codice: Seleziona tutto
Sub Macro2()
'
' Macro2 Macro
'
'
Dim sh As Worksheet
Dim s As String
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Foglio1!" & s _
, Version:=xlPivotTableVersion10).CreatePivotTable TableDestination:= _
"Foglio2!R3C1", TableName:="Tabella pivot1", DefaultVersion:=8
Sheets("Foglio2").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("Tabella pivot1").PivotFields("TIPO")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tabella pivot1").PivotFields("DATA INZIO")
.Orientation = xlRowField
.Position = 2
End With
ActiveSheet.PivotTables("Tabella pivot1").PivotFields("DATA INZIO").AutoGroup
End Sub