creating a macro to add text to existing data already in cell

[Tim New]

Forgive me, I am new at Excel macros. I have a spreadsheet with
thousands of cells that now require extra text be added to the existing
data already in the cell. The extra text is the same for all cells
involved. I tried creating my own macro using record, doing the steps,
and stop recording but it applies the action to the original cells
rather than any new cells. I want to add "<br>Steel (Zinc Plated)" to
each cell.

Here is what I have so far:
ActiveCell.FormulaR1C1 = "<br>Steel (Zinc Plated)"

Thanks for the help!

 

[carlo]

Hi Tim

take this sub and change it for your purpose:

Sub abb_bla()

Dim cell As Range

For Each cell In UsedRange
cell.Value = cell.Value & "<br>Steel (Zinc Plated)"
Next cell

End Sub

hope that helps

Carlo

 

[Tim New]

Carlo,
When I run it, I get a error at Next cell saying: Next without For.
Here is what I now have:
Sub Macro8()
'
' Macro8 Macro
' Macro recorded 1/28/2008 by Timothy
'
' Keyboard Shortcut: Ctrl+e
'
ActiveCell.FormulaR1C1 = cell.Value & "<br>Steel Fitting (Zinc
Plated)"
Next cell

End Sub

 

[Tim New]

I change the macro to:
Sub Macro8()
'
' Macro8 Macro
' Macro recorded 1/28/2008 by Timothy
'
' Keyboard Shortcut: Ctrl+e
'
Dim cell As Range

For Each cell In UsedRange
cell.Value = cell.Value & "<br>Steel (Zinc Plated)"
Next cell

End Sub

I now get runtime error 424 Object Required

 

[carlo]

Carlo,
When I run it, I get a error at Next cell saying: Next without For.
Here is what I now have:
Sub Macro8()
'
' Macro8 Macro
' Macro recorded 1/28/2008 by Timothy
'
' Keyboard Shortcut: Ctrl+e
'
    ActiveCell.FormulaR1C1 = cell.Value & "<br>Steel Fitting (Zinc
Plated)"
    Next cell

End Sub

*** Sent via Developersdexhttp://www.developersdex.com***

Hey Tim

well you don't have a For, that's what it says. try this:


Sub Macro8()
dim cell as range

for each cell in selection
cell.FormulaR1C1 = cell.Value & "<br>Steel Fitting (Zinc Plated)"
Next cell

End Sub

hope that helps
Carlo

 

[Tim New]

Carlo,
That worked! I dont care what everyone else says, you're the best. You
saved me tons of time and gave me a learning experience.
Thanks!
Timothy

 

[carlo]

Carlo,
That worked!  I dont care what everyone else says, you're the best.  You
saved me tons of time and gave me a learning experience.
Thanks!
Timothy

*** Sent via Developersdexhttp://www.developersdex.com***

What exactly do you mean with: "what everyone else says"?

glad that it worked, thanks for your feedback

Carlo