Excel 2007 : Is there an easier way to write the attached code:

**Spagbog** · 01-15-2012, 07:53 AM

Hi,
I'm currently putting together a a user form that sets the toggle buttons within the form as true depending on what cell has called it.The issue I have is that there are 256 combinations, is there an easier way to write the code for this other than what I have, example below (16 Days by 16 Types).Writing it the way I have started would mean 256 'End If' statements at the end of the coding.
Any help welcome

HTML Code:

Thanks in Advance
Spagbog

**arlu1201** · 01-15-2012, 10:45 AM

Maybe you could throw some more light on what you are trying to accomplish through these IF loops. You could explain what you are trying to compare / validate using the code, then we can help you much faster.

Also, it will be good if you attach your sample workbook.

**OnErrorGoto0** · 01-15-2012, 10:50 AM

If they all follow that naming convention then you can use:

Me.Controls(Replace(Replace(Activecell.Value, "Activation", ""), " ", "")).Value = True
Me.Controls(Replace(Activecell.Offset(0, 3).Value, " ", "")).Value = True

**Spagbog** · 01-19-2012, 12:08 PM

Thanks for looking Guys,the Me.solution works fine for the lines with Activation, there are also the same number of lines with Conjugation can this code be modified to suit both?
Sorry for not getting back sooner
Thanks in advance

**OnErrorGoto0** · 01-20-2012, 04:50 AM

It sounds as though you can simply repeat the lines

Me.Controls(Replace(Replace(Activecell.Value, "Activation", ""), " ", "")).Value = True
Me.Controls(Replace(Activecell.Offset(0, 3).Value, " ", "")).Value = True
Me.Controls(Replace(Replace(Activecell.Value, "Conjugation", ""), " ", "")).Value = True
Me.Controls(Replace(Activecell.Offset(0, 3).Value, " ", "")).Value = True