Impedir entrada de fecha si es menor a la del sistema
publicado
Hola a todos, tengo esta macro la cual me dice si la fecha que introduzco es menor a la del sistema, lo que deseo es que no me me escriba esa fecha si es menor a la del sistema.
Espero haberme explicado y espero vuestra ayuda
Sub CheckDate()
Dim Mes As String, Año As String, FechAs As Date, Hoy As Date, Sig As Long
Hoy = Format(Now, "dd/mmmm/yyyy")
Mes = ComboBox1
Año = ComboBox2
FechAs = Dia & "/" & Mes & "/" & Año
If FechAs < Hoy Then
MsgBox "La fecha asignada es menor a la de hoy"
Sig = 1
Else
MsgBox "Fecha asignada correctamente"
End If
End Sub
Hola a todos, tengo esta macro la cual me dice si la fecha que introduzco es menor a la del sistema, lo que deseo es que no me me escriba esa fecha si es menor a la del sistema.
Espero haberme explicado y espero vuestra ayuda
Sub CheckDate()
Dim Mes As String, Año As String, FechAs As Date, Hoy As Date, Sig As Long
Hoy = Format(Now, "dd/mmmm/yyyy")
Mes = ComboBox1
Año = ComboBox2
FechAs = Dia & "/" & Mes & "/" & Año
If FechAs < Hoy Then
MsgBox "La fecha asignada es menor a la de hoy"
Sig = 1
Else
MsgBox "Fecha asignada correctamente"
End If
End Sub
fecha.txt