Limited byrows propagate a value via macro to all cells in column

[Guest]

I need to propagate the value "1" to all cells in a column via macro. The
number of cells will vary based on the data loaded at file open. I do not
want to create additional rows by inserting a formula and copying it to an
entire column. I am using Excel 2003.

 

[Bernie Deitrick]

Let's say you want to insert 1's into the first open column, and match the size to the number of
rows in column A:

Cells(1, Columns.Count).End(xlToLeft)(1, 2).Resize _
(Cells(Rows.Count, 1).End(xlUp).Row).Value = 1

HTH,
Bernie
MS Excel MVP

 

[Guest]

Let's say you want to insert 1's into the first open column, and match the size to the number of
rows in column A:

Cells(1, Columns.Count).End(xlToLeft)(1, 2).Resize _
(Cells(Rows.Count, 1).End(xlUp).Row).Value = 1

HTH,
Bernie
MS Excel MVP





Thank you Bernie, I hope it works. I will try it. Can you give me advice as to how to implement this solution.

Is there an area where I key it in so that it will execute when the data is
loaded or do I have to activate it in some other way?
Thank you for your help.

 

[Bernie Deitrick]

David,

Thank you Bernie, I hope it works. I will try it. Can you give me advice as to how to implement
this solution.
Is there an area where I key it in so that it will execute when the data is
loaded or do I have to activate it in some other way?

Try reading:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

HTH,
Bernie
MS Excel MVP

 

[Guest]

David,


Try reading:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

HTH,
Bernie
MS Excel MVP




THANK YOU BERNIE THAT IS JUST WHAT I NEED.

 

[Bernie Deitrick]

THANK YOU BERNIE THAT IS JUST WHAT I NEED.

You're welcome....

Bernie
MS Excel MVP