copy row to new sheet based on mulitple values in cell A

phairplay

Active Member
Joined
Nov 2, 2011
Messages
260
Hi guys,

I have the following macro that was created for me where that finds a value in column A and copies it over to a new sheet.

Code:
'Replace Sheet1 with name of your source sheet
With Sheets("Sheet1")
  LR = .Range("A" & .Rows.Count).End(xlUp).row
  On Error Resume Next
  Set rng = .Range("A1").Resize(LR).Find(What:="C#", LookIn:=xlValues, LookAt:=xlWhole)
  On Error GoTo 0
  If Not rng Is Nothing Then
    Set rng = .Range(rng, rng.End(xlDown))
  Else
     End
  End If
End With



'Replace Sheet with name of your destination sheet
With Sheets("Sheet3")
    LR = .Range("A" & Rows.Count).End(xlUp).Offset(1).row
    .Range("A" & LR).Resize(rng.Rows.Count).EntireRow.value = rng.EntireRow.value
End With

could someone please help to have this change to find multiple values?

many thanks
 

Some videos you may like

Excel Facts

Can Excel fill bagel flavors?
You can teach Excel a new custom list. Type the list in cells, File, Options, Advanced, Edit Custom Lists, Import, OK

Watch MrExcel Video

Forum statistics

Threads
1,123,318
Messages
5,600,924
Members
414,416
Latest member
Nobu

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top