Ricostruire Formule da un File a un altro File

Stato
Chiusa ad ulteriori risposte.

ibernet

Utente junior
31 Maggio 2019
70
18
O365
3
Questo script vi permette di riportare le formule presenti in un foglio di un file in un altro foglio presente in un secondo file.

Non potete farlo con il copia incolla perchè quando tenterete excel riporterà nelle formule incollate il collegamento al foglio origine e se ci sono definizioni di formule verranno importate o sovrascritte.

Ecco lo script che automaticamente vi riporta le formule da un file a un altro:
Leggete bene le istruzioni contenute nel codice prima di utilizzarlo

Visual Basic:
Sub Ricostruzione_Formule()
'***** LEGGERE QUESTE ISTRUZIONI PRIMA DI UTILIZZARE LA MACRO ****************************
'Settare i DATI DI CONFIGURAZIONE MANUALE
'  Se eseguite l'operazione su più fogli ad ogni cambio foglio ricordatevi di modificare
'  la variabile NomeFoglio
'Quando si avvia la macro assicurarsi che entrambi i file siano aperti sulla stessa madre
'*****************************************************************************************

'Riferimenti formule e celle
Dim frml As String
Dim Col As Integer
Dim Rec As Integer
'Riferimento partenza e arrivo
Dim file1 As String
Dim file2 As String
Dim ColArrivo As Integer
Dim RecArrivo As Integer

'>>>>>>>>>>> DATI DI CONFIGURAZIONE MANUALE <<<<<<<<<<
file1 = "nomefile.estensione"       'File di partenza
file2 = "nomefile.estensione"       'File di arrivo
NomeFoglio = "Foglio utilizzato"    'Inserisci il nome del foglio da usare (deve essere uguale su entrambi i file)
ColArrivo = 16                      'Colonna di Fine Ciclo
RecArrivo = 57                      'Record di Fine Ciclo
Col = 1                             'Valorizzo la partenza dalla colonna 1
Rec = 1                             'Valorizzo la partenza dalla riga 1
'*****************************************************
'  IL CODICE DA QUI IN GIU' NON DEVE ESSERE TOCCATO
'*****************************************************
For e = Rec To RecArrivo

    For i = Col To ColArrivo
        'Seleziono la formula dal file di partena
        Windows(file1).Activate
        Sheets(NomeFoglio).Select
        frml = Worksheets(NomeFoglio).Cells(e, i).Formula
        'Copio la formula nel file di arrivo
        Windows(file2).Activate
        Sheets(NomeFoglio).Select
        Worksheets(NomeFoglio).Cells(e, i).Formula = frml
    Next i

Next e
    
End Sub
 
  • Like
Reactions: ges
Stato
Chiusa ad ulteriori risposte.

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!