Código
If Check52.Caption = Check1.Caption Or Check52.Caption = Check2.Caption Or Check52.Caption = Check3.Caption Or Check52.Caption = Check4.Caption Or Check52.Caption = Check5.Caption Or Check52.Caption = Check6.Caption Or Check52.Caption = Check7.Caption Or Check52.Caption = Check8.Caption Or Check52.Caption = Check9.Caption Or Check52.Caption = Check10.Caption Or Check52.Caption = Check11.Caption Or Check52.Caption = Check12.Caption Or Check52.Caption = Check13.Caption Or Check52.Caption = Check14.Caption Or Check52.Caption = Check15.Caption Or Check52.Caption = Check16.Caption Or Check52.Caption = Check17.Caption Or Check52.Caption = Check18.Caption Or Check52.Caption = Check19.Caption Or Check52.Caption = Check20.Caption Or Check52.Caption = Check21.Caption Or Check52.Caption = Check22.Caption Or Check52.Caption = Check23.Caption Or Check52.Caption = Check24.Caption Or Check52.Caption = Check25.Caption Or Check52.Caption = Check26.Caption Or Check52.Caption = Check27.Caption Then msgbox "1" Else msgbox "2" End If
El problema es que solo lo puede hacer hasta el checkbox 27 ya que desde el 28 el programa hace un salto de linea y me corta el código, supongo que hay un limite por linea.
Se que no es la forma mas optima de hacerlo, pero es lo que tenía a la mano.
Habrá alguna forma de hacerlo ya sea con este código o con otro.
Muchas gracias amigos