Hi, I'm seeking assistance with a macro. I'm trying to delete subsequent
rows if data in a particular cell in Column B changes.

I need to create a macro because there are thousands of products and using
autofilter to sort and delete would take a while.

Any assistance would be greatly appreciate, thanks!

More info

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"jscorsone" <(E-Mail Removed)> wrote in message
news:B1A3C229-760C-44DC-9DAF-(E-Mail Removed)...
> Hi, I'm seeking assistance with a macro. I'm trying to delete subsequent
> rows if data in a particular cell in Column B changes.
>
> I need to create a macro because there are thousands of products and using
> autofilter to sort and delete would take a while.
>
> Any assistance would be greatly appreciate, thanks!

Sure, I didn't explain that very well.

I have 6 columns of data, thousands of rows of data.

Columns B, C, D, E, F will change. The column I'm concerned with is Column
B, Item Number. There are multiple rows of data with the same Item Number
(Column B.)

I'd like to delete all rows after the first row for a particular item name,
until Column B changes to a new number.


"Don Guillett" wrote:

> More info
>
> --
> Don Guillett
> Microsoft MVP Excel
> SalesAid Software
> (E-Mail Removed)
> "jscorsone" <(E-Mail Removed)> wrote in message
> news:B1A3C229-760C-44DC-9DAF-(E-Mail Removed)...
> > Hi, I'm seeking assistance with a macro. I'm trying to delete subsequent
> > rows if data in a particular cell in Column B changes.
> >
> > I need to create a macro because there are thousands of products and using
> > autofilter to sort and delete would take a while.
> >
> > Any assistance would be greatly appreciate, thanks!
>
>

for
1
1
1
2
2
3
this will leave
1
2
3
Sub deletedups()
mc = "b"
For i = Cells(Rows.Count, mc).End(xlUp).Row To 2 Step -1
If Cells(i - 1, mc) = Cells(i, mc) Then Rows(i).Delete
Next
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"jscorsone" <(E-Mail Removed)> wrote in message
news:F1A79C9C-85E7-4823-A440-(E-Mail Removed)...
> Sure, I didn't explain that very well.
>
> I have 6 columns of data, thousands of rows of data.
>
> Columns B, C, D, E, F will change. The column I'm concerned with is
> Column
> B, Item Number. There are multiple rows of data with the same Item Number
> (Column B.)
>
> I'd like to delete all rows after the first row for a particular item
> name,
> until Column B changes to a new number.
>
>
> "Don Guillett" wrote:
>
>> More info
>>
>> --
>> Don Guillett
>> Microsoft MVP Excel
>> SalesAid Software
>> (E-Mail Removed)
>> "jscorsone" <(E-Mail Removed)> wrote in message
>> news:B1A3C229-760C-44DC-9DAF-(E-Mail Removed)...
>> > Hi, I'm seeking assistance with a macro. I'm trying to delete
>> > subsequent
>> > rows if data in a particular cell in Column B changes.
>> >
>> > I need to create a macro because there are thousands of products and
>> > using
>> > autofilter to sort and delete would take a while.
>> >
>> > Any assistance would be greatly appreciate, thanks!
>>
>>

That's exactly what I needed. Thanks so much for your assistance!

"Don Guillett" wrote:

> for
> 1
> 1
> 1
> 2
> 2
> 3
> this will leave
> 1
> 2
> 3
> Sub deletedups()
> mc = "b"
> For i = Cells(Rows.Count, mc).End(xlUp).Row To 2 Step -1
> If Cells(i - 1, mc) = Cells(i, mc) Then Rows(i).Delete
> Next
> End Sub
>
> --
> Don Guillett
> Microsoft MVP Excel
> SalesAid Software
> (E-Mail Removed)
> "jscorsone" <(E-Mail Removed)> wrote in message
> news:F1A79C9C-85E7-4823-A440-(E-Mail Removed)...
> > Sure, I didn't explain that very well.
> >
> > I have 6 columns of data, thousands of rows of data.
> >
> > Columns B, C, D, E, F will change. The column I'm concerned with is
> > Column
> > B, Item Number. There are multiple rows of data with the same Item Number
> > (Column B.)
> >
> > I'd like to delete all rows after the first row for a particular item
> > name,
> > until Column B changes to a new number.
> >
> >
> > "Don Guillett" wrote:
> >
> >> More info
> >>
> >> --
> >> Don Guillett
> >> Microsoft MVP Excel
> >> SalesAid Software
> >> (E-Mail Removed)
> >> "jscorsone" <(E-Mail Removed)> wrote in message
> >> news:B1A3C229-760C-44DC-9DAF-(E-Mail Removed)...
> >> > Hi, I'm seeking assistance with a macro. I'm trying to delete
> >> > subsequent
> >> > rows if data in a particular cell in Column B changes.
> >> >
> >> > I need to create a macro because there are thousands of products and
> >> > using
> >> > autofilter to sort and delete would take a while.
> >> >
> >> > Any assistance would be greatly appreciate, thanks!
> >>
> >>
>
>