Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
Buenos días,
Amigos del foro quisiera solicitarles una pequeña ayuda, estoy intentado crear 3 condiciones en un botón de un formulario con el cual pretendo ó busco:
1. No se permita registrar en vacío un textbox.
2. Se evalue el formato si el valor ingresado en el textbox1 se encuentra en formato fecha.
3. Si el valor ingresado en textbox1 es mayor a la fecha determinada no permita el registro.
4. Se¿i el valor del texbox1 es menor a la fecha determinada cargar el valor en la celda indicada.
El formulario cuenta con 3 textboxs y 3 botones para ejecutar las 4 acciones (mencionadas arriba), agradezco la ayuda y/o correcciones que me puedan brindar.
Dim Conttrol As Control For Each Conttrol In Controls If TypeOf Conttrol Is TextBox Then If Conttrol.Text = "" Then MsgBox "El valor no puede estar vacio", vbCritical, "Smart Intelligence Tools" Exit Sub End If End If TextBox2.SetFocus Next If TextBox2.Value <> "20221108-99-LA-JB-30401" Then MsgBox "El valor de la llave Keyserial no es válido ", vbCritical, "Smart Intelligence Tools" End If Exit Sub If TextBox2.Value = "20221108-99-LA-JB-30401" Then End If Range("B1").Value = TextBox2.Text
Saludos
JB
userform show según valor de una celda4.xlsm