- Codice: Seleziona tutto
Sub Importa3()
Perc = ThisWorkbook.Path & "\"
Application.ScreenUpdating = False
Application.Calculation = xlManual
For RR1 = 12 To 15
Worksheets("Analisi DUVRI").Select
Nomefile = Range("N" & RR1).Text & ".xls"
Select Case RR1
Case Is = 12
ColI = "A"
ColF = "AC"
NomeFoglio = "Stato PdL"
Case Is = 13
ColI = "A"
ColF = "AI"
NomeFoglio = "Attivazioni"
Case Is = 14
ColI = "A"
ColF = "K"
NomeFoglio = "Duvri ieri"
Case Is = 15
ColI = "A"
ColF = "K"
NomeFoglio = "Duvri 2gg fa"
End Select
Workbooks.Open Filename:=Perc & Nomefile
Columns(ColI & ":" & ColF).Copy Destination:=Workbooks("Duvri Master.xls").Worksheets(NomeFoglio).Columns(2)
Application.DisplayAlerts = False
Workbooks(Nomefile).Close SaveChanges:=False
Application.DisplayAlerts = True
Next RR1 '<<< esistente
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Dim pt As pivotTable
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next pt
'aggiunte queste righe di codice per l'ultimo quesito
Worksheets("KPI report").Select
Cells.Copy
Workbooks.Open Filename:=Perc & "KPI Master.xls"
Worksheets("KPI report").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Workbooks("KPI Master.xls").Close SaveChanges:=True
'fine modifica copia valori
Worksheets("Analisi DUVRI").Select
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Avrei urgente bisogno che:
- fosse molto più veloce (ora impiega quasi 5 min per completare!)
- prima di copiare la pagina Kpi report (vedi in macro), aggiorni tutte le pivot nel file (ora c'è il comando ma non funziona)
- che invece di copiare l'intero foglio kpi report, ne copi solo le prime 62 righe)
Grazie mille in anticipo
Fabio
-