Macro to move cell contents based on formatting
PERFECT!
Thanks so much!
"Tom Ogilvy" wrote:
Dim cell as Range, rng as range
set rng = Range(cells(1,ActiveCell.Column), _
Cells(rows.count,ActiveCell.Column).End(xlup))
ActiveCell.Entirecolumn.Offset(0,1).Insert
for each cell in rng
if not cell.font.bold then
cell.offset(0,1).Value = cell.value
cell.clearcontents
end if
Next
--
Regards,
Tom Ogilvy
"Scott Wagner" wrote in message
...
I have a sheet that some data is identified by bold text as being an item
marking, in the same column other items (not in bold) are part numbers.
Need
to seperate those two things (part numbers and markings) into two
different
columns.
How is this done with a macro?
Thanks,
Scott
|