Formulario que no deje poner fechas anteriores a hoy

[Gemacn]

Buenos días,

Soy muy nueva en el mundo de la programación VBA, y necesitaría ayuda en una macro que estoy haciendo, los datos el usuario los introducirá a traves de un formulario, la cuestión es que quiero que no deje poner introducir fechas anteriores al día de hoy, estoy probando con el siguiente código

If Cells(ultimafila + 1, 13) <= Date Then 'No se puede poner fechas anteriores a hoy
  MsgBox "La fecha es anterior a hoy"
  
  Exit Sub

Pero me sigue añadiendo la información.

¿Podéis indicarme cual es el error?Gracias

[Antoni]

Sube tu archivo.

[Gemacn]

Este es el fichero. Gracias

PROYECTO suministro cobros_plazos.xlsm

[Antoni]

Sustituye tu procedimiento por este:

Private Sub AÑADIR_click()

Dim titular As String 'variable para almacenar valores del cliente
Dim factura As String 'variable para almacenar facturas o plazos
Dim importe As Double 'variable para almacenar importe
Dim fecha As Date 'variable para almacenar fecha vencimiento
Dim compensacion As String
Dim ultimafila As Double 'vaariable para almacenar la ultima fila

titular = txttitular.Value 'pasamos el formulario a la variable
factura = txtfactura.Value 'pasamos el formulario a la variable
importe = txtimporte.Value 'pasamos el formulario a la variable
fecha = txtfecha.Value 'pasamos el formulario a la variable

If fecha < Date Then
   MsgBox "La fecha es anterior a hoy", vbCritical
   Exit Sub
End If

ultimafila = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
Cells(ultimafila + 1, 3) = titular
Cells(ultimafila + 1, 9) = factura
Cells(ultimafila + 1, 10) = importe
Cells(ultimafila + 1, 13) = fecha

If CheckBox1 = True Then
   Hoja1.Cells(ultimafila + 1, 14) = "Compensación"
Else
  Hoja1.Cells(ultimafila, 14) = ""
End If
  
MsgBox "Recuerda marcar como pagado en el Excel SUMINISTROS COBROS_PLAZOS", vbCritical

End Sub

 

[Gemacn]

Muchas gracias! funciona perfectamente.