Using cell value as column offset, then write to active cell

[rkkenyon]

This is another building block for formatting a large spread sheet I have to use, thanks in advance!

I need to use a cell value as a column offset, move right the corresponding offset, then write a "1" in the next 5 columns of that row.
Then repeat for the rest of the rows in my sheet.


[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]Offset[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]1[/TD]
[TD]1[/TD]
[TD]1[/TD]
[TD]1[/TD]
[TD]1[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD][/TD]
[TD]1[/TD]
[TD]1[/TD]
[TD]1[/TD]
[TD]1[/TD]
[TD]1[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD][/TD]
[TD][/TD]
[TD]1[/TD]
[TD]1[/TD]
[TD]1[/TD]
[TD]1[/TD]
[TD]1[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]1[/TD]
[TD]1[/TD]
[TD]1[/TD]
[TD]1[/TD]
[TD]1[/TD]
[/TR]
</tbody>[/TABLE]

 

[Rick Rothstein]

Can't imagine why anyone would tack on Option Base 1 to such a simple bit of code...

Perhaps they will unthinkingly copy/paste it into a module full of functions and subroutines where Option Base 1 is in effect (some people hate zero-based arrays and avoid them like the plague).