View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
blackmanofsteel40 blackmanofsteel40 is offline
external usenet poster
 
Posts: 3
Default 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