Hiding rows with no content to right of Column B

[Aidan]

Can someone provide me with code that hides any row from Row 11 to Row 60 if
there is no content in the row to the right of Column B for the row in
2question.


Thanks in advance,


Aidan.

 

[Mike H]

Hi,

Paste this in a standard module and it works on the active sheet

Sub Marine()
Dim P As Long
P = Rows(1).Columns.Count
Dim copyrange As Range
For x = 11 To 60
If WorksheetFunction.CountA(Range(Cells(x, 3), Cells(x, P))) = 0 Then
If copyrange Is Nothing Then
Set copyrange = Rows(x).EntireRow
Else
Set copyrange = Union(copyrange, Rows(x).EntireRow)
End If
End If
Next
If Not copyrange Is Nothing Then
copyrange.EntireRow.Hidden = True
End If
End Sub

Mike

 

[Don Guillett]

Option Explicit
Sub HideRowsifLastColisB()
Dim i As Long
For i = Cells(Rows.Count, 1). _
End(xlUp).Row To 1 Step -1
If Cells(i, Columns.Count).End(xlToLeft). _
Column = 2 Then Rows(i).Hidden = True
Next i
End Sub

 

[Aidan]

Thanks Mike, I will give it a go.

Hi,

Paste this in a standard module and it works on the active sheet

Sub Marine()
Dim P As Long
P = Rows(1).Columns.Count
Dim copyrange As Range
For x = 11 To 60
If WorksheetFunction.CountA(Range(Cells(x, 3), Cells(x, P))) = 0 Then
If copyrange Is Nothing Then
Set copyrange = Rows(x).EntireRow
Else
Set copyrange = Union(copyrange, Rows(x).EntireRow)
End If
End If
Next
If Not copyrange Is Nothing Then
copyrange.EntireRow.Hidden = True
End If
End Sub

Mike