Condividi:        

VBA per spacchettare e copiare tabelle Pivot

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

VBA per spacchettare e copiare tabelle Pivot

Postdi rossomike1966 » 27/05/16 10:49

Ciao,
ho questo file
https://www.dropbox.com/s/clgwb5s7k9rbwho/prova.xlsx?dl=0.

Vorrei con un una macro (che non so scrivere...) poter filtrare nelle etichette di riga "il venditore" e una volta ottenuto il suo dettaglio, incollare il risultato in un nuovo foglio excel, pronto per essere inviato via mail...(l'invio via mail posso farlo anche a mano..)
Ho provato ad utilizzare il registratore di macro...ma non va..
qui di seguito un dettaglio (già filtrato) di quello che la macro dovrebbe fare in automatico per poi copiarlo in altro foglio..

Immagine

spero di essere stato chiaro..e grazie a chiunque potrà..."guidarmi.."
rossomike1966
Utente Junior
 
Post: 11
Iscritto il: 12/01/16 15:59

Sponsor
 

Re: VBA per spacchettare e copiare tabelle Pivot

Postdi ricky53 » 29/05/16 00:52

Ciao,
invia quello che hai ottenuto dalla registrazione della macro in modo da poter vedere quali passi hai fatto.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: VBA per spacchettare e copiare tabelle Pivot

Postdi Anthony47 » 30/05/16 00:04

Secondo me puoi risolverla piu' facilmente con formule standard.
Ad esempio:
Immagine
url immagine

In B5 c'e' la formula =MATR.SOMMA.PRODOTTO(--(Foglio1!$B:$B=$A$5);--(Foglio1!$D:$D=B$4);Foglio1!$E:$E)
Va poi copiata in C5
Il totale complessivo in D5 lo calcoli come =C5+B5
Il totale complessivo di riga 6 non so se serve ed eventualmente non avrai difficolta'.

B4 e C4 sono intestazioni di colonna con le classi merceologiche che ti interessano; in A5 ci va il nome del venditore. Formatta il foglio come meglio ti piace.
Chiama questo foglio "Risultati".
Poi con questa macro potrai creare N file contenenti il solo foglio Risultati rinominato pero' come il nome del Venditore, salvato sempre col nome del Venditore, contenente i valori calcolati (non le formule):
Codice: Seleziona tutto
Sub autom()
Dim I As Long, Sells
Sells = Array("Rossi", "Bianchi", "Verdi", "Neri")   '<<<
'
For I = LBound(Sells) To UBound(Sells)
    ThisWorkbook.Activate
    Sheets("Risultati").Copy
    Range("A5").Value = Sells(I)
    ActiveSheet.Name = Sells(I)
    Cells.Copy
    Range("A1").PasteSpecial Paste:=xlPasteValues
    ActiveWorkbook.SaveAs Filename:=Sells(I) & ".xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
DoEvents
Next I
End Sub

Adatta la riga marcata <<< con i nominativi di tuo interesse.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: VBA per spacchettare e copiare tabelle Pivot

Postdi rossomike1966 » 30/05/16 08:49

Grazie..FUNZIONA!
Siete mitici..
rossomike1966
Utente Junior
 
Post: 11
Iscritto il: 12/01/16 15:59


Torna a Applicazioni Office Windows


Topic correlati a "VBA per spacchettare e copiare tabelle Pivot":


Chi c’è in linea

Visitano il forum: Gianca532011 e 81 ospiti

cron