Macro help, simple this time
Posted by Mo on November 01, 2001 10:24 AM
Hello, I posted a problem yesterday, no takers. My fault for making too long. Much easier now.
I have a workbook that contains many columns. I need a macro that will search the third column, If it finds the letters " IBT", it needs to cut the whole row and paste it to sheet 2.
Thanks
Mo
Posted by bob umlas on November 01, 2001 2:03 PM
This is untested, but---
On Error Resume Next
Err.Clear
Set x = Columns(3).Find("IBT")
if Err.Number = 0 then
Rows(x.row).Cut Sheets(2).Range("A65536").end(xlup).Offset(1)
End If
Posted by Mo on November 01, 2001 2:22 PM
Thankyou very much Bob
