Stellar Blade Un'esclusiva PS5 che sta facendo discutere per l'eccessiva bellezza della protagonista. Vieni a parlarne su Award & Oscar!

Excel Forum Per condividere esperienze su Microsoft Excel

macro invia foglio con formattazione

  • Messaggi
  • OFFLINE
    maxma62
    Post: 886
    Registrato il: 28/12/2009
    Città: CITTADELLA
    Età: 62
    Utente Senior
    excel 2007/365
    00 18/07/2022 09:31
    Ciao a tutti.
    Nel workbook c'è una macro per inviare via mail il foglio
    Sub Mail_outlook_xlsx()
    funziona bene.
    Il problema è che il foglio da inviare ha una formattazione che poi nell'allegato della mail risulta sballato come formattazione
    Ho trovato viarie soluzioni in rete ma avendo excel 2007 non mi funzionano.
    L'unica soluzione che ho trovato è questa
    Sub PasteFormattedRange()
    che è dentro al modulo3
    Questa funziona clicco in macro testit e il foglio diventa solo colorato senza regole formattazioni.
    Quello che chiedo è adattare la macro
    testit/ PasteFormattedRange
    al foglio da inviare via mail.
    Spero di essermi spiegato.
    Grazie.
    [Modificato da maxma62 18/07/2022 10:47]
    ____________________________
    versione excel 365 ufficio
    versione excel 2007 casa
  • OFFLINE
    maxma62
    Post: 886
    Registrato il: 28/12/2009
    Città: CITTADELLA
    Età: 62
    Utente Senior
    excel 2007/365
    00 18/07/2022 16:02
    Ho provato a mettere la macro testit che attiva poi la macro PasteFormattedRange
    in questo punto ma non va

    Set wb = ActiveWorkbook
        Set Dest = Workbooks.Add(xlWBATWorksheet)
    
        Source.Copy
        With Dest.Sheets(1)
            .Cells(1).PasteSpecial Paste:=8
            .Cells(1).PasteSpecial Paste:=xlPasteValues
            .Cells(1).PasteSpecial Paste:=xlPasteFormats
            .Cells(1).Select
            ActiveWindow.DisplayGridlines = False
            Application.CutCopyMode = False
        End With
                    
        
        Call testit '<<<<<<<<<<<<<<<<<<<<<<                  
        
    
        TempFilePath = Environ$("temp") & "\"
        TempFileName = "Selection of " & wb.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss")
    


    ____________________________
    versione excel 365 ufficio
    versione excel 2007 casa
  • OFFLINE
    maxma62
    Post: 887
    Registrato il: 28/12/2009
    Città: CITTADELLA
    Età: 62
    Utente Senior
    excel 2007/365
    00 18/07/2022 21:38
    Qualcuno ha capito il problema?
    ____________________________
    versione excel 365 ufficio
    versione excel 2007 casa
  • OFFLINE
    rollis13
    Post: 1.237
    Registrato il: 16/08/2015
    Città: CORDENONS
    Età: 67
    Utente Veteran
    Excel 2016-32bit Win11
    00 19/07/2022 15:38
    Ti ho già dato le giuste indicazioni in quest'altro thread anche se hai continuato a chiedere a mezzo mondo, anche con altro nick, senza ottenere altra risposta utile: https://www.freeforumzone.com/d/11804962/macro-per-invio-mail/discussione.aspx?idm1=139533335&p=1&pl=10
    Per evitare di continuare con questa "rogna" ti conviene copiare tutto il contenuto del tuo file (quello allegato) in un altro file nuovo il tutto eseguito con una più recente versione di Excel e continuare con quest'ultimo il tuo progetto.
    Da un PC con Excel nuovo:
    1) apri il vecchio file
    2) apri un nuovo file vuoto
    3) nel vecchio file selezioni la prima 'linguetta' e tenendo premuto il tasto Shift clicchi sull'ultima linguetta così da selezionarle tutte
    4) cliccando di destro su una 'linguetta' scegli "Sposta o Copia"
    5) nella casella "Nella Cartella" selezioni il nome del nuovo file (probabilmente ancora Cartel1)
    6) metti la spunta su "Crea una Copia"
    7) dai l'OK
    Ora devi preoccuparti di copiare, dal vecchio file al nuovo, tutti i Moduli/Userform con macro e quant'altro non presente nei fogli che hai duplicato.
    Fatto questo non ti resta che effettuare, una volta per tutte e per sempre, l'allineamento della palette dei colori alla nuova versione che ha il colore verde come primo colore a destra. Ormai saprai a memoria quali sono celle con i colori che cambiano ...

    ______________________________________________________________
    C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)
  • OFFLINE
    maxma62
    Post: 888
    Registrato il: 28/12/2009
    Città: CITTADELLA
    Età: 62
    Utente Senior
    excel 2007/365
    00 19/07/2022 20:38
    Pensavo si potesse adattare le due macro.
    Comunque grazie lo stesso, rollis.
    ____________________________
    versione excel 365 ufficio
    versione excel 2007 casa
  • OFFLINE
    rollis13
    Post: 1.238
    Registrato il: 16/08/2015
    Città: CORDENONS
    Età: 67
    Utente Veteran
    Excel 2016-32bit Win11
    00 19/07/2022 23:09
    Ma lo vuoi capire che hai un file "taroccato", non c'è macro che tenga se il tuo file incorpora un palette di colori non più convenzionale.
    Te ne devi liberare se vuoi vivere in pace con il resto del mondo.
    Se invece in rete trovi la soluzione per sostituire la palette direttamente all'interno del tuo file ben venga. Ma bada che non mi riferisco a quelle macro (o altre) che hai allegato, quelle modificano solo la parte visibile del tuo file, non modificano il codice di sistema di Excel, quello creato dalla Microsoft; cosa quasi impossibile da realizzare senza creare altri "malanni" anche se credo si tratti solamente di sostituire uno o più file DLL.

    ______________________________________________________________
    C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)
  • OFFLINE
    maxma62
    Post: 889
    Registrato il: 28/12/2009
    Città: CITTADELLA
    Età: 62
    Utente Senior
    excel 2007/365
    00 20/07/2022 08:12
    Ciao rollis,
    grazie del consiglio.

    ____________________________
    versione excel 365 ufficio
    versione excel 2007 casa