View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Bernie Deitrick Bernie Deitrick is offline
external usenet poster
 
Posts: 5,441
Default Does anyone have a simple macro for this?

Caroline,

If your liab values are on "Liab Sheet", and you want to move them to "Another Sheet"


Dim myR As Range
With Worksheets("Liab Sheet")
Range("A101").EntireRow.Insert
Set myR = .Range(.Range("A101"), .Range("A65536").End(xlUp))
End With
myR.AutoFilter Field:=1, Criteria1:="liab"
myR.SpecialCells(xlCellTypeVisible).EntireRow.Copy _
Worksheets("Another Sheet").Range("A65536").End(xlUp)(2)
myR.EntireRow.Delete

HTH,
Bernie
MS Excel MVP


"CarolineHedges" <CarolineHedges.2bt32k_1154342902.1997@excelforu m-nospam.com wrote in message
news:CarolineHedges.2bt32k_1154342902.1997@excelfo rum-nospam.com...

For each/every row which has the text "liab" in column A after cell
A100, for example, cut the row and paste onto another worksheet.

Thanks


--
CarolineHedges
------------------------------------------------------------------------
CarolineHedges's Profile: http://www.excelforum.com/member.php...o&userid=35705
View this thread: http://www.excelforum.com/showthread...hreadid=566561