Log In
Register
Home
December 4, 2018
Offline
Hi,
Please assist with a macro that can help with deleting entire rows for cells with a value amount of exactly 0 in column "A"
Rgds.
See Answer
VIP
Trusted Members
June 25, 2016
Offline
Hi Themba
Try this
Sub DelRows()
Dim LastRow As Long
Dim i As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For i = LastRow To 1 Step -1
If Cells(i, 1) = 0 Then
Rows(i).Delete Shift:=xlUp
End If
Next
Application.ScreenUpdating = True
End Sub
Sunny
Answers Post
December 5, 2016
Offline
How to modified teh VBA if this cell range contains multiple criteria , say " ABC co" , "Dept", "Allocation Code" , "Currency","Country"
and to be deleted by macro
VIP
Trusted Members
June 25, 2016
Offline
Are you referring to column A with multiple criteria or multiple column with criteria?
Either way you can use OR to check multiple criteria.
Example:
If Cells(i,1)="X" or Cells(i,2)="Y" OR Cells(i,3)="Z" Then
to delete the row if the any of the cells contains X, Y or Z etc
If all the criteria is in a single column, then you should match cell by cell against a list of criteria instead of using multiple ORs
You can post your file with enough examples for us to understand better what you wanted.
December 5, 2016
Offline
Tks Sunny , it work perfectly!
December 5, 2016
Offline
Sub DelRows()
Dim LastRow As Long
Dim i As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For i = LastRow To 1 Step -1
If Cells(i, 1) = any text { ie string value] or Cels(i,1) = blank row or Then
Rows(i).Delete Shift:=xlUp
End If
Next
Application.ScreenUpdating = True
End Sub
How to re-write the macro if Column A data contact any string value or blank row, then delete , leaving only date value in the column A data
VIP
Trusted Members
June 25, 2016
Offline
Try
If Not IsDate(Cells(i,1)) Then
December 5, 2016
Offline
Tks will try
1 Guest(s)
