VBA Sum function and copying that result to another sheet

[Palucci]

Hello All,

I have a code that is to calculate the sum between two cells and then copy this result to another sheet, I would like the result to stay in f70 and then copy from there . But my code put 0 i dont know why

wbMe.Sheets("blank").Range("F70") = WorksheetFunction.Sum(Range("F68:G68"))
wbMe.Sheets("blank").Range("F70").Copy
wbMe.Sheets("input_6").Cells(3, Columns.Count).End(xlToLeft).Offset(0, 1).PasteSpecial Paste:=xlPasteValues

 

[Alex Blakenburg]

It seems to be working for me.
If you use Sum in Excel to sum that range does it work ?

The only additional thing you could try is to add this line to the bottom (after the paste)

Application.CutCopyMode = False

 

[Palucci]

It not helped. Is there a chance of the Sum's result directly copied from Range which is counted? not from F70

 

[Alex Blakenburg]

Did you try in excel to do sum(F68:G68) to see if it works in principle ?
If that works do you know how to step through the code using F8 ?
Is the zero on F70 or in the sheet Input_6 ?

 

[Palucci]

No, macro left that

However, if you handle the sum of these cells get the result

 

[Alex Blakenburg]

Can you step through the lines using F8.
After the first line (and the active line is now the 2nd line) see if there is a value in F70 on sheet "blank"

 

[Palucci]

I see a "dash" on cell and in the formula line on top "0"

 

[Alex Blakenburg]

It’s after midnight here in Australia are you able to share the workbook via Dropbox, onedrive or other sharing platform and allow anyone with the link to open it and I will have a l look tomorrow?

 

[Alex Blakenburg]

I am logged off but see if this works

wbMe.Sheets("blank").Range("F70") = WorksheetFunction.Sum(wbMe.Sheets("blank").Range("F68:G68"))

 

[Alex Blakenburg]

I have had a chance to test my previous suggestion and it should fix your issue.

Here my updated version of your code, incorporating the above change:

Sub test()

    Dim wbMe As Workbook
    Set wbMe = ThisWorkbook
    
    With wbMe.Worksheets("blank")
        .Range("F70") = WorksheetFunction.Sum(.Range("F68:G68"))
        .Range("F70").Copy
    End With
    wbMe.Worksheets("input_6").Cells(3, Columns.Count).End(xlToLeft).Offset(0, 1).PasteSpecial Paste:=xlPasteValues

End Sub