problem z decimalnimi števili

[Uros]

Živjo,

imam problem kateri se tiče spremeljivk. Imam napisan makro, kateri mi sešteje kolono, ter rezultat skopira v drugo celico v drugi datoteki.
Problem se pojavi pri decimalkah, ker mi podatka ne skopira pravilno, kljub temu da imam spremelnjivko "rezultat" definirano kot Double. Kje je problem?

Koda: Izberi vse

Dim rezultat As Double

Workbooks("Bruto.xls").Sheets("Bruto podatki").Activate
    Range("AB3:AB22").Select
    Range("AA25").Select
    rezultat = ActiveCell.FormulaR1C1 = "=SUM(R[-22]C:R[-3]C)"
      
Workbooks("Porocilo.xls").Sheets("zbirna").Activate
    Range("E2") = rezultat

[cedra]

Morda je problem v tem, kako imate oblikovano celico v katero prilepite rezultat. Premajhno število decimalnih mest ali pa jih sploh ni. Kaj pa, če bi prilepili s "Posebno lepljenje" -> vrednosti?

[Uros]

Sem se tudi spomnil na to opcijo in sem jo že implementiral. Samo zanimalo me je kako to narediti z spremenljivkami.

Hvala Cedra

[Stenly]

Pozdravljen Uros

Poskusite s to kodo:

Koda: Izberi vse

Workbooks("Porocilo.xls").Sheets("zbirna").Range("E2").Value = _
      Application.WorksheetFunction.Sum(Workbooks("Bruto.xls").Sheets("Bruto podatki").Range("AA3:AA22"))

Lp