Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Is there away to shorten
Hello from Steved
Is their away please to shorten the below part off the code thankyou. ("K1:L1,N1:O1,Q1:R1,T1:U1,W1:X1,Z1:AA1,AC1:AD1,AF1 :AG1,AI1:AJ1,AL1:AM1,AO1:AP1") Private Sub CheckBox1_Click() Dim r As Range Set r = Range("K1:L1,N1:O1,Q1:R1,T1:U1,W1:X1,Z1:AA1,AC1:AD 1,AF1:AG1,AI1:AJ1,AL1:AM1,AO1:AP1") r.EntireColumn.Hidden = Not r.EntireColumn.Hidden End Sub |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Is there away to shorten
This builds the same range. It will take a tiny bit longer to execute, but
who wants to type in all those cell pairs?? Sub SteveD() Set r = Range("K1:L1") For i = 14 To 41 Step 3 Set r = Union(r, Range(Cells(1, i), Cells(1, i + 1))) Next End Sub -- Gary''s Student - gsnu200779 "Steved" wrote: Hello from Steved Is their away please to shorten the below part off the code thankyou. ("K1:L1,N1:O1,Q1:R1,T1:U1,W1:X1,Z1:AA1,AC1:AD1,AF1 :AG1,AI1:AJ1,AL1:AM1,AO1:AP1") Private Sub CheckBox1_Click() Dim r As Range Set r = Range("K1:L1,N1:O1,Q1:R1,T1:U1,W1:X1,Z1:AA1,AC1:AD 1,AF1:AG1,AI1:AJ1,AL1:AM1,AO1:AP1") r.EntireColumn.Hidden = Not r.EntireColumn.Hidden End Sub |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Is there away to shorten
Thankyou.
"Gary''s Student" wrote: This builds the same range. It will take a tiny bit longer to execute, but who wants to type in all those cell pairs?? Sub SteveD() Set r = Range("K1:L1") For i = 14 To 41 Step 3 Set r = Union(r, Range(Cells(1, i), Cells(1, i + 1))) Next End Sub -- Gary''s Student - gsnu200779 "Steved" wrote: Hello from Steved Is their away please to shorten the below part off the code thankyou. ("K1:L1,N1:O1,Q1:R1,T1:U1,W1:X1,Z1:AA1,AC1:AD1,AF1 :AG1,AI1:AJ1,AL1:AM1,AO1:AP1") Private Sub CheckBox1_Click() Dim r As Range Set r = Range("K1:L1,N1:O1,Q1:R1,T1:U1,W1:X1,Z1:AA1,AC1:AD 1,AF1:AG1,AI1:AJ1,AL1:AM1,AO1:AP1") r.EntireColumn.Hidden = Not r.EntireColumn.Hidden End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can I shorten this any? | Excel Worksheet Functions | |||
Shorten a formula | Excel Discussion (Misc queries) | |||
Shorten Formula | Excel Worksheet Functions | |||
Any way to shorten this up? | Excel Worksheet Functions | |||
Shorten A Name | Excel Discussion (Misc queries) |