Copy value to another sheet when condition is met

Can somebody help me with some VBA-code that loops through a range and copies the value in a cell to another sheet when condition is met.

Example:

Check if the value of cells A1:A10 = x, if yes copy the corresponding values from B1:B10 to another sheet

Best wishes
Lars
LarsDyrbyAsked:
Who is Participating?
 
Rob HensonConnect With a Mentor Finance AnalystCommented:
You can do this without VBA using the Advanced Filter feature.

To make a copy to another location, select that location before instigating the feature.

The destination sheet has to have the same column headers (or a selection of) as the source data.

Thanks
Rob H
0
 
Rgonzo1971Commented:
Hi,

Could you be more specific?

Sub macro()
For Each c In Range("A1:A10")
    If LCase(c) = "x" Then
        c.Offset(0, 1).Copy Destination:=Worksheets("Sheet3").Range("B" & Cells.Rows.Count).End(xlUp).Offset(1)
        c.EntireRow.Delete
    End If
Next
End Sub

Open in new window

Regards
0
 
LarsDyrbyAuthor Commented:
Used the advanced filter

Thx to Rob
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.