Actuarial Outpost
 
Go Back   Actuarial Outpost > Actuarial Discussion Forum > Software & Technology
FlashChat Actuarial Discussion Preliminary Exams CAS/SOA Exams Cyberchat Around the World Suggestions


Fill in a brief DW Simpson Registration Form
to be contacted when new jobs meet your criteria.


Reply
 
Thread Tools Search this Thread Display Modes
  #11  
Old 09-11-2018, 05:55 PM
DeepPurple's Avatar
DeepPurple DeepPurple is offline
Member
 
Join Date: Jun 2004
Posts: 4,312
Default

Sub RegroupNHide()
Ungroup:
'Ungroup any columns
On Error GoTo group ' if no grouped cols, don't error out; just group and hide



Columns("A:AAA").Select 'Assume colums used will never exceed col ZZ
Selection.EntireColumn.Hidden = False ' Hidden columns must be unhidden to ungroup
Selection.Columns.Ungroup ' Hidden columns must be unhidden to ungroup

group: On Error GoTo out

Dim colcount As Integer: colcount = 0

colcount = Application.WorksheetFunction.CountA(Range("C7:AAA 7")) ' first row of data is row 7
Range(Columns(3), Columns(colcount + 1)).Select
Selection.Columns.group
Selection.EntireColumn.Hidden = True

out: End Sub
__________________
Come on. Let's go space truckin'. Come on!
Reply With Quote
Reply

Tags
excel, vba

Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off


All times are GMT -4. The time now is 06:14 PM.


Powered by vBulletin®
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
*PLEASE NOTE: Posts are not checked for accuracy, and do not
represent the views of the Actuarial Outpost or its sponsors.
Page generated in 0.10561 seconds with 11 queries