For Each Cell search direction

[bjorgen]

I have a big table that I need to fill in values via vba.

Every row has a different formula assigned to it and I was wondering if i can force the VBA code to search down and then right instead of going right and then down.

Any help is appreciated here!

 

[shg]

For Each applied to a range goes across and down.

You could do do this:

    Dim myRange     As Range
    Dim rCol        As Range
    Dim cell        As Range
 
    Set myRange = Range("A1:C5")
 
    For Each rCol In myRange.Columns
        For Each cell In rCol.Cells
            ' do stuff
        Next cell
    Next rCol

 

[mikerickson]

Instead of a For Each cell In someRange loop, use

For rowNum = 1 to n
    For ColNum = 1 to m
        With someRange.Cells(rowNum, colNum)

Actualy if each row has it's own formula

For rowNum = 1 to n
    someRange.Rows(i).FormulaR1C1 = myFormula(i)
Next rowNum

 

[bjorgen]

Thanks for the quick help here. This should do it!