Having problems clearing a row.

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Dear folks
I found some code from this site, regarding clearing out empty spaces and hiding the row. However, if the row contains formulas, the row is not hidden. Is there a better code some one might know that tackles this issue or make a modification to this code, the code I used is below

Sub mergeall(

Dim r As Lon
Application.ScreenUpdating = Fals
With Worksheets("Sheet2"
For r = .UsedRange.Rows(.UsedRange.Rows.Count).Row To 128 Step -
If Application.CountA(Range(Cells(r, "D"), Cells(r, "F"))) = 0 The
.Rows(r).Hidden = Tru
End I
Nex
End Wit


Application.ScreenUpdating = Tru
End Su

Any pointers will be appreciated

Cheers

Ranjan
 
Ranjan,

If you have formulas that return "" values, then you could modify your code
by changing

If Application.CountA(Range(Cells(r, "D"), Cells(r, "F"))) = 0 Then

to

If (Cells(r, "D").Value = "") And (Cells(r,"E").Value = "") And (Cells(r,
"F").Value) = "" Then

HTH,
Bernie
MS Excel MVP


Ranjan as usual said:
Dear folks,
I found some code from this site, regarding clearing out empty spaces and
Click to expand...
hiding the row. However, if the row contains formulas, the row is not
hidden. Is there a better code some one might know that tackles this issue
or make a modification to this code, the code I used is below.
 
Back
Top