T
Tim
Hi All,
I've got a directory listing dumped into an Excel sheet (created from the
command line with 'dir \s > dir.txt'), which i am trying to get in to some
sort of order.
I've created the code below to check for certain text within cells and if
present, delete the containing row. The code works well enough, but as i
have 60,000 rows it is taking a VERY LONG time. is there any way to
significantly speed up this task?
'=========
Sub rowdel()
Dim Tcell As Range, x, y
x = 0
y = 0
For Each Tcell In Selection
If InStr(1, Tcell.Value, "<DIR> .") > 0 Then
Tcell.Rows.Delete
x = x + 1
End If
y = y + 1
Application.StatusBar = y
Next Tcell
MsgBox x & " lines removed"
Application.StatusBar = False
End Sub
'=========
Thanks for any help,
Tim
I've got a directory listing dumped into an Excel sheet (created from the
command line with 'dir \s > dir.txt'), which i am trying to get in to some
sort of order.
I've created the code below to check for certain text within cells and if
present, delete the containing row. The code works well enough, but as i
have 60,000 rows it is taking a VERY LONG time. is there any way to
significantly speed up this task?
'=========
Sub rowdel()
Dim Tcell As Range, x, y
x = 0
y = 0
For Each Tcell In Selection
If InStr(1, Tcell.Value, "<DIR> .") > 0 Then
Tcell.Rows.Delete
x = x + 1
End If
y = y + 1
Application.StatusBar = y
Next Tcell
MsgBox x & " lines removed"
Application.StatusBar = False
End Sub
'=========
Thanks for any help,
Tim