Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

macro invia foglio con formattazione

Ultimo Aggiornamento: 20/07/2022 08:12
Post: 886
Registrato il: 28/12/2009
Città: CITTADELLA
Età: 62
Utente Senior
excel 2007/365
OFFLINE
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
Post: 886
Registrato il: 28/12/2009
Città: CITTADELLA
Età: 62
Utente Senior
excel 2007/365
OFFLINE
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
Post: 887
Registrato il: 28/12/2009
Città: CITTADELLA
Età: 62
Utente Senior
excel 2007/365
OFFLINE
18/07/2022 21:38

Qualcuno ha capito il problema?
____________________________
versione excel 365 ufficio
versione excel 2007 casa
Post: 1.237
Registrato il: 16/08/2015
Città: CORDENONS
Età: 67
Utente Veteran
Excel 2016-32bit Win11
OFFLINE
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)
Post: 888
Registrato il: 28/12/2009
Città: CITTADELLA
Età: 62
Utente Senior
excel 2007/365
OFFLINE
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
Post: 1.238
Registrato il: 16/08/2015
Città: CORDENONS
Età: 67
Utente Veteran
Excel 2016-32bit Win11
OFFLINE
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)
Post: 889
Registrato il: 28/12/2009
Città: CITTADELLA
Età: 62
Utente Senior
excel 2007/365
OFFLINE
20/07/2022 08:12

Ciao rollis,
grazie del consiglio.

____________________________
versione excel 365 ufficio
versione excel 2007 casa
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 15:41. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com