help looping through multiple columns

[harts]

I have a code that is written same several times but references a different column in each one. I would like to just write it one time but reference mutiple columns. Columns S, N & X. Can this be done with using the format for a row?

Range("X" & Format(x1) - 1).Value

 

[Rick Rothstein]

I have a code that is written same several times but references a different column in each one. I would like to just write it one time but reference mutiple columns. Columns S, N & X. Can this be done with using the format for a row?

Range("X" & Format(x1) - 1).Value

I am not sure why you are using the Format function... isn't x1 a number? Also, you don't say what you are trying to do with the range you are asking about, leaving us to guess at what you are trying to do. Anyway, assuming you are trying to assign the same value to each cell on row x1-1 for columns S, N and X, does this do what you want...

Intersect(Rows(x1-1), Range("S:S,N:N,X:X").EntireColumn).Value = SomeValue

 

[harts]

Sorry for making you guess. What I am trying to do is have a value in the range s2:s11 go through the values in columns N S & X. Basically it finds the value that is more then the previous value and less then the current value. Then it places the value from s2:s11 next to the proper value. Does this help?


For x1 = 21 To 70
For x2 = 2 To 11

If Range("X" & Format(x1) - 1).Value < _
Range("S" & Format(x2)).Value And _
Range("X" & Format(x1)).Value > _
Range("S" & Format(x2)).Value And _
Range("X" & Format(x1)).Value > "0" Then
Range("Y" & Format(x1)) = Range("S" & Format(x2)).Value

Range("T" & Format(x2)) = Range("X" & Format(x1))
Range("U" & Format(x2)) = Range("U" & Format(x1))
Range("V" & Format(x2)) = Range("X" & Format(x1) - 1)
End If
next
next