Comparar fechas de un serform con una de una celda
Saluudos: Por favor necesito de su ayuda.. Actualmente tengo un userform en donde en un texbox ingreso fecha y tres texbox más en donde serán llenados por números automáticamente dependiendo del resultado de la comparación de las fechas. Lo que necesito es que esa fecha que ingrese desde el userform sea comparada con una fecha que esta situada en una celda. Por ejemplo si esa fecha que ingreso en el userform es menor o igual a la que esta en la celda entonces los tres texbox serán llenados automáticamente por los números 22,12,8. Por favor necesito su ayuda. Muchas gracias de ante mano. Dios bendice todo lo que tienen.
1 respuesta
Respuesta de Elsa Matilde
1
Esta es la rutina para el primer textbox, el que recibe la fecha.
Ajustá los nombres de los controles y la celda, pruébalo y si todo queda resuelto no olvides finalizar la consulta
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If CDate(TextBox1) = Sheets("2011").Range("A10") Then
TextBox2 = 22
TextBox3 = 20
TextBox4 = 10
Else
TextBox2 = "": TextBox3 = "": TextBox4 = "" 'se limpian los controles de valores anteriores
End If
End Sub
Ajustá los nombres de los controles y la celda, pruébalo y si todo queda resuelto no olvides finalizar la consulta
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If CDate(TextBox1) = Sheets("2011").Range("A10") Then
TextBox2 = 22
TextBox3 = 20
TextBox4 = 10
Else
TextBox2 = "": TextBox3 = "": TextBox4 = "" 'se limpian los controles de valores anteriores
End If
End Sub
