in need of a macro for a complex task

[Tonyk1051]

Delete row 1 in sheet 1
Highlight column H and insert 2 new columns (do the same for sheet 2)
Highlight column X and insert 1 new column (do the same for sheet 2)

Highlight all of sheet 2 apply data filter

On column G
click select all, check boxes that have Manufacture, Working but missing parts,
tested confirmed defective, tested confirmed damage, picture of defect done

all the data that is found, cut and move to sheet 1

Now on sheet 1

highlight all of it and apply data filter
go to coulmn L and search for TT
all the data that it pulls delete entire row
now search for tv
all the data that it pulls delete entire row
unfilter sheet 1


instructions are always the same but data amount is always
different sometime less some times more, is this something a Macro can do?

 

[Fluff]

Along with changing the And to Or as Mark said, you need to change the 2nd criteria to criteria2

With WS1
        .Range("A1", .Range("AB" & .Rows.Count).End(xlUp)).AutoFilter Field:=12, Criteria1:="*TT*", Operator:=xlOr, Criteria2:="*tv*"
        .AutoFilter.Range.Offset(1).EntireRow.Delete
        .Range("A1").AutoFilter
    End With

 

[MARK858]

Along with changing the And to Or as Mark said, you need to change the 2nd criteria to criteria2

Thanks Fluff, didn't spot that.

 

[Fluff]

I only noticed as I couldn't understand why the TT were getting filtered.
With the xlAnd nothing should have been visible.

 

[MARK858]

I only noticed as I couldn't understand why the TT were getting filtered.
With the xlAnd nothing should have been visible.

I thought the same and got hung up on the case sensitivity when Autofilter isn't case sensitive must be more tired than I thought.

 

[Tonyk1051]

Don't miss my last post as we posted at roughly the same time

AutoFilter Field:=12, Criteria1:="=*TT*", Operator:=xlOr, Criteria1:="=*TV*", i made the changes and it still didnt filter and delete shelves starting with TV....

 

[Fluff]

See post#11, you may have missed it.

 

[Tonyk1051]

I got it, thanks guys

 

[Fluff]

Glad we could help & thanks for the feedback.

 

[Tonyk1051]

For the codes that says to insert 2 new columns in sheet 1, i copied and pasted a new line at the end as I needed to insert a new coulmn in coulmn W but got 2 new columns insteads.
Whats the code to just insert 1 new coulmn in WS1? thanks

 

[Fluff]

What code did you add?