Loop to retrieve data from different sheet

Hello,

I was wondering if you could find a solution to the case below.

In the following example, I first start from a loop in 1 single sheet (that works) and then modify it to write the results from a loop into a different sheet (what doesn't work). See loop9 and loop10 below respectively.
If you find however another way to perform this code, in a simpler way, please let me know. The idea is to perform this task for over 65K lines.

In 1 single sheet, and working:

Please Login or Register  to view this content.

To retrieve data from sheet 1 and put results in sheet 'Avg' however, the result does not work. I have tried various versions of what I put below. I have tried to simplify by defining a function 'AverageFor4' that calculates average of columns A & B in column C per 2 lines (so an average of 4 numbers). I want to write the results on sheet 'Avg', whereas the data are on sheet 1.

Thank you.

Please Login or Register  to view this content.

Hi zeno

Please correct your post, as outlined above by TMShucks. Add [ c od e ] [/ c o d e ] (no spaces) around your code.

Some pointers:
ActiveCell is on the current open worksheet. If you are in your first sheet and trying to modify the AVG sheet, you will need to give a cell reference. You could use a variable to keep track of which row you are in. e.g.

Please Login or Register  to view this content.

Probably best to move your Dim statement outside of the loop. i.e.

Please Login or Register  to view this content.

You don't appear to have set ValueAvg to anything on the first time it is written to a cell. It is therefore empty and the cell you are writing will also be empty.

Best regards, Rob.