Check TargetColumn, TargetValue for Text Value, copy, repeat (mismatch error)

Originally Posted by FrothyD

Hi all, new to vba so this may be very simple and I'm just missing it.

In short, I'm working on a macro to check if a column in a worksheet (with a variable # of rows from day-to-day), contains one of five different text values. If it contains one of these values, then to copy the entire row to a new row on the specified page, and continue through the document.

The portion of code giving me trouble: -if you have a better/simpler solution, I am all ears
(the "If TargetValue = ..." row is giving me the errors, if that helps)

Sheets("Report").Select
TargetColumn = 6
If TargetValue = "James" Or "Mike" Or "C.H.I.C.O. Hard-Ware" Or "Rubik" Then
Target.EntireRow.Copy _
Destination:=Sheets("New Sheet").Range("A4" & nextRow)
End If
End Sub


Let me know what you think.
Thanks,
FrothyD

Please Login or Register  to view this content.

Something like this might help. But its hard to know without seeing the workbook.

or try Target.Value

Kaizor

Please comply with the Forum Rules when posting. See Rule No. 3.

http://www.excelforum.com/forum-rule...rum-rules.html

Does this help?

Please Login or Register  to view this content.

Untested try on a copy first.

Does this help?

Please Login or Register  to view this content.

Untested try on a copy first.[/QUOTE]


Hi John, thank you for the help.

Your code isn't causing any errors, but it also isn't grabbing any of the needed rows.

Could you explain your logic a little more to me (I am a novice to vba)--such as what:

Please Login or Register  to view this content.

means? I am not quite sure what "i=2" or "End(3)" are referring to within the worksheet.

Thanks,
FrothyD

"i" is a variable which starts at row 2 and goes from row 2 to the last used cell in Column 6. End(3) is a shorter version End(xlUp). This would indicate the last cell in Column 6 or "F" with data in it. However, I wasn't sure if that was what you were after.

Hi TMS, I tried that as well; gave no errors, but still couldn't bring in the needed rows. I've attached an example file to my original post with the data I'll be pulling from.

Originally Posted by TMS

Does the amendment in post #3 work? That's very basic and, if it doesn't, it would be helpful to see some sample data.


Regards, TMS

Thank you, TS! That works perfectly.

Cheers, and again a big thanks,
FrothyD