estendi a tutte

Hai un problema con Excel?

Nuova discussione

estendi a tutte
di rupert (utente non iscritto) data: 12/02/2015 19:32:05
CHI MI AIUTA A CORREGGERE LA SEGUENTE MACRO PER FARE IN MODO CHE APRA TUTTI I FILES.XLS (nella cartella "SPROTETTE"), COPI LE RIGHE "A184:AN185" E POI LI SALVI CON IL PROPRIO NOME SU ALTRA CARTELLA "DESTINAZIONE"?
VI PREGO.......GRAZIE

Sub COPIA_RIGHE()
'
' ultima Macro
'

'
ChDir "C:SPROTETTE"
Workbooks.Open FileName:="C:SPROTETTEda provare.xls"
Range("A184").Select

ChDir "C:"
Workbooks.Open FileName:="C:RIGHE.xlsx"
Range("A184:AN185").Select
Selection.Copy

'attivo la finestra del file dove voglio copiare le celle
Windows("da provare.xls").Activate
ActiveWindow.WindowState = xlNormal
Range("A184").Select
ActiveSheet.Paste
Rows("184:185").Select
Selection.RowHeight = 19.8
Range("A184").Select
Application.CutCopyMode = False

'salva il file con nome e collocazione cartella
ActiveWorkbook.SaveAs FileName:="C:DESTINAZIONEda provare.xls", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWindow.Close

Range("A184").Select
ActiveWorkbook.Save 'salve il file
ActiveWindow.Close 'chiude la schermata
End Sub
di Vecchio Frac data: 12/02/2015 21:36:18
Data una cartella vuoi aprirne i file .xls uno alla volta, e copiare da ciascuno il range A184:AN185, per copiarlo dove? infine vuoi salvare cosa? i file .xls che hai aperto man mano e non hai modificato? quindi una semplice copia?
o hai copiato quel range su un file (su più files?) e vuoi salvare questo (questi)?

Più precisione per favore... e senza urlare (scrivere in maiuscolo equivale a urlare) :o)
di rupert (utente non iscritto) data: 12/02/2015 23:50:00
Ciao e scusa per le maiuscole ma volevo semplicemente differenziare la domanda dalla macro che seguiva :(

In realtà ho diversi files. xls in quella cartella e li vorrei aprire tutti.
Su ciascuno copiare le celle A184:AN185 prese da un altro file che si chiama Righe.xls

Quindi salvare ogni file con il suo proprio nome in una nuova cartella.
Così ho il "prima" e il "dopo" l'inserimento delle celle

Spero di essere stato più chiaro
adesso ;)
Grazie per l'aiuto che mi vorrai dare. Rupert

Vuoi Approfondire?