VBA Loop Through Range and Copy/Paste to Another Sheet

[BrandonL]

I need VBA that loops through a single column on one sheet, finds any cell with a "-", then copy and paste it to another separate sheet. The column being looped through will be dynamic.

The first sheet is named "PRO Schedule" and the range starts at "C5". I need it to loop down the column to the last entry and find the part numbers. I think searching for "-" will give me all of them. Here is a screenshot of this sheet.

The VBA will be in a button on the sheet that the found values will be pasted. This sheet is called "SIMPLE Schedule" and the first cell where the found values are to be pasted is "B5".

I have searched for a solution on the forums but can not make anything fit. Any help would be greatly appreciated!

 

[BrandonL]

If that formula works in 365 then I think this should work in 2016 as well

=IFERROR(INDEX('PRO Schedule'!C:C,AGGREGATE(15,6,ROW('PRO Schedule'!C$5:C$2500)/((ISNUMBER(FIND("7161675",'PRO Schedule'!C$5:C$2500))+ISNUMBER(FIND("55369603",'PRO Schedule'!C$5:C$2500))+ISNUMBER(FIND("AA",'PRO Schedule'!C$5:C$2500))+ISNUMBER(FIND("AB",'PRO Schedule'!C$5:C$2500))+ISNUMBER(FIND("AC",'PRO Schedule'!C$5:C$2500))+ISNUMBER(FIND("AG",'PRO Schedule'!C$5:C$2500))+ISNUMBER(FIND("-",'PRO Schedule'!C$5:C$2500)))*ISERROR(FIND("+/-",'PRO Schedule'!C$5:C$2500))),ROWS(B$5:B5))),"")

Peter,

This worked brilliantly! Thanks again for taking a look, really appreciate it.

Brandon

 

[Peter_SSs]

You're welcome. Glad it worked for you.