is it possible to merge the to line in one

**mohadin** · 06-20-2019, 06:45 AM

Well, I have this piece of code
Is it possible to to populate the ranges from the array in one go rather than tow

               [ With Sheets(e)
                    x = 1
                    For Each myArea In .Columns(1).SpecialCells(2, 1).Areas
                        n = myArea.Count


                        myArea.Offset(, 1).Resize(n, 1).FormulaR1C1 = Application.IfError _
                                                                      (Application.Index(w, Evaluate("row(" & x & ":" & _
                                                                                                   x + n - 1 & ")"), Evaluate("column(" & [b1].Resize(, 1).Address & ")")), "")
                        myArea.Offset(, 3).Resize(n, 2).FormulaR1C1 = Application.IfError _
                                                                      (Application.Index(w, Evaluate("row(" & x & ":" & _
                                                                                                   x + n - 1 & ")"), Evaluate("column(" & [d1].Resize(, 2).Address & ")")), "")


                        x = x + 20
                    Next

                End With

Thank you in advance

**Pepe Le Mokko** · 06-20-2019, 09:16 AM

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

I added the tags for you this time

**mohadin** · 06-20-2019, 09:21 AM

Thank you very much in deed
Next Time would be OK
sorry

**mohadin** · 06-20-2019, 03:09 PM

Nop? does it mean no way?

**mohadin** · 06-21-2019, 08:09 AM

Well,
let me put it this way:
In the attached file there is 2 sheets
and we have the source sheet contents in an array(some how)
now, how to pass the contents of this array to the result sheet except the column "e"
the issue here id avoid loop
this is Mr. jndon idea (pass array to range with no loop)
thanks for your time