VBA:Single Loop

[tt.viquel]

how do i do a single loop that runs through 10 columns A1:A10 to J1:J10 (have queries)and have the results displayed in column L1:L10to U1:U10 so each column and cell have result display in another cell.

 

[GTO]

Hi there,

If you are asking to learn loops, I would think a For Each...Next loop would be easiest, shown in the first. If you are just wanting to get the values from/to equally sized ranges, no need to loop...

Option Explicit
    
' A1:A10 to J1:J10 (have queries)and have the results displayed in column L1:L10to U1:U10 so
'each column and cell have result display in another cell.
Sub exa4()
Dim Cell As Range
    
    For Each Cell In ThisWorkbook.Worksheets("Sheet2").Range("A1:J10")
        Cell.Offset(, 11).Value = Cell.Value
    Next
    
End Sub
    
Sub exa5()
    With ThisWorkbook.Worksheets("Sheet2")
        .Range("L1:U10").Value = .Range("A1:J10").Value
    End With
End Sub

 

[tatendatiffany]

Thank you for your help but can i ask another question. what if i dont want it to be in one loop because these subs separate them into individual ones and i want it to to in one public sub.

and also how come sub 4 and 5 are different 4 specifies one range and 5 specifies 2 ranges

 

[GTO]

Hi again,

I am afraid I am not following. Can you explain what you mean by 'don't want it in one loop because...'?

 

[Smitty]

Isn't this essentially a continuation of this thread from yesterday?

If so, please continue there.

 

[tatendatiffany]

ohh i didnt realise someone had posted a thread similar to mine i will continue on that thanks