Aggiunta al titolo

Hai un problema con Excel?

Nuova discussione

Aggiunta al titolo
di sorisole data: 20/04/2017 05:59:59
Buongiorno Ragazzi
Ho cercato di modificare questa macro ma non ci sono riuscito, chiedo se c´é qualcuno che mi puó risolvere il problema Grazie.
Attualmente la macro funziona bene, vorrei fare una modifica, quando mi archivia il foglio, attualmente mi da il nome inserito in cella C16, vorrei inserire nella intestazione anche il nome inserito in cella C15, sarebbe una intestazione con piú nomi.Sono a disposizione per eventuali chiarimenti, Grazie .

Sub BackupFoglioAttivo()

Dim nf, Nomefile, p As String
Dim Sht As Worksheet

   nf = Range("C16").Value  'nome del foglio che si registra
   Nomefile = nf & ".xlsx"
   cartella = Range("F14").Value  'nome della cartella che si vuole registrare
   percorso = "D:AMICIEVENTI" & cartella & ""
   ActiveSheet.Copy
   ActiveWorkbook.SaveAs percorso & "" & Nomefile & "  "
       Application.ScreenUpdating = False
    For Each Sht In Worksheets
       With Sht
       .Select
       Range(.UsedRange.Address) = (Range(.UsedRange.Address))
           ActiveSheet.Name = Nomefile
           ActiveWorkbook.Save
       End With
    Next Sht

    ActiveWorkbook.Close
MsgBox "D' STATO SALVATO" & file, vbInformation, "Excel"
End Sub

di patel data: 20/04/2017 07:46:52
prova così
nf = Range("C16").Value nf1 = Range("C15").Value Nomefile = nf & "_" & nf1 & ".xlsx"
di sorisole data: 20/04/2017 09:14:51
Ciao Patel
Grande Funziona come desideravo ho fatto delle prove tutto OK RISOLTO il problema Grazie

Vuoi Approfondire?