Hi beautiful people,
Following code deletes rows including Apple in the A column in VB6.
Code:
Sub Macro1()
ActiveSheet.AutoFilterMode = False
ActiveSheet.Cells.AutoFilter Field:=1, Criteria1:="=Apple"
Application.DisplayAlerts = False
On Error Resume Next
ActiveSheet.AutoFilter.Range.Offset(1, 0).Resize(ActiveSheet.AutoFilter.Range.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete
On Error GoTo 0
ActiveSheet.AutoFilterMode = False
Application.DisplayAlerts = True
End Sub
I want same thing but in the vb.net.
Any support will be appreciated...