How do I copy and past selected rows to a new sheet when multiple conditions are met?

Hello

I'm an event manager and am setting up a database to record the event details, including 'status: namely, whether an event's booking status is 'Enquiry' or 'Provisional' or 'Confirmed'. I want to move the 'Provisional' and 'Confirmed' records to a new sheet (don't want to use filters in sheet 1, as others will use this database and I will only give them access to the sheet 2).

I'm new to VBA, so am searching for some code that might help. Assume at this stage, there are just three columns: Status, Event Type, Event Date. I have found the following code and tested this to see that it works, which it does:


Sub SelectAndMoveData()
'
' SelectandMoveData Macro
'
' Keyboard Shortcut: Ctrl+q
'

Columns("A:C").Select
Selection.AutoFilter
Range("C1").Select
ActiveSheet.Range("$A$1:$C$10000").AutoFilter Field:=1, Criteria1:="Provisional"
Range("A1:C1000").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
ActiveSheet.Next.Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
ActiveSheet.Previous.Select
Range("A1").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A1").Select

End Sub



I've found many examples such as this which allow just ONE criteria to be met. However, I'm trying to adjust it to make it work for MORE THAN ONE criteria, which would select the row whether 'Provisional' OR 'Confirmed'. Sadly, I'm floundering to get the syntax right!

Any suggestions, please, for an elegant solution?

Many thanks
Terri H

Changing this line:

Please Login or Register  to view this content.

To this will account for the 2 you mentioned.

Please Login or Register  to view this content.

Thank you. This works. By the way, apologies for not including the Code Tags - this is my first thread, but I'll know better next time!

Originally Posted by JOHN H. DAVIS

Changing this line:

Please Login or Register  to view this content.

To this will account for the 2 you mentioned.

Please Login or Register  to view this content.

Thank you. This works. By the way, apologies for not including the Code Tags - this is my first thread, but I'll know better next time!

Originally Posted by Terri H

Thank you. This works. By the way, apologies for not including the Code Tags - this is my first thread, but I'll know better next time!

You're welcome. Glad to help out and thanks for the feedback.