Macro to move cell contents based on formatting

[Scott Wagner]

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

[Tom Ogilvy]

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" <ScottWagner@discussions.microsoft.com> wrote in message
news:6F53A1CF-5B1B-49C0-932B-128FC282A285@microsoft.com...
> 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
>
>

[Scott Wagner]

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" <ScottWagner@discussions.microsoft.com> wrote in message
> news:6F53A1CF-5B1B-49C0-932B-128FC282A285@microsoft.com...
> > 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
> >
> >
>
>
>