Copy entire column between workbooks based on cell value - Excel VBA

[CakzPrimz]

Dear Mr Excel,

I have two workbooks:
1. Shipping Plan.xlsb and sheets "Plan"
2. Final Packing List.xlsb and sheets "PackList"

In workbook Shipping Plan, sheets "Plan" I want to copy all columns in this sheet into workbooks "Final Packing List.xlsb" only if cell value in column AI is equal to cell G1 value.

Shipping Plan.xlsb, sheets "Plan", column AI is consist of shipment numbers
Shipping Plan.xlsb, sheets "Plan", cell G1 is consist of a shipment number. Let's say "DT-IN-156"

The macro should be copy all columns in sheets "Plan" into workbooks "Final Packing List.xlsb", sheet "PackList" only if cell value in column AI is equal to G1 value, if no records found it then a message box appear saying that "DT-IN-156" is not found.

Thank so much in advance.
prima

 

[mumps]

You want to copy only those rows in the "Plan" sheet where the value in column AI is equal to the value in cell G1. Is this correct?