Select Cells Case Statement

[chatnet26]

Dear Gentlemen,

I wanted to come up a result of using a select cells case statement. When after select cells of criteria, the field headers will filter so on and forth, as there were 29 table headers out of 12 data sheets maintaining in daily basis.

I can do this task using turn on filtering cells but keeping scrolling over to the right and left is trickier.

Will it be possible to do this using a macro?

Case select “Type”
Case Project
Activesheet.Range().autofilter

Case MOC
Activesheet.Range().Autofilter
Else if no matching criteria found
Then
Message box, no records criteria found

In this project, I have four criteria to complete this action. Please see requirement below.

Type Status Dept Actionee
Project Closed Dept1 Discipline 2
Project Active Dept 1 Discipline 1
Project Overdue Dept 2 Discipline 1
Project Overdue Dept 2 Discipline 2
Project Overdue Dept 2 Discipline 2
Project Active Dept 2 Discipline 2
Project Active Dept 1 Discipline 1
Project Active Dept 1 Discipline 1
Project Closed Dept 1 Discipline 1
Project Closed Dept 2 Discipline 2
MOC Closed Dept 2 Discipline 1
MOC Active Dept 2 Discipline 2
MOC Active Dept 2 Discipline 1
MOC Active Dept 1 Discipline 1
MOC Overdue Dept 1 Discipline 2
MOC Overdue Dept 2 Discipline 2
MOC Overdue Dept 1 Discipline 2

Appreciate your kind support. Thanks

Best Regards,

 

[chatnet26]

Dear Sir royUK,

Appreciate kind your assistance of helping me out. I learn many things on how it way supposed to deal with.

Again, thank you so much.

God Bless.

Best regards,

 

[chatnet26]

Dear Sir ttdk1,

Just now, I applied your recommendation and it is perfectly what I am looking for. This time it will save much more my time of generating the report.

I do really appreciate your valuable input and resolution to sort out my issue. Appreciate very much.

Many thanks indeed.

God Bless.

Best regards,