Risultati da 1 a 17 di 17

Discussione: esporta file con formule nascoste



  1. #1
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    esporta file con formule nascoste

    ciao a tutti........

    ho questa macro che funzionava bene fino a quando non ho inserito delle formule dentro questa tabella:
    Codice HTML: 
    Sub esporta_in_pdf()
    '
    ' esporta_in_pdf Macro
    '
        Dim LR As Long
        
        LR = Range("R" & Rows.Count).End(xlUp).Row
        Range("R9:X" & LR).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "C:\Users\Manola\Desktop\Partite del fine settimana.pdf", Quality _
            :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
        
    
    End Sub
    il problema nasce da quando ho inserito delle formule che mi estraggono i dati.......
    cioè ad esempio se estraggo dei dati con dieci righi in realtà quando esporto il Pdf
    lui mi estrae tutta la tabelle perche mi legge le formule dentro le celle anche se sono vuote

    come posso ovviare a questo problema???????

    Grazie in anticipo
    windows 10
    Excel 2016

  2. #2

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7132
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2063
    Likes dati
    1299

    Re: esporta file con formule nascoste

    Ciao,
    prova sostituire la parte in rosso

    Codice: 
    IncludeDocProperties:=True 
    con
    IncludeDocProperties:=False
    
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  3. #3
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: esporta file con formule nascoste

    Ciao Ges un saluto

    la modifica non ha funzionato
    Codice HTML: 
    Sub esporta_in_pdf()
    '
    ' esporta_in_pdf Macro
    '
        Dim LR As Long
        
        LR = Range("R" & Rows.Count).End(xlUp).Row
        Range("R9:X" & LR).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "C:\Users\Nicola\Desktop\Partite del fine settimana.pdf", Quality _
            :=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
        
    End Sub
    mi crea sempre un pdf di 20 pagine

    forse invece delle formule conviene estrarre i dati nelle celle con il Vba ?????
    windows 10
    Excel 2016

  4. #4

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7132
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2063
    Likes dati
    1299

    Re: esporta file con formule nascoste

    Ho capito, il problema è questo:

    Codice: 
     LR = Range("R" & Rows.Count).End(xlUp).Row
    che ti conta fino all'ultima riga piena comprese le formule.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  5. #5
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: esporta file con formule nascoste

    Infatti.quindi non sò se la cosa migliore e eliminare le formule e estrarre i dati con il Vba
    secondo te qual' e la soluzione migliore????
    windows 10
    Excel 2016

  6. #6

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979

    Re: esporta file con formule nascoste

    Potresti creare un ciclo che individua l'ultima cella con un risultato maggiore di zero e impostare "l'area di stampa" con tale range.

    Inviato dal mio GT-I9301I utilizzando Tapatalk

  7. #7
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: esporta file con formule nascoste

    più facile a dirsi che a farsi..:235:
    windows 10
    Excel 2016

  8. #8

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979

    Re: esporta file con formule nascoste

    Per determinare LR potresti usare una cosa tipo:
    Codice: 
     
    LR=1
    Do Until range("R" & LR) =0
         LR=LR+1
    Loop
    Non avendo visto il tuo file, adattalo al tuo ciclo.

    Inviato dal mio GT-I9301I utilizzando Tapatalk

  9. #9
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: esporta file con formule nascoste

    ciao Rubik

    ha funzionato in parte
    Codice HTML: 
    Sub esporta_in_pdf()
    '
    ' esporta_in_pdf Macro
    '
        Dim LR As Long
        
        LR = 1
    Do Until Range("R9" & LR) = 0
         LR = LR + 1
    Loop
        Range("R9:X" & LR).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "C:\Users\Nicola\Desktop\Partite del fine settimana.pdf", Quality _
            :=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
        
    End Sub
    ha fatto solo una pagina ora però mi ha fatto vedere intestazione di tabella e solo un risulato
    invece la ricerca dà tre risultati......
    windows 10
    Excel 2016

  10. #10

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979

    Re: esporta file con formule nascoste

    Ora non ho possibilità di aprire il file. Se ha la possibilità di aiutarti Ges bene altrimenti ci provo io questa sera

    Inviato dal mio GT-I9301I utilizzando Tapatalk

  11. #11

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7132
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2063
    Likes dati
    1299

    Re: esporta file con formule nascoste

    Ciao Rubik,
    la tua soluzione a me funziona. :28:
    Comunque non c'è nessun file (cosa che è sempre meglio allegare) ... allego io un esempio.

    L'errore potrebbe essere questo

    Codice: 
    Do Until Range("R9" & LR) = 0
    Da usare così:
    Codice: 
    Do Until Range("R" & LR) = 0
    File Allegati File Allegati
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  12. I seguenti utenti hanno dato un "Like"


  13. #12
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: esporta file con formule nascoste

    ti riallego il file

    scusa ma avevo la connessione che non andava..

    Codice HTML: 
    Sub esporta_in_pdf()
    '
    ' esporta_in_pdf Macro
    '
        Dim LR As Long
        
        LR = 1
    Do Until Range("R" & LR) = 0
         LR = LR + 1
    Loop
        Range("R9:X" & LR).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "C:\Users\Nicola\Desktop\Partite del fine settimana.pdf", Quality _
            :=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
        
    End Sub
    https://www.dropbox.com/s/cdwxom5nn2...ture.xlsm?dl=0
    windows 10
    Excel 2016

  14. #13

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7132
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2063
    Likes dati
    1299

    Re: esporta file con formule nascoste

    Vedendo il file è sempre un'altra cosa.
    Prova con questa sub

    Codice: 
    Sub esporta_in_pdf()
    '
    ' esporta_in_pdf Macro
    '
        Dim LR As Long
        
        LR = 9
    Do Until Range("R" & LR) = ""
         LR = LR + 1
    Loop
        Range("R9:X" & LR - 1).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "C:\Users\Nicola\Desktop\Partite del fine settimana.pdf", Quality _
            :=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
        
    End Sub
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  15. #14
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: esporta file con formule nascoste

    ma l ho allegato al post qui sopra........
    windows 10
    Excel 2016

  16. #15
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: esporta file con formule nascoste

    ciao Ges

    Non sò cosa hai cambiato però funziona...........

    perfettamente

    dove era il problema????
    windows 10
    Excel 2016

  17. #16

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979

    Re: esporta file con formule nascoste

    Il problema era da dove doveva cominciare il ciclo (9 anziché 1)
    Come dice ges è meglio con l'allegato

    Inviato dal mio GT-I9301I utilizzando Tapatalk

  18. #17
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Re: esporta file con formule nascoste

    Ragazzi vi ringazio.......... molto

    :166::255::246:
    windows 10
    Excel 2016

Discussioni Simili

  1. [Risolto] Macro esporta foglio in una nuova cartella come xps
    Di Antonio1008 nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 13/12/16, 10:57
  2. [Risolto] Celle nascoste se il dato corrisponde a 0
    Di Paolerrai nel forum Domande su Excel in generale
    Risposte: 63
    Ultimo Messaggio: 29/10/16, 23:40
  3. Copiare celle in una colonna con righe nascoste
    Di Brando nel forum Domande su Excel in generale
    Risposte: 13
    Ultimo Messaggio: 04/07/16, 14:51
  4. Esporta/Stampa
    Di Riccardo64 nel forum Domande su Excel in generale
    Risposte: 8
    Ultimo Messaggio: 15/04/16, 14:46
  5. esporta In Pdf con Range dinamico
    Di nick0573 nel forum Domande su Excel VBA e MACRO
    Risposte: 10
    Ultimo Messaggio: 06/04/16, 13:45

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
  •