Prev: Odd VLOOKUP Error
Next: Show / Hide items in Pivot Table as required
From: ker_01 on 27 May 2010 16:19
From the macro recorder ;-)

Columns("C:C").Select
Selection.EntireColumn.Hidden = True

HTH,
Keith

"joemeshuggah" wrote:

> Thanks!
>
> Range(ColRef & "1:" & ColRef & 65536).Hidden = True
> doesnt seem to work...it works when I change it to
> Range(ColRef & "1:" & ColRef & 65536).ColumnWidth = 0
>
> is this the equivalent of hiding (e.g. will not impact original column
> widths when unhidden?
>
> "ker_01" wrote:
>
> > if(iserror(application.match(Cells(4, i).Value,HideArray,False))) then
> > Range(ColRef & "1:" & ColRef & 65536).Hidden = True
> > endif
> >
> > (aircode)
> >
> > "joemeshuggah" wrote:
> >
> > > is there a way to loop through cells and hide them if the cell value is not
> > > in an array?
> > >
> > > eg.
> > >
> > > HideArray = Array("Test","Test2")
> > >
> > > For i = LC To 4 Step -1
> > > Cells(4, i).Select
> > > ColRef = Left(ActiveCell.Address(0, 0), (ActiveCell.Column < 27) + 2)
> > > If Cells(4, i).Value <> (HideArray) Then
> > > Range(ColRef & "1:" & ColRef & 65536).Hidden = True
> > > End If
> > >
> > > i get an error message on the line of code " If Cells(4, i).Value <>
> > > (HideArray) Then"
From: ker_01 on 27 May 2010 17:02
if(iserror(application.match(Cells(4, i).Value,HideArray,False))) then
Range(ColRef & "1:" & ColRef & 65536).Hidden = True
endif

(aircode)

"joemeshuggah" wrote:

> is there a way to loop through cells and hide them if the cell value is not
> in an array?
>
> eg.
>
> HideArray = Array("Test","Test2")
>
> For i = LC To 4 Step -1
> Cells(4, i).Select
> ColRef = Left(ActiveCell.Address(0, 0), (ActiveCell.Column < 27) + 2)
> If Cells(4, i).Value <> (HideArray) Then
> Range(ColRef & "1:" & ColRef & 65536).Hidden = True
> End If
>
> i get an error message on the line of code " If Cells(4, i).Value <>
> (HideArray) Then"
 | 
Pages: 1
Prev: Odd VLOOKUP Error
Next: Show / Hide items in Pivot Table as required