mi chiamo Flavio ho 40 anni e sono di Pistoia e avrei bisogno del vostro aiuto.
ho un file che uso per fare dei raggruppamenti con delle macro per creare un output che viene salvato in un foglio nascosto all'interno di questo mio file con il nome Allegato Mail.
mi piacerebbe che una volta creato questo output, attraverso un nuovo pulsante, mi leggesse tutte le righe presenti nel foglio Allegato mail ( che ripeto nel file originale è nascosto) e mi spostasse le colonne, secondo un ordine, in un file esterno che si chiama output.xlsm si trova in una cartella sul mio desktop.
io ho provato a fare qualcosa ma riesco solo a creare un foglio all'interno del file che uso abitualmente.
vi allego il codice che ho scritto e due file dimostrativi
chi mi può aiutare?
- Codice: Seleziona tutto
Sub Pulsante1_Click()
Sheets("Allegato Mail").Visible = True
x = 6
i = 5
Sheets("Allegato Mail").Select
For i = 5 To Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Allegato mail").Cells(i, "A").Copy Destination:=Sheets("output").Cells(x, "C")
Sheets("Allegato mail").Cells(i, "B").Copy Destination:=Sheets("output").Cells(x, "A")
Sheets("Allegato mail").Cells(i, "C").Copy Destination:=Sheets("output").Cells(x, "B")
Sheets("Allegato mail").Cells(i, "D").Copy Destination:=Sheets("output").Cells(x, "U")
Sheets("Allegato mail").Cells(i, "D").Copy Destination:=Sheets("output").Cells(x, "U")
Sheets("Allegato mail").Cells(i, "H").Copy Destination:=Sheets("output").Cells(x, "E")
Sheets("SIM1").Cells(x, "D") = "Nestle Profesional"
Sheets("Allegato mail").Cells(i, "N").Copy Destination:=Sheets("output").Cells(x, "G")
Sheets("Allegato mail").Cells(i, "O").Copy Destination:=Sheets("output").Cells(x, "H")
x = x + 1
Next i
Sheets("Allegato Mail").Visible = False
End Sub
https://wetransfer.com/downloads/82084c8f75ad75989f29eb32dcb8113520180609075604/7487808b342fb7e23542c328e8abba2320180609075604/d5b29b