View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
GTVT06 GTVT06 is offline
external usenet poster
 
Posts: 141
Default Creating a list on a different worksheet/form

On Mar 24, 3:15*pm, Jeff Frazier <Jeff
wrote:
We have developed a listing of inventory items with a cell associated with
each item that indicates if it is present. *Is it possible to have the items
not present to be exported or listed on a different form or worksheet.


Yes, you can do something like this

Sub MOVETHEM()
Dim CELL As Range
For Each CELL In Range("B1:B50")
If CELL.Value = "NOT PRESENT" Then
CELL.EntireRow.Copy
Worksheets("Sheet2").Rows("65536").End(xlUp).Offse t(1, 0)
End If
Next CELL
End Sub

I used range ("B1:B50") as the column that identfies if it's "PRESENT"
or "NOT PRESENT"