Unhiding Columns only with VALUE

[the blue fox] · Dec 18th 2005

Morning All ..hoping I could get some help.

I have columns AJ-BG opening for a reassessment .. but there are 3 types of re-assessments. AJ:AO .. AR:AX .. BA:BG. I only want certain columns to UNHIDE if there is value in AJ, AR or BA.

This is what I was given, but it doesn't work. Can anyone help out?

[vba]
Sub reassess_open()
'
' reassess_open Macro
' Macro recorded 16/12/2005 by Tayler Reid
'
If Range("AJ5:AJ105").Value Then
Range("AJ:AO").Columns.Hidden = False
If Range("AR5:AR105").Value Then
Range("AR:AX").Columns.Hidden = False
If Range("BA5:BA105").Value Then
Range("BA:BG").Columns.Hidden = False
Cells(ActiveCell.Row, 35).Select
End If
End If
End If
End Sub[/vba]

Wigi · Dec 19th 2005

Re: Unhiding Columns only with VALUE

Put something like this:

Code

Sub reassess_open()
 '
     ' reassess_open Macro
     ' Macro recorded 16/12/2005 by Tayler Reid
 '
    MsgBox "works"
    With ActiveSheet
    If WorksheetFunction.CountA(.Range("AJ5:AJ105")) <> 0 Then
        .Range("AJ:AO").Columns.Hidden = False
        If WorksheetFunction.CountA(.Range("AR5:AR105")) <> 0 Then
            .Range("AR:AX").Columns.Hidden = False
            If WorksheetFunction.CountA(.Range("BA5:BA105")) <> 0 Then
                .Range("BA:BG").Columns.Hidden = False
                .Cells(ActiveCell.Row, 35).Select
            End If
        End If
    End If
    End With
End Sub

Display More

in a module in VBA. Let us know whether that's what you need or not.

Grtz

Wigi

[the blue fox] · Dec 19th 2005

Re: Unhiding Columns only with VALUE

Thankyou .. exactly what I needed.

Tayler

Unhiding Columns only with VALUE

Participate now!

Share