- Codice: Seleziona tutto
Sub codifica_pallet()
'
' codifica_pallet Macro
Sheets("codifica_pallet").Visible = True
Sheets("codifica_pallet").Select
Columns("D:F").Select
Selection.Delete Shift:=xlToLeft
<<< Faccio il delete perchè excel si arrabbia se creo tabelle sovrapposte e visto che i dati possono variare mi trovo quasi costretto, almeno credo.
Columns("A:B").Copy Destination:=Columns("D:D")
<<< se faccio così, copiando interamente le colonne A:B (che ospitano la pivot), excel si arrabbia perchè non posso modificare la pivot e formattarla come tabella
<<< Nelle Colonne D:E, voglio incollare i dati delle colonne A:B (dove c'è una pivot)
Sheets("codifica_pallet").Select
Uri = Range("F" & Rows.Count).End(xlUp).Row
<<< conta righe colonna dove ci sono le formule
URF = Range("A" & Rows.Count).End(xlUp).Row
<<< conta righe dei dati
ActiveSheet.ListObjects.Add(xlSrcRange, Range("D" & Uri & ":E" & URF), , xlNo).Name = "Tabella1"
<<< qui sbaglio e non so come fare
Range("Tabella1[#All]").Select
ActiveSheet.ListObjects("Tabella1").TableStyle = "TableStyleMedium2"
Range("F1").Select
ActiveCell.FormulaR1C1 = _
"=IF(Tabella1[[#This Row],[Colonna2]]<10,""d"",IF(Tabella1[[#This Row],[Colonna2]]<50,""c"",IF(Tabella1[[#This Row],[Colonna2]]<100,""b"",""a"")))"
End Sub
Oppure reinserire le formule corrette attraverso il VBA
come vedo che hai fatto con il terzo gruppo di righe-codice della tua macro
qui non ho capito bene cosa intendi
Se questo andasse bene, poi potrei pensare a far funzionare il cerca.vert.
Immagino che la risposta possa essere questa chiedo pietà!