Copia somma di celle in segnalibro Word

Question

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

'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

Answer 1

Ho sistemato facendo in questo modo:

objDoc.Bookmarks("SV").Range.Text = Format(.Range("J67").Value, "#.00")

Grazie per l'aiuto

Ciao

Answer 2

Grazie Mauro per la risposta. Adesso provo.

Ho però un'altra cosa da chiedere:

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 (ad es. 2,00) => nel segnalibro mi mette solo 2

Come faccio a dirgli che in determinati segnalibri ho la necessità di avere 2 decimali?

Grazie intanto

Se(se) ho capito:

        rng.Text = Round(CDbl(Left(s1, Len(s1) - 2)) + CDbl(Left(s2, Len(s2) - 2)), 2)

Oppure:

        rng.Text = Format(CDbl(Left(s1, Len(s1) - 2)) + CDbl(Left(s2, Len(s2) - 2)), "#,###.00")

Occhio che il primo arrotonda il risultato, il secondo lo tronca.

Answer 3

Ho sistemato facendo in questo modo:

objDoc.Bookmarks("SV").Range.Text = Format(.Range("J67").Value, "#.00")

Grazie per l'aiuto

Ciao

Bene. Grazie per il cortese riscontro e buon lavoro.

Answer 4

Grazie Mauro per la risposta. Adesso provo.

Ho però un'altra cosa da chiedere:

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 (ad es. 2,00) => nel segnalibro mi mette solo 2

Come faccio a dirgli che in determinati segnalibri ho la necessità di avere 2 decimali?

Grazie intanto

Answer 5

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

'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

La macro qui sotto somma le celle A1 e A2 (le prime 2 della prima colonna) e mette il risultato della somma nel segnalibro Pippo:

Public Sub m()

    Dim s1 As String

    Dim s2 As String

    Dim rng As Range

    With ActiveDocument

        s1 = .Tables(1).Cell(Row:=1, Column:=1).Range.Text

        s2 = .Tables(1).Cell(Row:=2, Column:=1).Range.Text

        Set rng = .Bookmarks("Pippo").Range

        rng.Text = CDbl(Left(s1, Len(s1) - 2)) + CDbl(Left(s2, Len(s2) - 2))

        .Bookmarks.Add "Pippo", rng

    End With

    Set rng = Nothing

End Sub