Copia somma di celle in segnalibro Word

[Alea]

Giorno a tutti
sto compilando dei file word impostato con segnalibri prendendo i dati da celle di excel.
Mi sono fermato però in questo caso: devo copiare le somma di due celle e non riesco a capire come fare.
il codice che sto provando a far girare è questo ma ovviamente non funziona

Codice: Seleziona tutto

'dati calcolo
            objDoc.Bookmarks("SUP2").Range.Text = .Range("C10").Value
           
            objDoc.Bookmarks("AINF").Range.Text = .Range("G20").Value + _
            .Range("G21").Value
           
            objDoc.Bookmarks("CORDOLI").Range.Text = .Range("G22").Value
            objDoc.Bookmarks("ASUP").Range.Text = .Range("G32").Value
            objDoc.Bookmarks("CLS").Range.Text = .Range("E16").Value
            objDoc.Bookmarks("QCLS").Range.Text = .Range("E17").Value

Come posso fare per fare la somma delle celle G20 e G21 e inserirle nel segnalibro "AINF"?
Grazie

[Alea]

Proseguendo con il mio lavoro ho notato che nella fase di "incolla" nel segnalibro mi saltano i decimali nel senso che:
- quando in una cella di excel ho una formula somma => nel segnalibro mi mette 10 decimali
- quando in una cella di excel ho un valore con decimali uguali a zero (2,00) => nel segnalibro mi mette solo 2
Come facci a dirgli che in determinati segnalibri ho la necessità di avere 2 decimali?
Grazie intanto

[Anthony47]

Puoi usare la funzione Format, ad esempio Format(Range("B4"), "#.00") ti restituisce il valore di B4 con 2 decimali.
Non ho capito nella macro che cosa non ti funziona.

Ciao

[Alea]

Ciao Anthony
nella macro non funziona questa parte

Codice: Seleziona tutto

objDoc.Bookmarks("AINF").Range.Text = .Range("G20").Value + _
            .Range("G21").Value

...devo fare la somma di due celle e mettere il risultato nel segnalibro "AINF"

Ho provato anche ad usare la funzione Format ma non riesco a capire se devo metterla prima/dopo o durante
Ad esempio in questa riga ho il prezzo di un materiale ricavato dalla somma di tot celle "=somma(..:..)"

Codice: Seleziona tutto

objDoc.Bookmarks("PREZZO").Range.Text = .Range("K37").Value

come risultato nel segnalibro ho ad esempio 14,0156478899
Dove devo mettere la funzione per far scrivere 14,01?

Grazie

[Anthony47]

Per l' uso di format:

Codice: Seleziona tutto

objDoc.Bookmarks("PREZZO").Range.Text = Format(.Range("K37").Value, "#.00")


(ti restituira' 14,02)

Per l' altro problema, prova a splittare in due l' attuale istruzione:

Codice: Seleziona tutto

myPippo=.Range("G20").Value +  .Range("G21").Value
objDoc.Bookmarks("AINF").Range.Text = myPippo


(salvo l' eventuale uso di format)

Ciao

[Alea]

Grazie mille.
Funziona tutto alla perfezione
Ciao