Transfer the data to another sheet

[alexandro88]

Sheets(Array("Ori", "LW", "day")).Select

Sheets("Ori").Activate

vResult_Total1 = FormatPercent((vResult1 / vResult3), 4)
vResult_Total2 = FormatPercent((vResult2 / vResult3), 4)
zResult_Total1 = FormatPercent((zResult1 / zResult3), 4)
zResult_Total2 = FormatPercent((zResult2 / zResult3), 4)


I want transfer the total calculate data to another sheet ("day") for every day.

ColA ColB Col C Col D Col E Col F ColG
Mon Tues Wed Thur Friday Sat Sun

[Kenneth Hobs]

Can you attach an example? I am having a hard time understanding what you need.

[alexandro88]

Hi already attach the file. You can try to run it.

The flow of my code is like this :
Worksheets("Ori data") to Worksheets("LW") to Worksheets("Calc").
My code still not yet complete. I still figure how to transfer the output to
Worksheets("Calc").

vResult_Total_NSOP = FormatPercent((vResult1 / vResult3), 4)
vResult_Total_NSOL = FormatPercent((vResult2 / vResult3), 4)
zResult_Total_NSOP = FormatPercent((zResult1 / zResult3), 4)
zResult_Total_NSOL = FormatPercent((zResult2 / zResult3), 4)
lr_Total = FormatPercent((lr1 / (lr1 + lr2)), 4)

[mdmackillop]

I don't see why you select an array of sheets.
I would suggest you create a worksheet variable for each sheet and use this to qualify your cell references. This makes it much easier to transfer values to other sheets.