VBA : Si CheckBox.Value = True O CheckBox.Value = True Entonces ...
Resuelto
fannoche35
Mensajes publicados
12
Estado
Miembro
-
fannoche35 Mensajes publicados 12 Estado Miembro -
fannoche35 Mensajes publicados 12 Estado Miembro -
Hola,
Estoy buscando crear una macro que permita, si se marca alguna de las 3 casillas de verificación, mostrar las filas 96 a 167.
Aquí está el código ingresado, pero tengo un mensaje de error que dice que se requiere un objeto.
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Or CheckBox3.Value = True Or CheckBox21.Value = True Then
Rows("96:167").EntireRow.Hidden = False
Else
Rows("96:167").EntireRow.Hidden = True
End If
End Sub
Private Sub CheckBox3_Click()
If CheckBox1.Value = True Or CheckBox3.Value = True Or CheckBox21.Value = True Then
Rows("96:167").EntireRow.Hidden = False
Else
Rows("96:167").EntireRow.Hidden = True
End If
End Sub
Private Sub CheckBox21_Click()
If CheckBox1.Value = True Or CheckBox3.Value = True Or CheckBox21.Value = True Then
Rows("96:167").EntireRow.Hidden = False
Else
Rows("96:167").EntireRow.Hidden = True
End If
End Sub
¡Gracias de antemano por su ayuda!
Estoy buscando crear una macro que permita, si se marca alguna de las 3 casillas de verificación, mostrar las filas 96 a 167.
Aquí está el código ingresado, pero tengo un mensaje de error que dice que se requiere un objeto.
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Or CheckBox3.Value = True Or CheckBox21.Value = True Then
Rows("96:167").EntireRow.Hidden = False
Else
Rows("96:167").EntireRow.Hidden = True
End If
End Sub
Private Sub CheckBox3_Click()
If CheckBox1.Value = True Or CheckBox3.Value = True Or CheckBox21.Value = True Then
Rows("96:167").EntireRow.Hidden = False
Else
Rows("96:167").EntireRow.Hidden = True
End If
End Sub
Private Sub CheckBox21_Click()
If CheckBox1.Value = True Or CheckBox3.Value = True Or CheckBox21.Value = True Then
Rows("96:167").EntireRow.Hidden = False
Else
Rows("96:167").EntireRow.Hidden = True
End If
End Sub
¡Gracias de antemano por su ayuda!
2 respuestas
-
Intenta esto
Los ordenamientos checkboxXX_Click llaman a la misma procedimiento OK
Option Explicit Sub ok() If CheckBox1 Then Rows(76).Hidden = False Else Rows(76).Hidden = True End If If CheckBox3 Then Rows(78).Hidden = False Else Rows(78).Hidden = True End If If CheckBox21 Then Rows(88).Hidden = False Else Rows(88).Hidden = True End If If (CheckBox1 Or CheckBox3 Or CheckBox21) = True Then Rows("96:167").Hidden = False Else Rows("96:167").Hidden = True End If End Sub Private Sub CheckBox1_Click() Call ok End Sub Private Sub CheckBox3_Click() Call ok End Sub Private Sub CheckBox21_Click() Call ok End Sub
Saludos