Thread: delete rows
View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
m[_4_] m[_4_] is offline
external usenet poster
 
Posts: 2
Default delete rows

Thank you both for your help!!


-----Original Message-----
I am working on a macro that will copy an entire row of
data onto another sheet based on a condition in the first
column. the only way i know how to do this is to copy

the
entire source worksheet into a temp worksheet, tag each
row as either keep or delete, delete all of the rows that
i dont want, and then copy the remainder to destination
worksheet. here is what i am trying to use to delete the
rows:

For rwIndex = 1 To 1000
With ActiveSheet.Cells(rwIndex, 1)
If ((.Value) = "X") Then
Rows(rwIndex).Delete
End If
End With
Next rwIndex

however, this formula does not work. i can get it to

hide
the rows (hidden = ture) but not delete. any ideas?

thanks
.