Translating Column Addresses into number/integer
There are many ways - this one is easy as you can use the
variables in lots of ways.
Sub MySub()
For xx = 4 To 9 'ROW
For yy = 6 To 16 'COL
If Range("A1").Offset(xx, yy) = Int(Range("A1").Offset(xx, yy)) Then
Range("AA1").Offset(xx, yy) = Range("A1").Offset(xx, yy)
End If
Next yy
Next xx
End Sub
This will check cells from F4:P9 to see if they are integers (they must be numbers)
and save the integers into the same cells in the range AF:AP9.
Chrissy.
"Andreww" wrote in message ...
Hi - I have a for.. next loop that I want to shuttle across columns based on
a supplied cell ref... how do I increment form column to collumn?
For instance I want to move, in a row, allong the columns and when I find an
integer put it else where on the sheet
I thought it might look something like this:
for zz = 1 to 5 ' The rows
for xx = A to G 'The cols
do stuff
next xx
next zz
Any help MUCH appreciated!
Cheers
Andrew
|