Copy rows from one sheet to another based on 2 conditions

**chrispulliam** · 05-22-2010, 07:12 PM

I am looking to copy data from one sheet to another based on the value in a to columns. If column "N" contains "WDWO" and if "I" is less than "600" then I need to move three fields in that row to a different sheet. the fields that need to be moved are in columns a, e, j. I have attached a sample of the sheets before and after. My original sheet is sheet 1 and my filtered sheet is sheet 2. As always thanks ahead for the help and it is much appreciated! And I need this in a macro so I can automate this process because I have to do this with 8 different sheets.

**protonLeah** · 05-22-2010, 09:23 PM

Please Login or Register  to view this content.

**chrispulliam** · 05-22-2010, 11:11 PM

I tried this on my original sheet and i get a Run time error 13 type mismatch on the following line of code

Please Login or Register  to view this content.

but I look over at my sheets and some data is populating. I dont understand what is going wrong. Been trying this for about 1 hour and a half to tweek and figure out what is happening. Any ideas?

**protonLeah** · 05-22-2010, 11:37 PM

How is your actual sheet different from the sample? May need a bigger sample including data that you think is causing the problems.

**justinvalle** · 05-23-2010, 01:38 AM

I'm guessing the mismatch is at your less-than comparison. You're probably trying to compare a number with a non-number (i.e., a " ", a null, a letter).

Try testing the values before comparing using isnumeric(number to test) like this:

if isNumeric(number to test) then
'number is numeric, do nothing
else
'not numermic!
msgbox "this number can't be compared to other numbers: " & activecell.address

end if