Macro che estrae dati stessa cella ma file con data diversa

[Making]

Buongiorno,

vorrei un suggerimento, devo creare una serie storica di dati per confrontarli prendendoli dalla stessa cella di file che hanno tutti lo stesso nome ma che sono seguiti dalla data (es. 2018-04-23 - Nome File). Siccome ne ho tanti vorrei evitare di fare un file con tutte le formule. Se fosse possibile inserire un range di estrazione e poi una procedura che li metta in colonna con a fianco la data.

fatemi sapere, grazie mille

[Anthony47]

Il mio suggerimento:
Parti dal file su cui intendi creare le statistiche (File A)
Apri uno dei file da cui devi estrarre i dati (File B)

Su File A, inserisci in A2 la formula che peschi il dato che ti interessa dal File B

Chiudi il file B
Ti troverai con una formula del tipo

Codice: Seleziona tutto

='D:\PercorsoCompleto\[2018-04-23 - Nome File.xlsx]Foglio1'!$C$1

Sostituisci ora la parte 2018-04-23 con XYZZ; la formula ti restituira' un errore di tipo #RIF
Copia questa formula verso il basso per quante righe di dati vorresti raccogliere

Ora in un "Modulo standard del vba" del tuo file di lavoro inserisci questa macro:

Codice: Seleziona tutto

Sub RiFormula()
Dim I As Long, IData As String, fData As Date
'
IData = "1-set-2018"        '<<< La data di partenza
'
fData = CDate(IData)
Application.DisplayAlerts = False
For I = 2 To Cells(Rows.Count, "A").End(xlUp).Row
    Cells(I, "A").Formula = Replace(Cells(I, "A").Formula, "XYZZ", Format(fData, "yyyy-mm-dd"), , , vbTextCompare)
    fData = fData + 1
Next I
Application.DisplayAlerts = True
MsgBox ("Completato...")
End Sub


Per le istruzioni: viewtopic.php?f=26&t=103893&p=647675#p647675

Personalizza la riga marcata <<< come da commento, rispettando ovviamente la sintassi.

Infine manda in esecuzione la Sub RiFormula
Per le istruzioni: viewtopic.php?f=26&t=103893&p=647678#p647678

Fai sapere...

[Making]

Grazie, funziona, se volessi farlo su quattro colonne contemporaneamente?

[Anthony47]

Per lavorare sulle colonne A:D, sostituisci l'attuale ciclo For I / Next I con

Codice: Seleziona tutto

For I = 2 To Cells(Rows.Count, "A").End(xlUp).Row
    For J = 1 To 4
        Cells(I, J).Formula = Replace(Cells(I, J).Formula, "XYZZ", Format(fData, "yyyy-mm-dd"), , , vbTextCompare)
    Next J
    fData = fData + 1
Next I

Ciao

[Making]

Funziona tutto, grazie. E' possibile fare in modo che la data venga inserita in una finestra anzichè scritta nella macro e in cado di dato non disponibile la cella rimanga vuota senza restituire il valore di errore (tipo iferror(.....)?

[Anthony47]

Per la data inserita tramite inputbox, sostituisci la riga IData = "1-set-2018"
con

Codice: Seleziona tutto

rispo = Application.InputBox("Data di partenza?", "Input data", , , , , , 2)
If rispo = False Then Exit Sub
If Not IsDate(rispo) Then Exit Sub
IData = Format(rispo, "dd-mmm-yyyy")   

Su File A, inserisci in A2 la formula che peschi il dato che ti interessa dal File B

Quanto ad evitare errori come risultato della formula, allora devi tu impostare le formule iniziali in modo che contengano IFERROR /SE.ERRORE.

Ciao