MrExcel Publishing
Your One Stop for Excel Tips & Solutions

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.

Posted by bob umlas on November 01, 2001 2:03 PM

This is untested, but---
On Error Resume Next
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