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 |
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 |
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 |
All times are GMT +1. The time now is 05:25 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com