josple ha scritto:Flash ho risolto, era la funzione visualizza blocca riquadri!
Meno male!
Se dovevo "risolverti" anche questo mi sarebbero cadute le braccia
Moderatori: Anthony47, Flash30005
josple ha scritto:Flash ho risolto, era la funzione visualizza blocca riquadri!
'... macro
Sheets("Temp").Range("I11").Copy '<<<< eliminare Destination:=... ma mettere la riga che segue
Sheets("Riepilogo").Range("AC" & UR).PasteSpecial Paste:=xlPasteValues
Sheets("Riepilogo").Range("AC" & UR).NumberFormat = "0.00" '<<<<< esistente
Sheets("Temp").Range("I11").Copy Destination:=Sheets("Riepilogo").Range("AC" & UR) '<<< esistente
Sheets("Riepilogo").Range("AC" & UR).FormulaR1C1 = "=((RC[-2]-RC[-1])/RC[-2])*100" '<<<<<<<<<<<< aggiungere
Public perc As String, Ws1 As String, f As String, WB1 As String
Sub ElencoFileXls()
Application.ScreenUpdating = False
Application.Calculation = xlManual
perc = ThisWorkbook.Path
If Dir(perc & "\ArchivioXls", vbDirectory) = "" Then
MkDir (perc & "\ArchivioXls")
End If
WB1 = ThisWorkbook.Name
Ws1 = "Riepilogo"
Worksheets(Ws1).Select
Range("A1").Select
ElencoFile Direct:=perc, Estens:="*.xls*", Inicell:=ActiveCell
Columns("A:DB").EntireColumn.AutoFit
Range("A1").Select
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Sub ElencoFile(Direct As String, Estens As String, Inicell As Range)
Dim i As Integer, f As String
ChDir Direct
f = Dir(Estens)
If f = "" Then Exit Sub
While f <> ""
If f <> ThisWorkbook.Name Then
Application.Workbooks.Open perc & "\" & f
URF = Workbooks(f).Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
URR = Workbooks(WB1).Worksheets(Ws1).Range("A" & Rows.Count).End(xlUp).Row
Workbooks(f).ActiveSheet.Rows("1:" & URF).Copy Destination:=Workbooks(WB1).Worksheets(Ws1).Range("A" & URR + 1)
Workbooks(f).Close savechanges:=False
FileCopy perc & "\" & f, perc & "\ArchivioXls\" & f
Kill perc & "\" & f
End If
f = Dir
Wend
End Sub
josple ha scritto: i files sono tutti impostati allo stesso modo. Hanno tutti un foglio temp vuoto e un foglio riepilogo contenente i dati di interesse
Torna a Applicazioni Office Windows
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 5 |
Modifica visualizzazione file di una cartella Autore: mastino46 |
Forum: Sistemi Operativi Windows Risposte: 2 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
Problemi di stampa file .PDF da macro. Autore: zanatta77 |
Forum: Applicazioni Office Windows Risposte: 1 |
Visitano il forum: Nessuno e 50 ospiti