Moderatori: Anthony47, Flash30005
Sub Importa()
Perc = ThisWorkbook.Path & "\"
Application.ScreenUpdating = False
Application.Calculation = xlManual
For RR1 = 13 To 15
Worksheets("Analisi DUVRI").Select
Nomefile = Range("N" & RR1).Text & ".xls"
Select Case RR1
Case Is = 13
NomeFoglio = "Stato PdL"
Case Is = 14
NomeFoglio = "Attivazioni"
Case Is = 15
NomeFoglio = "Duvri"
End Select
Workbooks.Open Filename:=Perc & Nomefile
Cells.Copy
Windows("Duvri Master.xls").Activate
Worksheets(NomeFoglio).Select
Range("A1").Select
ActiveSheet.Paste
Application.DisplayAlerts = False
Workbooks(Nomefile).Close SaveChanges:=False
Application.DisplayAlerts = True
Next RR1
Worksheets("Analisi DUVRI").Select
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Sub Importa2()
Perc = ThisWorkbook.Path & "\"
Application.ScreenUpdating = False
Application.Calculation = xlManual
For RR1 = 13 To 15
Worksheets("Analisi DUVRI").Select
Nomefile = Range("N" & RR1).Text & ".xls"
Select Case RR1
Case Is = 13
NomeFoglio = "Stato PdL"
Case Is = 14
NomeFoglio = "Attivazioni"
Case Is = 15
NomeFoglio = "Duvri"
End Select
Workbooks.Open Filename:=Perc & Nomefile
Cells.Copy Destination:=Workbooks("Duvri Master.xls").Worksheets(NomeFoglio).Range("A1")
Application.DisplayAlerts = False
Workbooks(Nomefile).Close SaveChanges:=False
Application.DisplayAlerts = True
Next RR1
Worksheets("Analisi DUVRI").Select
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Sub Importa2()
Perc = ThisWorkbook.Path & "\"
Application.ScreenUpdating = False
Application.Calculation = xlManual
For RR1 = 13 To 15
Worksheets("Analisi DUVRI").Select
Nomefile = Range("N" & RR1).Text & ".xls"
Select Case RR1
Case Is = 13
ColI = 1
ColF = "AC"
NomeFoglio = "Stato PdL"
Case Is = 14
ColI = 1
ColF = "AJ"
NomeFoglio = "Attivazioni"
Case Is = 15
ColI = 2
ColF = "K"
NomeFoglio = "Duvri"
End Select
Workbooks.Open Filename:=Perc & Nomefile
Columns("A:" & ColF).Copy Destination:=Workbooks("Duvri Master.xls").Worksheets(NomeFoglio).Columns(ColI)
Application.DisplayAlerts = False
Workbooks(Nomefile).Close SaveChanges:=False
Application.DisplayAlerts = True
Next RR1
Worksheets("Analisi DUVRI").Select
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Sub Importa3()
Perc = ThisWorkbook.Path & "\"
Application.ScreenUpdating = False
Application.Calculation = xlManual
For RR1 = 13 To 15
Worksheets("Analisi DUVRI").Select
Nomefile = Range("N" & RR1).Text & ".xls"
Select Case RR1
Case Is = 13
ColI = "B"
ColF = "AC"
NomeFoglio = "Stato PdL"
Case Is = 14
ColI = "B"
ColF = "AJ"
NomeFoglio = "Attivazioni"
Case Is = 15
ColI = "B"
ColF = "K"
NomeFoglio = "Duvri"
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("Analisi DUVRI").Select
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
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("Analisi DUVRI").Select
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 6 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Visitano il forum: Marius44 e 58 ospiti