Moderatori: Anthony47, Flash30005
Dalle immagini pubblicate sembra invece che si tratti di informazioni che provengono da 4 file diversi da copiare su un quinto file.Ho creato una macro con il registratore di Excel 2010 che sostanzialmente mi copia dei valori di 4 differenti fogli, in 4 celle di un altro foglio.
Sub Confronto_Produzione_Forecast()
'
' Confronto_Produzione_Forecast Macro
'
'
Windows("Produzione.xls").Activate
Range("H3").Select
Selection.Copy
Windows("Rev . 01 gennaio 2015.xlsm").Activate
Range("AP39").Select
Application.Run "'Rev . 01 gennaio 2015.xlsm'!Incolla_Valori"
Windows("Forecast.xls").Activate
Range("P3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Rev . 01 gennaio 2015.xlsm").Activate
Range("AQ39").Select
Application.Run "'Rev . 01 gennaio 2015.xlsm'!Incolla_Valori"
Windows("Produzione1.xls").Activate
Range("H3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Rev . 01 gennaio 2015.xlsm").Activate
Range("AR39").Select
Application.Run "'Rev . 01 gennaio 2015.xlsm'!Incolla_Valori"
Windows("Forecast1.xls").Activate
Range("P3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Rev . 01 gennaio 2015.xlsm").Activate
Range("AS39").Select
Application.Run "'Rev . 01 gennaio 2015.xlsm'!Incolla_Valori"
End Sub
Sub macroM()
With Workbooks("Rev . 01 gennaio 2015.xlsm").Sheets("Foglio1")
.Range("AP39").Value = Workbooks("Produzione.xls").Sheets("Foglio1").Range("H3").Value
.Range("AQ39").Value = Workbooks("Forecast.xls").Sheets("Foglio1").Range("P3").Value
.Range("AR39").Value = Workbooks("Produzione1.xls").Sheets("Foglio1").Range("H3").Value
.Range("AS39").Value = Workbooks("Forecast1.xls").Sheets("Foglio1").Range("P3").Value
End With
End Sub
Sub macroM2()
Dim I
I = Application.Match(Int(Now(), .Range("A1").Resize(Rows.Count,1),0)
With Workbooks("Rev . 01 gennaio 2015.xlsm").Sheets("Foglio1")
I = Application.Match(Int(Now(), .Range("A1").Resize(.Rows.Count,1),0)
If IsError(I) then Exit Sub 'Data non trovata
Msgbox("Data non trovata, procedura abortita") : Exit Sub
End If
.Range("AP39").Value = Workbooks("Produzione.xls").Sheets("Foglio1").Range("H" & I).Value
.Range("AQ39").Value = Workbooks("Forecast.xls").Sheets("Foglio1").Range("P" & I).Value
.Range("AR39").Value = Workbooks("Produzione1.xls").Sheets("Foglio1").Range("H" & I).Value
.Range("AS39").Value = Workbooks("Forecast1.xls").Sheets("Foglio1").Range("P" & I).Value
End With
End Sub
Torna a Applicazioni Office Windows
Perchè l'importazione dati con Selenium non fuziona? Autore: aggittoriu |
Forum: Applicazioni Office Windows Risposte: 2 |
copia di dati da un file chiuso e elaborazione Autore: luca62 |
Forum: Applicazioni Office Windows Risposte: 2 |
Aggiungere e eliminare righe senza alterare i riferimenti de Autore: trittico69 |
Forum: Applicazioni Office Windows Risposte: 4 |
cancella righe completamente vuote Autore: trittico69 |
Forum: Applicazioni Office Windows Risposte: 3 |
Macro per aprire file salvato su sharepoint Onedrive Autore: marcopont |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 1 ospite