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

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.

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

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


"David" wrote in message
...
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.

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

"Bernie Deitrick" wrote:

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


"David" wrote in message
...
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.


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.

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

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


"David" wrote in message
...


"Bernie Deitrick" wrote:

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


"David" wrote in message
...
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.

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

"Bernie Deitrick" wrote:

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


"David" wrote in message
...


"Bernie Deitrick" wrote:

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


"David" wrote in message
...
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.




THANK YOU BERNIE THAT IS JUST WHAT I NEED.

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

THANK YOU BERNIE THAT IS JUST WHAT I NEED.

You're welcome....

Bernie
MS Excel MVP