Eliminate undesired rows

[rdev]

-------- -----
Inter Op eration Ctl - 1102
<-Sour ce--> Transaction Desc ription Trxn
Co Acc ount Extension Co de Typ Doc.Ref. Date Session Perd.
-- --- ----- ---------------- -------------- --- -------- -------- ------- -----
ST TRANSFER TO 1102PAY CJT 20145417 23/06/08 183137 806
SH.ST.9999
ST TRANSFER TO 1102PAY CJT 20145419 30/06/08 183140 806
SH.ST.9999
ST TRANSFER TO 1102PAY CJT 20145421 30/06/08 183140 806


I have the following codes to delete those rows that do not have ST in the first column . It does work for the blank rows but bot for rows other than the ST e.g the inter op remains,can someone help


Sub Tiedup1102()
Dim finalrow, t As Long, y As Constants
Sheets("1102").Select
Cells(13, 1).Select
y = Trim(Cells(13, 1).Value) ' extract a string from a cell

'LastRow2 = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
'MsgBox LastRow2
For t = 13 To 2500
Cells(t, 1).Select
If Trim(Cells(t, 1).Value) <> "ST" Then ActiveCell.EntireRow.Delete
Next t
End Sub

 

[njimack]

Could it be because your code only looks at rows 13 to 2500?

Also, there's no need to select cells to work with them. The following would be more efficient:

Sub Tiedup1102()
Dim LastRow2, t As Long
With Sheets("1102")

LastRow2 = .Range("A" & Rows.Count).End(xlUp).Row

For t = LastRow2 to 1 Step-1 'assumes your data to be tested starts from row 1

If Trim(.Cells(t, 1).Value) <> "ST" Then .Cells(t,1).EntireRow.Delete
Next t
End With
End Sub

 

[MickG]

Hi RDev
Perhaps something like this:-

Dim T As Integer, Last As Integer
Last = Range("A" & Columns.Count).End(xlUp).Row
  
  For T = Last To 13 Step -1
      If InStr(Cells(T, 1).Value, "ST") = 0 Or _
         Cells(T, 1).Value = "" Then
            Rows(T).EntireRow.Delete
      End If
Next T

Regards Mick