[Excel] Urgente - VBA - copia condizionale di fogli excel

[camillobenzo]

Continuo a modificarlo e quindi l'upload diventa inutile.. Speravo non fosse necessario.
Ora lo sto rifacendo..La connessione è piuttosto lenta, fra circa 40min ti copio il link

Ciao,
Fabio

[camillobenzo]

-Il file è diventato pesantissimo (circa 180 mb) perchè ho inserito formule nelle colonne anche in righe successive alla fine della tabella, al fine di evitare di allungarle o ridurle ogni volta che il file si aggiorna. Se ci fosse un'opzione automatica che tagli il foglio dopo l'ultima cella della tabella appena importata, aggiornando le colonne adiacenti, sarebbe l'ideale.

vorrei inserire la seguente macro all'interno di quella che già abbiamo. E' relativa al foglio 'attivazioni'. Copia la colonna P in AL e poi sostituisce tutti i "." con "/".

Codice: Seleziona tutto

Sub format()
'
' format Macro
'

'
    Columns("AL:AL").Select
End Sub
Sub format2()
'
' format2 Macro
'

'
    Columns("AL:AL").Select
    Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Columns("AL:AL").Select
    Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Find(What:=".", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        True, SearchFormat:=False).Activate
    Range("AL2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Find(What:=".", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        True, SearchFormat:=False).Activate
    Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("AI65529").Select
    ActiveWindow.ScrollRow = 65504
    ActiveWindow.ScrollRow = 65292
    ActiveWindow.ScrollRow = 64869
    ActiveWindow.ScrollRow = 62012
    ActiveWindow.ScrollRow = 48573
    ActiveWindow.ScrollRow = 45398
    ActiveWindow.ScrollRow = 31112
    ActiveWindow.ScrollRow = 25186
    ActiveWindow.ScrollRow = 24657
    ActiveWindow.ScrollRow = 23493
    ActiveWindow.ScrollRow = 21800
    ActiveWindow.ScrollRow = 4340
    ActiveWindow.ScrollRow = 1
End Sub
Sub Macro3()
'
' Macro3 Macro
'

'
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 1
    Columns("P:P").Select
    Selection.Copy
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 19
    Columns("AL:AL").Select
    ActiveSheet.Paste
    Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub


-sembra che le pivot presenti nel foglio 'kpi report' (che fanno riferimento alle colonne A:AT dello stato pdl) e quelle del foglio pivot attivazioni (facente riferimento alle colonne A:AL del foglio attivazioni) non si aggiornino automaticamente alla fine della macro. Il che è fondamentale..

-vorrei che alla fine, la macro copi (solo VALORI e FORMATO) i fogli 'report anomalie' e 'kpi report' nel file 'DB KPI Pdl' con la seguente formula (concatenate("Report anomalie";" ";text('Analisi DUVRI'!$H$12;gg-mm-aaaa)). Nella cella Analisi DUVRI'!$H$12 c'è una data. Di conseguenza avrei nel nuovo foglio 'DB KPI Pdl' tanti 'report anomalie' con date diverse. Nel caso in cui trovi un foglio con lo stesso nome, la macro dovrebbe sostituirlo.

C'è un ultimo comando fondamentale che vorrei inserire nella macro VBA ma non ho ancora la macro pronta. E' un passaggio fondamentale per il risultato finale, ed è anche l'ultima cosa che ho da fare per completare il modello. Per dopo pranzo ti scrivo macro e spiego tutto meglio.

Link files: Annullato


Grazie veramente tanto
Se riusciamo, oggi finisco tutto e non ti disturbo più..

Ciao e buona giornata,

Fabio

EDIT: annullato link per dati sensibili contenuti all'interno del file - Flash ore 4:00

[camillobenzo]

L'ultimo comando fondamentale di cui ti parlavo è il seguente:
-vorrei che alla fine, la macro copi (solo VALORI e FORMATO) i fogli 'report anomalie' e 'kpi report' nel file 'KPI Master.xls'. Naturalmente durante la copia il file sostituirebbe i file precedenti. E qui entra in ballo la macro. Nella cella A1 del foglio 'kpi report' c'è una data. La macro, dopo la copia del foglio 'kpi report' all'interno del file 'kpi master', dovrebbe (sempre all'interno del file 'kpi master') copiare e incollare (valori e formato) la colonna relativa a quella data nei fogli successivi (Richiedenti,DC-APC,DC-APDD,DC-APMSP,DC-APTU). Mi spiego meglio: come vedi in questi fogli appena menzionati, a colonna B corrisponde una data presente in B1, a colonna C, data presente in C1... Se quella colonna fa riferimento alla stessa data presente nella cella $A$1 del foglio 'kpi report', quella colonna deve incollare i valori appena calcolati. Se questo non viene fatto nelle celle rimarranno le formule e ad ogni nuovo inserimento del foglio 'kpi report' il file perderebbe i valori delle date precedenti.

GRAZIE GRAZIE GRAZIE
Fabio

ps. con queste modifiche dovrebbe essere tutto finito e ok. Appena puoi ti prego di darmi una mano perchè il file è in consegna urgente...Per il futuro, se sei interessato, si potrebbe anche pensare ad una collaborazione, ma te ne parlerò a lavoro finito perchè sono purtroppo incasinatissimo..

Allego file: Annullato

EDIT: annullato link per dati sensibili contenuti all'interno del file - Flash ore 4:00

[camillobenzo]

Ciao Flash,

sei riuscito a dargli uno sguardo?

Fabio

[camillobenzo]

Buonasera Flash,

se hai qualche momento libero in serata riesci ad aiutarmi?
A parte l'urgenza del file che mi
mette una fretta non indifferente, c'è il fatto che vorrei eliminare i link dai messaggi, per evitare di lasciare in rete dati privati. Spero tu capisca.

Grazie ancora e buona serata,

Fabio

[Flash30005]

Ho tolto il link appena ho potuto
Ora sto cercando di capire perché ciò che chiedi mi sembra complesso (ma è solo un'analisi superficiale).

Quando invii un file di grosse dimensioni sarebbe opportuno creare un archivio .zip o .rar perché le dimensioni del file si riducono notevolmente con possibilità di velocizzare sia l'upload che il download.

[Flash30005]

Per il problema della colonna da P a AL e successiva formattazione
puoi usare la macro modificata

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"
Case Is = 15
ColI = "A"
ColF = "K"
NomeFoglio = "Duvri ieri"
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

'.... aggiunte queste righe
Worksheets("Attivazioni").Select
UR = Range("P" & Rows.Count).End(xlUp).Row
    Range("P2:P" & UR).Copy Destination:=Range("AL2")
For RR = 2 To UR
Datam = Range("AL" & RR).Value
Range("AL" & RR).Value = DateSerial(Mid(Datam, 7, 4), Mid(Datam, 4, 2), Mid(Datam, 1, 2))
Next RR
'fine modifica

Worksheets("Analisi DUVRI").Select
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

[Flash30005]

Con questa macro dovresti aver risolto anche il problema del copia KPI Report nel file Master

Il file KPI_Master.xls deve essere nella stessa cartella di Duvri Master.xls

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"
Case Is = 15
ColI = "A"
ColF = "K"
NomeFoglio = "Duvri ieri"
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
Worksheets("Attivazioni").Select
UR = Range("P" & Rows.Count).End(xlUp).Row
    Range("P2:P" & UR).Copy Destination:=Range("AL2")
For RR = 2 To UR
Datam = Range("AL" & RR).Value
Range("AL" & RR).Value = DateSerial(Mid(Datam, 7, 4), Mid(Datam, 4, 2), Mid(Datam, 1, 2))
Next RR

'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

Ciao

[camillobenzo]

Grazie Flash! Per l'aggiornamento automatico di tutte le pivot e celle?

[Flash30005]

Non saprei ho copiato solo i valori del report nel master
se nel master erano aggiornate le tabelle dovresti trovare la stessa situazione nel KPI Report

Anche perché non si tratta di una tabella ma una miriade di tabelle e non saprei dove intervenire

Ciao

[camillobenzo]

Mi dà il seguente errore:
Runtime error '9'
Subscript out of range

e il debug mi seleziona la seguente riga della macro:
Columns(ColI & ":" & ColF).Copy Destination:=Workbooks("Duvri Master.xls").Worksheets(NomeFoglio).Columns(2)
e mi apre il file che dovrebbe copiare nel foglio 'duvri ieri'

Come si risolve?

[Flash30005]

E cosa c'entra quella?
io ho usato il file che mi hai mandato nel quale doveva esserci la macro da me postata e che ha sempre funzionato
Le modifiche le ho attuate alla fine della macro (dove indicato)
quindi non so cosa può essere successo nel frattempo
Devi controllare, una volta in debug e portando il mouse (senza cliccare) su ogni variabile della riga e verificando se c'è qualche anomalia dove magari una variabile è senza dato (vuota)
ciao

[Flash30005]

Penso di aver capito cosa c'è
cioè cosa non c'è il foglio "Duvri" sul Duvri Master
I nomi foglio, originariamente, erano

"Stato PdL"
"Attivazioni"
"Duvri" '<<<< manca questo foglio
"Duvri ieri"

Quindi non dipende dalla macro ma da un foglio mancante che avrai tolto o rinominato, volutamente o involontariamente

ciao

[camillobenzo]

Risolto.

Verso la fine della macro mi dà però questo errore: runtime error 1004
pastespecial method of range class failed

[Flash30005]

in quale riga?

E' il classico errore di avere un foglio attivo invece che quello previsto
magari smanettando durante il debug ti sarai spostato da un foglio all'altro

[camillobenzo]

Per aggiornare tutte le pivot leggo che è possibile inserire la seguente macro in vba:

Sub AllWorksheetPivots()
Dim pt As PivotTable

For Each pt in ActiveSheet.PivotTables
pt. RefreshTable
Next pt
End Sub



E' possibile inserirla all'interno di quella che hai fatto tu?
Di seguito l'ultima versione.

Grazie,
Fabio

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
Worksheets("Attivazioni").Select
UR = Range("P" & Rows.Count).End(xlUp).Row
    Range("P2:P" & UR).Copy Destination:=Range("AL2")
For RR = 2 To UR
Datam = Range("AL" & RR).Value
Range("AL" & RR).Value = DateSerial(Mid(Datam, 7, 4), Mid(Datam, 4, 2), Mid(Datam, 1, 2))
Next RR

'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



[Flash30005]

Ehm dubito che l'aggiornamento fatto con questo codice preveda anche un aumento di righe, al massimo potrà aggiornare i dati variati all'interno del range previsto ma...
Tentar non nuoce

Prendi solo queste quattro righe che hai postato e le inserisci nella macro dove indicato

Codice: Seleziona tutto

Dim pt As PivotTable

For Each pt in ActiveSheet.PivotTables
pt. RefreshTable
Next pt

Codice: Seleziona tutto

...
Next RR  '<<< esistente

'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<Inserisci qui le righe di codice sopra menzionate

'aggiunte queste righe di codice per l'ultimo quesito '<<<< commento esistente


Ciao

[camillobenzo]

Non so perchè ma la macro va veloce, poi apre un altra pagina microsoft excel con lo stesso nome "Duvri master" e lì si ferma 4-5 min prima di completare il processo.
Inoltre non aggiorna nè pivot nè le celle ad esse collegate prima di copiare i valori nel file KPI master.
Come mai?

Grazie,
Fabio

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
Worksheets("Attivazioni").Select
UR = Range("P" & Rows.Count).End(xlUp).Row
    Range("P2:P" & UR).Copy Destination:=Range("AL2")
For RR = 2 To UR
Datam = Range("AL" & RR).Value
Range("AL" & RR).Value = DateSerial(Mid(Datam, 7, 4), Mid(Datam, 4, 2), Mid(Datam, 1, 2))
Next RR  '<<< 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




[Flash30005]

...poi apre un altra pagina microsoft excel con lo stesso nome "Duvri master...

Credo proprio che non sia possibile!
Excel non può mai aprire due file con lo stesso nome se hai avviato il file Druvi Master.xls che contiene il programma
il programma non potrà mai avviare un altro file con lo stesso nome, devi aver fatto qualche impiccio, magari hai rinominato il file con il programma

Per quanto riguarda le Pivot che non si aggiornano potrebbe dipendere da due cose
1) che il codice di aggiornamento Pivot non funziona come dicevi
2) che aggiorna ma il file (fantasma) che viene aperto ma non quello effettivo

Altro non saprei

ciao