| | Post: 34 | Registrato il: 29/06/2008
| Città: ACQUAFONDATA | Età: 44 | Utente Junior | excel 2007 | | OFFLINE | |
|
17/10/2019 22:03 | |
ciao
ho un pivot e nei pivotTable field un filtro che si chiama market
ho associato una macro che mi seleziona il primo valore nel fields market poi copia tutto il pivot e lo incolla come value in uno shette che ha lo stesso nome del primo market selzionato; poi mi seleziona il secondo valore nel campo market, copia tutto il pivot e lo incolla come value in un nuovo sheet che ha lo stesso nome del secondo market selezionato e cosi via fino a selezionare tutti i market e copiare in tutti sheet differenti.
i dati a cui punta il pivot ovviamente puo cambiare di mese in mese quindi puo succedere che un market non lo trovi ... e li il problema xke mi si blocca la macro.
come faccio a dirgli che se non trova quel market passa al successivo ?
questa la macro ( solo dei primi 3 market perche sono tantiiii )
grazie a tutti ....
Sub emeaITA()
Sheets("Italy").Select
ActiveWindow.SmallScroll Down:=-20
Range("A15:AJ15").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
ActiveWindow.LargeScroll ToRight:=-1
Range("A15").Select
Sheets("DSO").Select
ActiveWindow.SmallScroll Down:=-16
ActiveSheet.PivotTables("PivotTable1").PivotFields( _
"[ALL INVOICE].[MARKET].[MARKET]").VisibleItemsList = Array( _
"[ALL INVOICE].[MARKET].&[Italy]")
Range("A14:AJ14").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Italy").Select
Range("Table57[[#Headers],[Customer Number]]").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-64
Range("J10").Select
Sheets("CentralEurope").Select
ActiveWindow.SmallScroll Down:=-20
Range("A15:AJ15").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
ActiveWindow.LargeScroll ToRight:=-1
Range("A15").Select
Sheets("DSO").Select
ActiveWindow.SmallScroll Down:=-16
ActiveSheet.PivotTables("PivotTable1").PivotFields( _
"[ALL INVOICE].[MARKET].[MARKET]").VisibleItemsList = Array( _
"[ALL INVOICE].[MARKET].&[Central Europe]")
Range("A14:AJ14").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("CentralEurope").Select
Range("Table578[[#Headers],[Customer Number]]").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-64
Range("J10").Select
Sheets("USA").Select
ActiveWindow.SmallScroll Down:=-20
Range("A15:AJ15").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
ActiveWindow.LargeScroll ToRight:=-1
Range("A15").Select
Sheets("DSO").Select
ActiveWindow.SmallScroll Down:=-16
ActiveSheet.PivotTables("PivotTable1").PivotFields( _
"[ALL INVOICE].[MARKET].[MARKET]").VisibleItemsList = Array( _
"[ALL INVOICE].[MARKET].&[USA]")
Range("A14:AJ14").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("USA").Select
Range("Table30[[#Headers],[Customer Number]]").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-64
Range("J10").Select |
|
|