Vba help

[Isabella]

Hi in Column A Row R8 and below I have portfolios which start with ZI and FI, i need a code that will delete entire row in Col A which has pfolios starting with these 2 letters

<TABLE style="WIDTH: 64pt; BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width=85 border=0 x:str><COLGROUP><COL style="WIDTH: 64pt; mso-width-source: userset; mso-width-alt: 3108" width=85><TBODY><TR style="HEIGHT: 12.75pt" height=17><TD class=xl96 style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; WIDTH: 64pt; BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 12.75pt; BACKGROUND-COLOR: transparent" width=85 height=17 x:str="ZISJHH"> ZISJHH </TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD class=xl96 style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext 0.5pt solid; BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 12.75pt; BACKGROUND-COLOR: transparent" height=17 x:str="FIETRR"> FIETRR </TD></TR></TBODY></TABLE>

 

[VoG]

Try

Sub DL()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 8 Step -1
    With Range("A" & i)
        If .Value Like "ZI*" Or .Value Like "FI*" Then Rows(i).Delete
    End With
Next i
End Sub

 

[NateO]

I'd use Autofilter-> Filter with an Or condition with a Wildcard (begins with) and delete the rows that the Autofilter returns. Data->Filters->Autofilter (from memory - I'm staring at a ribbon).

 

[Isabella]

Try

Sub DL()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 8 Step -1
    With Range("A" & i)
        If .Value Like "ZI*" Or .Value Like "FI*" Then Rows(i).Delete
    End With
Next i
End Sub

Vog i am trying to run this macro from Sheet Tasklist but its for sheet Downloads where the data is, is this correct, cos when i run the macro nothing happens.

With Sheets("Downloads")
LR = .Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 8 Step -1
With .Range("A" & i)
If .Value Like "ZI*" Or .Value Like "FI*" Then .Rows(i).Delete
End With
Next i
End With

 

[Peter Thompson]

Try the following

Sub sortdata()

Dim lastrow As Long
lastrow = Cells(rows.Count, 1).End(xlUp).Row
For i = lastrow To 1 Step -1
l = Left(Cells(i, 1), 2)
If l = "ZI" Or l = "FI" Then
rows(i).Delete
Else
End If
Next i

End Sub

 

[VoG]

Oops! Try

Sub DL()
Dim LR As Long, i As Long
With Sheets("Downloads")
    LR = .Range("A" & Rows.Count).End(xlUp).Row
    For i = LR To 8 Step -1
        With .Range("A" & i)
            If .Value Like "ZI*" Or .Value Like "FI*" Then .EntireRow.Delete
        End With
    Next i
End With
End Sub