fill across row instead of down column

[xxentric]

(i think i may have posted this in the wrong forum before)
i have just a loop code here as an example of how im filling data down a column... how could i do this the other way and have it fill the data across a row instead?

Do While myRecSet.EOF = False
    myRecipe(i) = CStr(myRecSet.Fields(0).Value)

    ThisWorkbook.Worksheets("Sheet1").Range("A" & 8 + i).Value = myRecSet.Fields(0).Value

    myRecSet.MoveNext
    i = i + 1
Loop

 

[Bong]

use the "row, column" index style for cell/range reference.

Where you have:

ThisWorkbook.Worksheets("Sheet1").Range("A" & 8 + i)

you could write, instead:

ThisWorkbook.Worksheets("Sheet1").cells(8 + i,1)

i.e., row, 8+i, column, 1.
Then, to transpose:

ThisWorkbook.Worksheets("Sheet1").cells(r, c+i)

_________________
Bob Rashkin

 

[PHV]

i = 1
Do While Not myRecSet.EOF
ThisWorkbook.Worksheets("Sheet1").Cells(8, i).Value = myRecSet.Fields(0).Value
myRecSet.MoveNext
i = i + 1
Loop

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886