Variante Macro

Hai un problema con Excel?

Nuova discussione

di patel data: 01/05/2017 08:31:05
NO, devi modificare questa

   myFile = "F:GESTIONE HYDROCLIENTIPreventiviArchivio PreventiviPREVENTIVI IN SOSPESO" & Sheets("InserimentoProvisorio").Range("C15") & "_" & _
Sheets("InserimentoProvisorio").Range("B16") & "_" & Sheets("InserimentoProvisorio").Range("F14") & "_" & Format(Now(), "mm-YYYY") & ".pdf"

di patel data: 01/05/2017 13:03:24
allora non ho capito niente, riformula la domanda con altre parole
di sorisole data: 01/05/2017 14:41:16
Ciao patel
Scusami se non sono pratico con le macro, cerco di riassumere quello che vorrei realizzare.
Questa ultima macro dovrei fare in modo di registrare in un percorso ben prestabilito, attualmente registra nello stessa cartella di lavoro, ho cercato di inserire un nuovo percorso in myFile ma non sono in grado di farla funzionare, questo é il problema.grazie

di patel data: 01/05/2017 15:30:57
la riga che salva il file è questa, basta modificare il percorso

ActiveWorkbook.SaveAs "F:GESTIONE HYDROCLIENTIPreventiviArchivio PreventiviPREVENTIVI IN SOSPESO" & Sheets("InserimentoProvisorio").Range("C15") & "_" & _
Sheets("InserimentoProvisorio").Range("B16") & "_" & Sheets("InserimentoProvisorio").Range("F14") & "_" & Format(Now(), "mm-YYYY") & ".xlsx", FileFormat:=51

di sorisole data: 01/05/2017 16:30:09
Grazie Patel
Perfetto era completamente diversa da come la pensavo io me la studieró grazie
Una cosa che vorrei conoscere esempio é l´allegato, se volessi aggiungere una registrazione di dati in un database percorso "F:GESTIONE HYDROCLIENTIPreventiviArchivio Preventivi" nome file "PREVENTIVI IN SOSPESO" nel foglio "UtiliLavori"

potrei utilizzare (lastRow = ThisWorkbook.Sheets) o vi sono altre possibiliá avevo provato in questo modo ma non funzionava cosí come é impostata.
lastRow = ThisWorkbook.Sheets("F:GESTIONE HYDROCLIENTIPreventiviArchivio PreventiviPREVENTIVI IN SOSPESOUtiliLavori").UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1

Vuoi Approfondire?