salve
purtroppo non riesco a riprodurre l'errore con il mio 2003.
Da quanto mi mostri il problema è nel passaggio delle tabelle .
Ti chiedo di fare questa ulteriore prova
aggiungi queste due righe
Test=Cells(Rtab + 1, 256).End(xlToLeft).value
Tad=Cells(Rtab + 1, 256).End(xlToLeft).address
prima della seguente riga:
Cells(Rtab + 1, 256).End(xlToLeft).Delete
fammi sapere che valore estrae.

Per quanto riguarda invece l'indicazione Somma di Numero/Conteggio di numero la macro esegue giustamente il conteggio e non la somma, nella versione 2007 non viene cambiata la Caption (definizione) del campo.
saluti
Giap

---

salve
quello che mi serve vedere sono i valori che assumono le due variabili Test - Tad
quando arrivi al punto di errore devi andare con il cursore sopra la voce Test e copiare il valore assunto
la stessa cosa sulla voce Tad

Test=Cells(Rtab + 1, 256).End(xlToLeft).value
Tad=Cells(Rtab + 1, 256).End(xlToLeft).address

Per quanto riguarda invece il titolo della casella della Tabella Pivot , in ambiente 2000/2003 cambiando il metodo viene anche cambiata la titolazione, in mabiente 2007 probabilmente bisogna cambiare la Caption da codice.
prova a sostituire questa riga:

ActiveSheet.PivotTables("Tabella_pivot" & Pr).PivotFields("Somma di Numero"). _
Function = xlCount

con queste:

With ActiveSheet.PivotTables("Tabella_pivot" & Pr).PivotFields("Somma di Numero")
.Function = xlCount
.Caption = "conteggio di numero"
End With

saluti
Giap

---

salve

1) per la colonna scomparsa:(mistero!!!)
prova a variare la riga in rosso:

Sub CreaPivot2()
Select Case Tab2
Case 1
colp = 3
Rtab = Sheets("TabPivot").Range("C65536").End(xlUp).Row + 3
Case 2
colp = 22
.......

così vediamo che succede.


2) per l'errore della riga incriminata, non vorrei che ci fosse una variazione nella sintassi VBA.
Dovresti provarmi quanto segue:

vai sul foglio TabPivot >accendi il registratore di macro>
con il registratore attivato, Clik Dx sulla cella "Totale complessivo" click su "Nascondi"
ferma il registratore di macro e posta il codice registrato.
saluti
Giap

---

salve
ora è tutto chiaro. Dall'immagine che hai postato, si vede come la tabella Pivot (la prima come in immagine) nella versione 2007 contrariamente alla mia versione non si ferma alla colonna S ma si estende fino alla colonna T
da qui l'errore dovuto ad una sovrapposizione.
Quindi con la modifica della variabile "Colp" portata a 22 la cosa si è risolta.
Dal codice registrato che hai postato ho imparato qualcosa di nuovo anche io (la proprietà RowGrand e ColumnGrand)

quindi la soluzione finale con la modifica della variabile Colp
e con la modifica che segue:
eliminare le righe seguenti:

Range("A65536").End(xlUp).Delete
Cells(Rtab + 1, 256).End(xlToLeft).Delete

e sostituirle con queste:

ActiveSheet.PivotTables("Tabella_pivot" & Pr).ColumnGrand = False
ActiveSheet.PivotTables("Tabella_pivot" & Pr).RowGrand = False

In teoria ora dovrebbe girare a dovere.




Si S5 della macro è lo stesso valore estratto dalla variabile Tad che ti ho fatto usare per verifcare che leggesse
la cella giusta.
saluti
Giap

---

Salve
L'osservazione è legittima e la modifica indispensabile.


Cambia così:
Range("AK:BH" & Rows.Count).ClearContents



Cambia così:
Rtab = Sheets("TabPivot").Cells(Rows.Count, colp).End(xlUp).Row + 3




Cambia così:
Rtab = Sheets("TabPivot").Cells(Rows.Count, colp).End(xlUp).Row + 3




Ora non mi rimane che augurati Buon lavoro.
saluti
Giap

---

salve
ci credo che non funziona!!!!!!!!!!! un pezzo mi è rimasto sulla punta delle dita:

l'istruzione giusta è :

Range("AK2:BH" & Rows.Count).ClearContents

se non gli si indicata la riga, con la sola colonna non si va nessuna parte.
saluti e scusa per il disguido.
Giap

---