Bob Phillips followup question on text macro
 

Bob,
You gave me this wonderful macro last week, which has helped our group more
than you can know. I am wondering if there is any way to make this macro
relative, so that I dont have to go into the macro manually and change the
column reference when my data is in a different column than A. I'd like to
be able to click at the top of any column and have the macro run down that
current column

iLastRow = Cells(Rows.Count,"A").End(xlUp).Row
For i = 1 To iLastRow
Cells(i,"A").Value = "'0" & Cells(i,"A").VAlue
Next i

Thanks for your help

That's good to hear it is being so useful.

To answer your question, this should work on any cell in the column, not
just the top cell

iLastRow = Cells(Rows.Count,Activecell.Column).End(xlUp).Row
For i = 1 To iLastRow
Cells(i,"A").Value = "'0" & Cells(i,Activecell.Column).VAlue
Next i


--
HTH

Bob Phillips

"kayabob" wrote in message
...
Bob,
You gave me this wonderful macro last week, which has helped our group
more
than you can know. I am wondering if there is any way to make this macro
relative, so that I dont have to go into the macro manually and change the
column reference when my data is in a different column than A. I'd like
to
be able to click at the top of any column and have the macro run down that
current column

iLastRow = Cells(Rows.Count,"A").End(xlUp).Row
For i = 1 To iLastRow
Cells(i,"A").Value = "'0" & Cells(i,"A").VAlue
Next i

Thanks for your help

Thanks! Exactly what i needed! Even more time saved for us.

"Bob Phillips" wrote:

That's good to hear it is being so useful.

To answer your question, this should work on any cell in the column, not
just the top cell

iLastRow = Cells(Rows.Count,Activecell.Column).End(xlUp).Row
For i = 1 To iLastRow
Cells(i,"A").Value = "'0" & Cells(i,Activecell.Column).VAlue
Next i


--
HTH

Bob Phillips

"kayabob" wrote in message
...
Bob,
You gave me this wonderful macro last week, which has helped our group
more
than you can know. I am wondering if there is any way to make this macro
relative, so that I dont have to go into the macro manually and change the
column reference when my data is in a different column than A. I'd like
to
be able to click at the top of any column and have the macro run down that
current column

iLastRow = Cells(Rows.Count,"A").End(xlUp).Row
For i = 1 To iLastRow
Cells(i,"A").Value = "'0" & Cells(i,"A").VAlue
Next i

Thanks for your help