Deleting Rows Based on Column Critieria
On Sep 12, 11:08 am, blackmanofsteel40
wrote:
Basically, I'm trying to delete the entire row in my worksheet if
Columns F-P are all blank. I have this macro written so far, but I'm
can't seem to decipher what I'm missing to have it work. Thanks in
advance for helping with my novice programming.
Sub Gift()
With .Cells(Lrow, "F")
If Application.CountA(.Range(.Cells(Lrow,
"F"), .Cells(Lrow, "P"))) = 0 Then .Rows(Lrow).Delete
End With
End Sub
Sorry is the full code that I'm having problems with:
Sub Loop_Example()
Dim Firstrow As Long
Dim Lastrow As Long
Dim Lrow As Long
Dim CalcMode As Long
Dim ViewMode As Long
With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
Firstrow = ActiveSheet.UsedRange.Cells(1).Row
Lastrow =
ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.R ows.Count).Row
For Lrow = Lastrow To Firstrow Step -1
If Application.CountA(.Range(.Cells(Lrow, "F"), .Cells(Lrow,
"P"))) = 0 Then .Rows(Lrow).Delete
Next Lrow
ActiveWindow.View = ViewMode
With Application
.ScreenUpdating = True
.Calculation = CalcMode
End With
End Sub
|