Poner una condición entre dos textbox de fechas para en un tercer textbox ver el resultado

Hola, tengo un useform con tres textBox....

TextFECHA, TextCADUCIDAD y TextRESULTADO

quisiera hacer una condición que si TextFECHA es menor de dos meses a TextCADUCIDAD que en TextRESULTADO me ponga "ESTE PRODUCTO ESTA PRÓXIMO A CADUCAR" y si TextFECHA es mayor que TextCADUCIDAD, en TextRESULTADO me ponga "PRODUCTO CADUCADO" y si no se cumplen ninguna de estas condiciones que no me aparezca nada.

Gracias.

Respuesta
1

Te mando mi solución, esta macro la pondríamos al pulsar un botón de tu userform

Private Sub CommandButton1_Click()
'por luismondelo
cad = CDate(Textcaducidad)
fecha = CDate(Textfecha)
tiempo = cad - fecha
If cad > fecha And tiempo < 60 Then
Textresultado = "próximo a caducar"
ElseIf fecha > cad Then
Textresultado = "producto caducado"
End If
End Sub

no olvides finalizar la consulta

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Fecha y Hora real en useForm VBA Excel

A) Experto, necesito de su gran ayuda, necesito mostrar en un label la fecha y la hora real en un userForm, cabe indicar asimismo necesito que esa misma fecha se registre al presionar un un Botón de Comando en este caso su nombre seria cmdGrabar....
2 respuestas

Tiempo en useForm VBA Excel

Necesito de su ayuda requiero mostrar el tiempo real en un UseForm, tengo ya el código para que lo ponga sobre la hoja actual, sin embargo necesito que aparezca en un useForm, de antemano agradeciendo la atención a la presente. El código que tengo es...
2 respuestas

Pasar varios datos de textbox a una celda

Necesito pasar datos de un combobox a un celda. Tengo un combo que al presionar aceptar me pase su contenido (Ej :"casa") a una celda "A1" luego cambio el contenido (Ej"Roja") del combo, vuelvo a presionar aceptar y necesito que agregue el contenido...
1 respuesta

Textbox con fecha y hora automática (No formato, fecha), al iniciar un useform.

Espero y me puedan ayudar con esta duda: Quiero que al iniciar un userform, en un textbox aparezca la la hora actual (Formato: hh:mm) y en otro textbox la fecha, que al poder ingresar los datos ya se queden registrados y no se puedan modificarse.
1 respuesta

UserForm Modal

Que tengo, si pudieras ayudarme te estaría muy agradecida: Tengo un excel con un botón asociado a una macro que comprueba el contenido de ciertas celdas If Cells(131, 3) = 1 Then UserForm1.Show Exit Sub End If Si el contenido no es el deseado la...
1 respuesta

Usar un userform con monthview que se pueda llama desde diferentes userform e inserte la fecha en un textbox

Tengo una pregunta y quisiera saber si es posible. He creado un userform con un calendario (Monthview) y ese userfor lo llamo desde diferentes userform. La manera de llamar ese calendario es con el evento dolbe clic de un textbox. Aquí es donde viene...
1 respuesta

Como poner determinado formato de fecha a un textbox

Tengo una tabla en excel 2010 e ingreso los datos a través de un formulario, lo que necesito hacer es que en los textbox donde ingreso fechas el formato sea 10-oct-14 y que este mismo formato se quede registrado en mi tabla de excel.
3 respuestas

Calendario en un textbox

Tengo un formulario para llenar datos lo que quiero es que al situar el cursor en el textbox1 despliegue un calendario y pude elegir la fecha correcta y visualizarlo en el textbox1, y también al darle click sobre el comandbuton1 despliegue el...
1 respuesta

Rótulo de aviso

Aquí estamos de nuevo. La aplicación es para entrada de artículos con su fecha de entrada y su fecha de caducidad ... Etc. Ésta última, como es lógico debería ser casi siempre posterior a la fecha del día. Entonces al movernos por la Base de Datos,...
1 respuesta

Filtrar datos por medio de textbox en formulario

Necesito filtrar datos de acuerdo a 2 textbox que tienen fecha de inicio y fecha final, y me los copie a una hoja nueva pero solo con los datos que yo quiero que filtre.
1 respuesta