Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Trouble Condensing Code
I have the following code that I just know could be condensed, but can't seem to figure it out. Below is some of the code... the weeks g to 12 and the days always stay at 1 thru 5. What it does is put a "1" in the appropriate cell if the check box i true and leaves it blank if it is false. Is there a way to condens this code easily? If not I can live with what I have, but it bugs me CODE: If frmWeeks.chkWk1Day1 = True Then ActiveCell.Offset(0, 5).Value = "1" End If If frmWeeks.chkWk1Day2 = True Then ActiveCell.Offset(0, 6).Value = "1" End If If frmWeeks.chkWk1Day3 = True Then ActiveCell.Offset(0, 7).Value = "1" End If If frmWeeks.chkWk1Day4 = True Then ActiveCell.Offset(0, 8).Value = "1" End If If frmWeeks.chkWk1Day5 = True Then ActiveCell.Offset(0, 9).Value = "1" End If If frmWeeks.chkWk2Day1 = True Then ActiveCell.Offset(0, 10).Value = "1" End If If frmWeeks.chkWk2Day2 = True Then ActiveCell.Offset(0, 11).Value = "1" End If etc. etc. .. -- Ikaabo ----------------------------------------------------------------------- Ikaabod's Profile: http://www.excelforum.com/member.php...fo&userid=3337 View this thread: http://www.excelforum.com/showthread.php?threadid=53199 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Trouble Condensing Code
That code is not too bad but if you really want you could clean it up a tad
something like this... with Activecell If frmWeeks.chkWk1Day1 = True Then .Offset(0, 5).Value = "1" If frmWeeks.chkWk1Day2 = True Then .Offset(0, 6).Value = "1" If frmWeeks.chkWk1Day3 = True Then .Offset(0, 7).Value = "1" '... the rest here... End with That is a little neater and easier to copy and paste... -- HTH... Jim Thomlinson "Ikaabod" wrote: I have the following code that I just know could be condensed, but I can't seem to figure it out. Below is some of the code... the weeks go to 12 and the days always stay at 1 thru 5. What it does is put a "1" in the appropriate cell if the check box is true and leaves it blank if it is false. Is there a way to condense this code easily? If not I can live with what I have, but it bugs me. CODE: If frmWeeks.chkWk1Day1 = True Then ActiveCell.Offset(0, 5).Value = "1" End If If frmWeeks.chkWk1Day2 = True Then ActiveCell.Offset(0, 6).Value = "1" End If If frmWeeks.chkWk1Day3 = True Then ActiveCell.Offset(0, 7).Value = "1" End If If frmWeeks.chkWk1Day4 = True Then ActiveCell.Offset(0, 8).Value = "1" End If If frmWeeks.chkWk1Day5 = True Then ActiveCell.Offset(0, 9).Value = "1" End If If frmWeeks.chkWk2Day1 = True Then ActiveCell.Offset(0, 10).Value = "1" End If If frmWeeks.chkWk2Day2 = True Then ActiveCell.Offset(0, 11).Value = "1" End If etc. etc. ... -- Ikaabod ------------------------------------------------------------------------ Ikaabod's Profile: http://www.excelforum.com/member.php...o&userid=33371 View this thread: http://www.excelforum.com/showthread...hreadid=531992 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Trouble Condensing Code
Are checkboxes on a Userform?
"Ikaabod" wrote: I have the following code that I just know could be condensed, but I can't seem to figure it out. Below is some of the code... the weeks go to 12 and the days always stay at 1 thru 5. What it does is put a "1" in the appropriate cell if the check box is true and leaves it blank if it is false. Is there a way to condense this code easily? If not I can live with what I have, but it bugs me. CODE: If frmWeeks.chkWk1Day1 = True Then ActiveCell.Offset(0, 5).Value = "1" End If If frmWeeks.chkWk1Day2 = True Then ActiveCell.Offset(0, 6).Value = "1" End If If frmWeeks.chkWk1Day3 = True Then ActiveCell.Offset(0, 7).Value = "1" End If If frmWeeks.chkWk1Day4 = True Then ActiveCell.Offset(0, 8).Value = "1" End If If frmWeeks.chkWk1Day5 = True Then ActiveCell.Offset(0, 9).Value = "1" End If If frmWeeks.chkWk2Day1 = True Then ActiveCell.Offset(0, 10).Value = "1" End If If frmWeeks.chkWk2Day2 = True Then ActiveCell.Offset(0, 11).Value = "1" End If etc. etc. ... -- Ikaabod ------------------------------------------------------------------------ Ikaabod's Profile: http://www.excelforum.com/member.php...o&userid=33371 View this thread: http://www.excelforum.com/showthread...hreadid=531992 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Trouble Condensing Code
Yes, they are on a userform. -- Ikaabod ------------------------------------------------------------------------ Ikaabod's Profile: http://www.excelforum.com/member.php...o&userid=33371 View this thread: http://www.excelforum.com/showthread...hreadid=531992 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Condensing VBA code | Excel Discussion (Misc queries) | |||
Condensing Columns | New Users to Excel | |||
Condensing lists | Excel Worksheet Functions | |||
Print dialog code trouble | Excel Programming | |||
1.)Input Boxes 2.) Condensing a Code | Excel Programming |