** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - Check dependiendo de dato de celda
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoCheck dependiendo de dato de celda

 Responder Responder
Autor
Mensaje
RobertoCarlos Ver desplegable
Habitual
Habitual


Unido: 12/Marzo/2013
Localización: Bolivia
Estado: Sin conexión
Puntos: 168
Enlace directo a este mensaje Tema: Check dependiendo de dato de celda
    Enviado: 12/Junio/2022 a las 22:27
Buenas tardes colaboradores, quiero usar un CheckBox de VBA ya saben controles de desarrollador de VBA para excel
que es lo que quiero por ejemplo quiero que si en una celda tengo la palabra Enero, que el Checkbox que tengo en otra celda se coloque check o value = True pero no consigo, les muestro lo que he hecho.
Sub Casilla1_Haga_clic_en()
If Range("F2").Value = "Lunes" Then CheckBoxLunes. = True
End Sub

Tal vez me falta algo, o es que solamente se puede hacer a la inversa, me refiero que cuando el Checkbox.Value = True en una celda se ponga algo?

agradezco toda la ayuda que me puedan dar.

Gracias

Roberto
Roberto
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5970
Enlace directo a este mensaje Enviado: 13/Junio/2022 a las 10:00


1.- Los CheckBox VBA (Casillas de verificación VBA), NO se colocan en celdas. En celdas se colocan Casillas (control de formulario) o Casillas (control ActiveX) de la cinta de opciones.


2.- El código If Range("F2").Value = "Lunes" Then CheckBoxLunes. = True  nunca tendrá efecto. No tiene ninguna relación ese código con que en [F2] tengas «Enero».



Saludos desde Tenerife.
Arriba
RobertoCarlos Ver desplegable
Habitual
Habitual


Unido: 12/Marzo/2013
Localización: Bolivia
Estado: Sin conexión
Puntos: 168
Enlace directo a este mensaje Enviado: 15/Junio/2022 a las 22:19
Acabo de Darme cuenta.

Muchas gracias
Roberto
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5970
Enlace directo a este mensaje Enviado: 15/Junio/2022 a las 23:21

► Siendo así y suponiendo las casillas, vinculadas con misma fila y columna A:


VERDADERO
Casilla 1
(control de formulario) Lunes
FALSO
(control ActiveX) Martes


En un módulo ordinario (para: Casilla control de formulario):

Sub Casilla2()

  If [A2].Value = True Then [F2].Value = "Lunes" Else [F2].ClearContents

End Sub


En el módulo de la hoja (para: Casilla Control ActiveX y evento Change):

Private Sub CheckBox1_Click()

  If [A3].Value = True Then [F3].Value = "lunes" Else [F3].ClearContents

End Sub


Private Sub Worksheet_Change(ByVal Target As Range)

  Select Case Target.Column

    Case 6

'con «LCase» es igual: lunes, LUNES o Lunes.

      Target.Offset(0, -5).Value = LCase(Target) = "lunes"

  End Select

End Sub





Saludos desde Tenerife.
Arriba
RobertoCarlos Ver desplegable
Habitual
Habitual


Unido: 12/Marzo/2013
Localización: Bolivia
Estado: Sin conexión
Puntos: 168
Enlace directo a este mensaje Enviado: 17/Junio/2022 a las 16:54
Muy bien muchisimas gracias.
gracias por el tiempo, y las ideas


Cierro el hilo por favor 
Roberto
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable