How to offset a for loop?

[Waimea]

    Data = Sheets("Data").Range("Values2020").Value
   
    For i = 1 To UBound(Data)
   
         area = Data(i, 1)
         aval = Data(i, 2)
               
        myFunc area, aval
                
     Next i

First row is headers.

Column A contains names, column B to F contains values, named Values2020 to Values2025.

I am trying to offset Data somehow so that I can loop from column B to column F or column X...

I have tried with an outer loop:

Dim j As Integer

For j = 1 to 5
    Data = Sheets("Data").Range("Values202" & j).Value
Next j

Any suggestions?

 

[Norie]

The idea of the function is that you pass it an array and it returns another array with the maxes per row of the passed array.

MyMaxes = GetMaxPerRow(Data) ' get max values per row from Data
MyMaxes2 = GetMaxPerRow(Data2) ' get max values per row from Data2

What you then do with the returned arrays is up to you.

 

[Waimea]

Hi Norie,

thank you for your reply!

Now your code is working in my spreadsheet, I'll try to modify it a little bit.