Copying/Pasting Rows/Columns based on content

Good Afternoon!

I need some serious help with this macro that I am trying to write.

I have attached the spreadsheet that I am working on. I was trying to write a macro that would cut all of the rows that have "Duplicate claim/service." in column L and paste them into a new worksheet within this workbook. I would also like to cut all of the rows that have a "Y" in column M and paste them into the same worksheet as the "Duplicate claim/services".

This is a report that is generated daily, the number of rows will vary from day to day. I need this macro to be able to capture ALL of the Duplicate claim/services and ALL of the Y's regardless of how many rows there are in the worksheet.

This report is a medical claim denial report, all of the "accounts" have to be reviewed EXCEPT for the Duplicate claims and the ones that are marked "Y" for worked.

I hope this makes sense and I hope someone might be able to help me.

Thanks,

Laura S.
lmsloman@yahoo.com

i had a similar question that i asked for help on... i got some code, but now i need help debugging it.. it doesn't quite work and i'mnot sure why.. here's the thread i started

http://www.excelforum.com/showthread.php?t=575935

if you have any ideas on what might be wrong, please let me know too! thanks!!

i had a similar question that i asked for help on... i got some code, but now i need help debugging it.. it doesn't quite work and i'mnot sure why.. here's the thread i started

http://www.excelforum.com/showthread.php?t=575935

if you have any ideas on what might be wrong, please let me know too! thanks!!

HABIB89 :I couldn't figure it out either.....so please, if someone responds to your inquiry, keep me posted. Thanks for your quick response!

Try this:


Code:
Sub filter_data()

Dim wshSource As Worksheet, wshDest As Worksheet
Dim rngCell As Range

Set wshSource = ActiveSheet
Set wshDest = Sheets.Add(before:=ActiveSheet)

wshSource.Select
For Each rngCell In Intersect([l:l], ActiveSheet.UsedRange)
If rngCell.Value = "Duplicate claim/service." Or _
rngCell.Offset(, 1).Value = "Y" Then _
rngCell.EntireRow.Copy Destination:= _
wshDest.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Next

[1:1].Copy wshDest.[a1]

End Sub

HTH
Col

I got an error. Was I supposed to do something other than just paste the code into a new VBA project?

colofnature: YOU ARE MY HERO!!!

Hi Col,

Read this thread with interest since this bit of code seems to be exactly what I need........but.......

The text string I am looking for is at the beginning of a longer string in the cell - basically I need to test for the presence of "TOTDY" at the beginning of a cell that could contain "TOTDY T-Shirt", "TOTDY Ladies T-Shirt", "TOTDY Gents T-Shirt" etc.

I have played around with changing the = in the code to Like but without success!

To sum up, I would like to copy all the rows that contain "TOTDY" at the start of the text in column P to a second worksheet.

Any help with this would be much appreciated!