For statement?

[Gil149]

I am trying to run this code, but I want to use something like a For statement for C to be equal to 3,6,11,17,22...is this possible?

A = 0
B = 0
C = 3
D = 19
Sheets("Totals").Select
        For Each rngcell In Range("A4:A" & Range("A" & Rows.Count).End(xlUp).Row)
            If rngcell.Value = Sheets("Warehouse").Range("C18").Value Then
                For I = 0 To 4
                    If rngcell.Offset(0, C + (13 * I)).Value <> "" Then
                        A = A + rngcell.Offset(0, C + (13 * I)).Value
                        B = B + 1
                    End If
                Next I
            End If
            Sheets("Warehouse").Range("C" & D).Value = A / B
        Next rngcell

 

[kpark91]

I don't see the pattern in the sequence and I'm not sure what you mean.

Did you mean for each loop, you want to use a different values of C which you can store?

Then you would need to make C as an array and insert the values into the C array and then make a separate (or same) counter to loop through the elements of the C array.