How to enter a row when an "if condition" is metClosed

Question

Hello, 

Would like to know how to add a row in a different sheet when an "if condition" is met.

To illustrate, I have the following columsn in sheet one:

Month   Rerence No.   Type   Client No.    Client Name    Authority

I would like to condition that should the "authority column" be a certain value, then all the details in that particular "row" be inserted in a different sheet.

Thanks in advance for the help.

Sincerely

vcoolio · Answer

Hello El Magnifico,

Something like this should get you started at least:-

Sub CopyIt()Application.ScreenUpdating = FalseWith ActiveSheet    .AutoFilterMode = False    With Range("F1", Range("F" & Rows.Count).End(xlUp))        .AutoFilter 1, "Yes"        On Error Resume Next        .Offset(1).EntireRow.Copy        Sheet2.Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues            End With    .AutoFilterMode = FalseEnd WithSheet2.Columns.AutoFitApplication.CutCopyMode = FalseApplication.ScreenUpdating = TrueSheet2.SelectEnd Sub

You can have a look at my test work book at the following link:-

https://www.dropbox.com/s/ggro8uwtxtey6ym/El%20Magnifico.xlsm?dl=0

The code filters Column F for the criteria "Yes" and transfers the relevant row of data to sheet 2. Click on the "Transfer" button to see it work.

I hope that this helps.

Cheerio,
vcoolio.

How to enter a row when an "if condition" is met

1 response

Similar discussions

Subscribe To Our Newsletter!