About Us

DAVEYB

Wow !

"Don Guillett" wrote:

Try this idea
Private Sub ComboBox1_Change()
Columns("A:IV").Hidden = False
If Application.Trim(ComboBox1) = "JANUARY" Then
'MsgBox "hi"
Range("O1:X1,ap1:ax1,z1:aa1,az1:ba1").EntireColumn .Hidden = True
For i = 15 To 18
Range("AB" & i).FormulaR1C1 = "=SUM(RC[-23]:RC[-14])"
Next i
End If
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"DAVEYB" wrote in message
...
I am new to coding and am getting the Compile error message - procedure
too
large.

Can anyone advise me how to consense the following code based on a combi
box
allowing the user to select a month ?
It is 57 pages long but an extract appears below.

Private Sub ComboBox1_Change()
Columns("A:IV").EntireColumn.Hidden = False
If ComboBox1 = "JANUARY" Then
Columns("O:X").EntireColumn.Hidden = True
Columns("AP:AX").EntireColumn.Hidden = True
Columns("Z:AA").EntireColumn.Hidden = True
Columns("AZ:BA").EntireColumn.Hidden = True
Range("AB15").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-23]:RC[-14])"
Range("AB16").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-23]:RC[-14])"
Range("AB17").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-23]:RC[-14])"
Range("AB18").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-23]:RC[-14])"

Many thanks
Dave

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Compile Error: Procedure too large	Corey ....[_2_]	Excel Programming	1	July 25th 08 09:53 AM
VBA Compile error: Procedure too large?	Jerry Dyben	Excel Discussion (Misc queries)	1	October 31st 05 10:15 PM
Compile error: Procedure too large	BHARATH RAJAMANI	Excel Programming	2	August 24th 05 10:24 PM
Compile error: Procedure too large	Susan Hayes	Excel Programming	2	May 20th 05 05:01 PM
Compile Error: Procedure too large	mate	Excel Programming	2	May 18th 04 04:30 PM

Menu

About Us