Macro to delete entire row based on cell contents

[ATX]

Can any one help writing a macro to delete the row if part # starts with 800- & 550 the #'s are in column A

[tlafferty]

Please revise your post title to something more specific like macro to delete entire row based on cell contents so that you're not in violation of forum rule #1. I'll post code as soon as it's amended.

[GeneralDisarray]

que? if part # starts with 800? do you think you could provide an example sheet?

[tlafferty]

Hi GeneralDisarray - I have a code solution I can provide, but can't do so just yet. The forum moderators would rightly crack down on this since this post's title is too ambiguous.

[shg]

Good now, TL.

[tlafferty]

Assuming you mean that the first ten characters of the cells in the A column need to be tested for the characters 800- & 550:

Please Login or Register  to view this content.

[GeneralDisarray]

sorry, had it open for a moment before replying....just didn't see your reply

[tlafferty]

No worries - just means you're anxious to help, which is a good sign.

[watersev]

hi, ATX, option without looping, click "Start"

[ATX]

Thanks Guys for the quick response but i am Not sure if i have this set up right i run the macro and no part are deleted

Sub Export()
'
' Export Macro
' Export
'

'
Range("A:B,D:G,J:O,R:W").Select
Range("R1").Activate
Selection.Delete Shift:=xlToLeft
Columns("B:B").Select
Selection.Cut
Columns("D:D").Select
Selection.Insert Shift:=xlToRight
Cells.Select
Cells.EntireColumn.AutoFit
Range("A2").Select
End Sub

Sub DeleteRow()
Dim lngLastRow As Long
lngLastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
For Each c In Range("A1:A" & lngLastRow)
If Left(c.Value, 10) = "800- & 550" Then c.EntireRow.Delete
Next
End Sub

[watersev]

please check attachment, run code "test"

PS. Any posted code must be enclosed in code tags

[ATX]

Thanks watersev that worked question would i be able to add more part to delete in this code
.AutoFilter 1, "800-*", xlOr, "550*"

[farrukh]

Hi ATX

Hope this code helps you just paste values in the highlighted yellow color.
If ((ActiveCell.Value() = "0")) Then

Please Login or Register  to view this content.

Thanks
farrukh

[watersev]

hi, ATX, as an option it can be done this way with the help of Autofilter, instead of A,B,C,D,F... you can put other conditions or delete them if not required