Colocar fecha de vencimiento automatica en días habiles en macro

Cerrado
pitufamane Message postés 1 Date d'inscription lunes, 16 de marzo de 2015 Estatus Miembro Última intervención lunes, 16 de marzo de 2015 - 16 mar 2015 a las 20:17
hola:

Tengo una consulta estoy haciendo una macro con formulario el cual ingreso datos y se traspasa a una planilla excel, pero presentó la siguiente consulta para ver si me pueden ayudar.
En un textbox tengo una fecha de validación, y en otro tengo la fecha de vencimiento de ésta última es el resultado, ya que debe contar 5 días y que estos sean hábiles ( no considerar feriados, sábados y domingos), y que no sea modificable por el usuario, salvo si cambia la fecha de validación.
Mi consulta es como colocar fecha de vencimiento en forma automática en el formulario y que se traspase a la planilla de excel con estas condiciones:
Por ejemplo:
textbox1+5 días hábiles= textbox2
02-06-2014+5 días hábiles=09-06-2014

Lo que he realizado es esto, pero me arroja error y más encima no distingue los feriados, sábados y domingo.



Private Sub cvencimiento_Change()

Dim fecha_vencimiento As Date
Dim intervalo As Date

intervalo = Format(intervalo, "05-mm-yyyy")

fecha_vencimiento = cvalidación + intervalo