Impedir entrada de fecha si es menor a la del sistema

[Marcos14]

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

[Antoni]

Sube un archivo Excel.

Prueba con Hoy = Date

[Marcos14]

Hace 6 horas, Antoni dijo:

Sube un archivo Excel.

Prueba con Hoy = Date

Hola @Antoni se me a ocurrido hacer eso que ves en la macro mirando por internet y probando varias cosas que no me funcionaban, pero si le quito el segundo msgbox de la variable sig pues no me funciona.

espero que ahora lo puedas ver mas claro y me ayudes a quitar ese segundo msgbox de NO

citas.xlsm

[Antoni]

Revisa el adjunto.

citas.xlsm

[Marcos14]

Hace 6 minutos , Antoni dijo:

Revisa el adjunto.

citas.xlsm 37.47 kB · 0 descargas

@Antoni esta genial muchisimas gracias te lo agradezco mucho.

Por mi tema cerrado

[Marcos14]

Hola @Antoni seria posible remarcar la fecha del día en que se está?

Gracias de ante mano