Hi Team,
Request you to please suggest me how do i get this selection for delete entire row
Firsfindvalue = Application.WorksheetFunction.Match("D*", Range("H2:H" & LastRow), 0) + 1
LastRow = Activesheet.Cells.SpecialCells(xlCellTypeLastCell).Row
Activesheet.Range("A & Firsfindvalue:A" & LastRow).SelectRegards,
Rm
Welcome to the Forum. Please read the Forum Rules to understand how the Forum works and why I have added Code Tags to your post
All VBA code posted in the forum must be wrapped in code tags, which you omitted, including single-line code snippets.Be sure to use them in future posts.
How to use code tags
Just highlight all of the code and press the <> in the post menu above button to add the code tags.
Thanks.
What exactly are you trying to do?
What is the condition for deleting?
Try this, note
1. The data should not have any completely empty rows or columns, that means there it must be bordered by empty rows and columns.
2. The criteria are currently set to be D and DR
Sub DeleteFilteredData()
Dim rDelete As Range
Dim lCalc As Long
Dim sDelete As String
With Application
lCalc = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
On Error GoTo exit_proc
''///Sheet with the data, change the name
With ActiveSheet
If Not .AutoFilterMode Then .Range("A2").AutoFilter
''///Apply the filter, this range of data starts in A1
.Range("A2").CurrentRegion.AutoFilter Field:=8, Field:=8, Criteria1:="=D", _
Operator:=xlOr, Criteria2:="=DR"
With .AutoFilter.Range
' On Error Resume Next
Set rDelete = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
.SpecialCells(xlCellTypeVisible)
If Not rDelete Is Nothing Then rDelete.EntireRow.Delete
End With
''///Remove the AutoFilter
.AutoFilterMode = False
End With
exit_proc:
.ScreenUpdating = True
.Calculation = lCalc
End With
End SubThat's the fastest way to delete data even large amounts. How many rows do you have, your number in the post must be a typo.
Don’t have an account yet? Register yourself now and be a part of our community!