Nested Loop does not transfer value of each cell in Range to another worksheet!

Hi everyone,

I wrote a nested loop to transfer the values of each cell in a named range to another worksheet in the same workbook. However, it transfers only the value of the first cell in the range to the assigned cell in the recipient sheet. I have tried anything I could thing of such as defining the range as object instead of range but nothing works. Any help would be much appreciated!

The code should transfer the data from the named range "FPlannerM1" to the first available row in "ToSheet" in only one row, example A2 B2 C2 D2 etc, when the info in the range is changed, then the macro should do the same on; A3 B3 D3 and so on.

Please Login or Register  to view this content.

Attach a sample workbook (not a picture or pasted copy). Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

In the absence of a sample workbook and an idea what the code should produce, maybe this will work for you:

Please Login or Register  to view this content.

Your code works fine except it transfers the data in the range "FPlannerM1" in 3 columns as the original set

That would be because I had to guess at the shape of the Named Range and also where it was intended to go. Having the sample workbook makes a big difference in achieving a working solution that meets your needs.

Anyway, whatever, try this:

Please Login or Register  to view this content.

There are other ways that might be quicker with very large amounts of data. For example, you could read the whole of the Named Range into an array and then loop through the array elements creating a second array. You can then drop that straight into the output range.

You're welcome. Thanks for the rep.