Risultati da 1 a 8 di 8

Discussione: Salvataggio di un range di celle



  1. #1
    L'avatar di John
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Pescara
    Età
    61
    Messaggi
    42
    Versione Office
    Excel 2010
    Likes ricevuti
    2
    Likes dati
    0

    Salvataggio di un range di celle

    Buonasera a tutti
    sto cercando di risolvere un problema relativo al salvataggio di un range di celle che mi diventa un file pdf, da mettere in una cartella specifica; mi spiego meglio:da un form, cliccando sul pulsante "SALVA OFFERTA" vorrei che il range di celle, sempre lo stesso, venga salvato nella cartella "ARCHIVIO OFFERTE"; il nome del file è il concatenamento di 3 celle all'interno del range. Ho provato utilizzando "Registra macro" ma non va bene perché oltre a dover digitare sempre il nome del file, mi salva l'intero foglio e non è quello che mi serve.Qualcuno può darmi una mano?
    Grazie
    Gianni


    Ps in allegato il file di prova

  2. #2
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3339
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da John Visualizza Messaggio
    Buonasera a tutti
    sto cercando di risolvere un problema relativo al salvataggio di un range di celle che mi diventa un file pdf, da mettere in una cartella specifica; mi spiego meglio:da un form, cliccando sul pulsante "SALVA OFFERTA" vorrei che il range di celle, sempre lo stesso, venga salvato nella cartella "ARCHIVIO OFFERTE"; il nome del file è il concatenamento di 3 celle all'interno del range. Ho provato utilizzando "Registra macro" ma non va bene perché oltre a dover digitare sempre il nome del file, mi salva l'intero foglio e non è quello che mi serve.Qualcuno può darmi una mano?
    Grazie
    Gianni

    Ps in allegato il file di prova
    Ciao Gianni prova a vedere se ti va bene.

    Ciao.

    Codice: 
    Private Sub CommandButton3_Click()
    
    Dim percorso As String
    Dim nomefile As String
    Dim wsh As Worksheet
    
    
    Set wsh = ThisWorkbook.Worksheets("Foglio1")
    
    
    nomefile = wsh.Range("Q17").Value & " " & wsh.Range("Q14").Value & wsh.Range("R14").Value & ".pdf"
    percorso = "E:\Documents\000_GENERALE\0_DATI COMPLESSIVI\PENTOLE\0_ARCHIVI\"
    
    
    wsh.Range("K4:V67").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            percorso & nomefile
            
    Set wsh = Nothing
    
    
    End Sub
    P.S.
    Ho aggiunto un bottone per chiudere la form

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  3. #3
    L'avatar di John
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Pescara
    Età
    61
    Messaggi
    42
    Versione Office
    Excel 2010
    Likes ricevuti
    2
    Likes dati
    0
    Grazie Baloon per la soluzione; adesso non la posso provare perché sono in partenza per il paese (sta moglie.......)lunedì appena in ufficio ti faccio sapere.
    ancora grazie e buon fine settimana.
    Gianni

  4. #4
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3339
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da John Visualizza Messaggio
    Grazie Baloon per la soluzione; adesso non la posso provare perché sono in partenza per il paese (sta moglie.......)lunedì appena in ufficio ti faccio sapere.
    ancora grazie e buon fine settimana.
    Gianni
    grazie e buon fine settimana anche a te e buon viaggio per il paesello :242:

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  5. #5
    L'avatar di John
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Pescara
    Età
    61
    Messaggi
    42
    Versione Office
    Excel 2010
    Likes ricevuti
    2
    Likes dati
    0
    Ciao Baloon
    ho provato la soluzione da te suggerita e, manco a dirlo, funzionava benissimo; solo che aprendo il file pdf generato, quello che doveva essere un salvataggio di una sola pagina A4, mi appariva un file di 4 pagine ed il foglio di Excel mi appariva così:
    https://www.dropbox.com/s/knc81ii5g4gfizd/Immagine.PNG?dl=0

    a fiuto mi sembrava un problema di "area di stampa" e allora prima di approfittare della tua disponibilità, mi sono messo a smanettare e ho trovato una soluzione abbastanza "casereccia";
    in pratica utilizzando il comando "registra macro", ho selezionato l'area di stampa e, dal menù FILE>STAMPA>IMPOSTAZIONI ho settato l'area di stampa in un'unica pagina; ho poi inserito questa parte di modulo, all'interno del tuo codice e ho modificato i riferimenti delle celle relativi alla istruzione di salvataggio mettendoci il simbolo $

    wsh.Range("$K$4:$V$67").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    percorso & nomefile


    ed è andato tutto a posto. Però c'era qualcosa che non mi convinceva, infatti io ho come stampante predefinita ADOBE ACROBAT e quindi non sapevo se il file generato era frutto di una stampata o di un salvataggio di Excel in pdf; allora ho cambiato la stampante predefinita mettendo quella cartacea e mi dava errore; nel debug ho cambiato questa istruzione

    Application.PrintCommunication = False

    mettendola su False al posto di True come generato dal registratore di macro e ora funziona tutto regolarmente.

    Ti allego il file con le modifiche perché a naso mi sembra che ci siano parecchie istruzioni inutili e comunque mi rimane il tarlo sul perché per fare un salvataggio, si debba modificare delle opzioni di stampa.

    Grazie per la tua disponibilità e ti saluto cordialmente
    Gianni


    https://www.dropbox.com/s/w3185hohd4go1by/SALVATAGGIO%20DI%20RANGE_2.xlsm?dl=0














  6. #6
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3339
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Scusami John ti sto leggendo solo adesso.
    Miiii che casotto le modifiche col registratore di macro.
    io avevo già fatto la modifica (dopo che sei andato via con la moglie eheheh) senza toccare il VBA
    Eccola. In pratica ho modificato il layout di stampa dicendogli di adattare la stampa ad una pagina sia di altezza che di larghezza. (puoi farlo anche tu da layout di pagina ---> margini ---> margini personalizzati ---> pagina ---> adatta...
    Codice: 
    Private Sub CmdFine_Click()
    
    Unload UserForm1GESTIONEOFFERTE
    
    
    End Sub
    
    
    
    
    Private Sub CommandButton2_Click()
    
    
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    
    
    End Sub
    
    
    Private Sub CommandButton3_Click()
    On Error GoTo errato
    
    
    Dim percorso As String
    Dim nomefile As String
    Dim wsh As Worksheet
    
    
    Set wsh = ThisWorkbook.Worksheets("Foglio1")
    
    
    nomefile = wsh.Range("Q17").Value & " " & wsh.Range("Q14").Value & wsh.Range("R14").Value & ".pdf"
    percorso = "E:\Documents\000_GENERALE\0_DATI COMPLESSIVI\PENTOLE\0_ARCHIVI\"
    wsh.Range("K4:V67").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    percorso & nomefile
    GoTo finito
    
    
    errato:
    MsgBox ("Non è stato possibile salvare il file - Verificare il percorso"), vbInformation, "ATTENZIONE"
    
    
    finito:
    Set wsh = Nothing
    
    
    End Sub
    Ciao
    File Allegati File Allegati
    Ultima modifica fatta da:Gerardo Zuccalà; 22/12/15 alle 15:03 Motivo: mancava Codice VBA

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  7. #7
    L'avatar di John
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Pescara
    Età
    61
    Messaggi
    42
    Versione Office
    Excel 2010
    Likes ricevuti
    2
    Likes dati
    0
    Grazie Baloon
    naturalmente funziona tutto; quindi tutta la pappardella che mi ha dato il registratore di macro, la eliminavo cambiando le impostazioni del foglio di lavoro...........
    ecco la differenza tra chi capisce (tu) e chi tira a indovinare (io).
    Grazie ancora e a presto.
    Gianni

  8. #8
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3339
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da John Visualizza Messaggio
    Grazie Baloon
    naturalmente funziona tutto; quindi tutta la pappardella che mi ha dato il registratore di macro, la eliminavo cambiando le impostazioni del foglio di lavoro...........
    ecco la differenza tra chi capisce (tu) e chi tira a indovinare (io).
    Grazie ancora e a presto.
    Gianni
    Grazie a te per il riscontro e alla prossima.

    Buon Natale.

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

Discussioni Simili

  1. Risposte: 2
    Ultimo Messaggio: 04/10/16, 19:49
  2. Macro per salvataggio automatico in .PDF con nome composto derivante da celle
    Di gguas87 nel forum Domande su Excel VBA e MACRO
    Risposte: 28
    Ultimo Messaggio: 06/09/16, 21:33
  3. Individuare Min e Max in un range di celle
    Di Lcbsm nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 11/03/16, 17:26
  4. Salva pdf di un range di celle - office Mac
    Di Bolz1 nel forum Domande su Excel VBA e MACRO
    Risposte: 6
    Ultimo Messaggio: 20/01/16, 08:42
  5. Colorare piu' celle con un range di numeri
    Di daigoro7 nel forum Domande su Excel in generale
    Risposte: 14
    Ultimo Messaggio: 05/10/15, 14:16

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •