Función día.lab

Prueba con esta y califícala. Pero por favor tienes que calificar la pregunta anterior porque no está cerrada, sino se llena el máximo de preguntas y no puedo recibir más preguntas.
Gracias.
Sub pru()
MsgBox DiasLaborablesYSabados("01-11-2006", "14-11-2004", Range("i13:i16"))
End Sub
Function DiasLaborablesYSabados(Fecha_inicial As Date, Fecha_Final As Date, Optional Festivos As Range) As Date
Dim Laborables As Long
Dim i As Long
Dim c As Variant
Dim F As Long
Dim esta As Boolean
esta = False
Laborables = 0
Dim Dias As Long
Dias = InputBox("Digite el numero de días", Dias, 0)
Fecha_Final = Fecha_inicial + Dias
For i = Fecha_inicial To Fecha_Final
If Weekday(i, vbMonday) = 7 Or Weekday(i, vbMonday) = 6 Then
NoLaborales = NoLaborales + 1
End If
Next i
Fecha_Final2 = Fecha_inicial + Dias + NoLaborales - 1
For Y = Fecha_inicial To Fecha_Final2
If Weekday(Y, vbMonday) = 7 Or Weekday(Y, vbMonday) = 6 Then
NoLaborales2 = NoLaborales2 + 1
End If
Next Y
Fecha_Final = Fecha_Final + NoLaborales2 - 1
'End If
DiasLaborablesYSabados = Fecha_Final
End Function

Excel no tiene una función como la que buscas, sin embargo tu puedes crearla dentro del VB de Excel y la puedes aplicar igual que una que ya este predeterminada te paso la función que encontré en Internet:
Option Explicit
'Funcion que encuentra el siguiente dia hábil
'** ARGUMENTOS
'Fecha_Inicial = fecha a partir de la cual se empieza a contar
'Dias_Laborables = numeros de dias que se quieren contar
'Dias_Festivos = dias a omitir en la cuenta como fechas especiales
'Omitir_Dias = dias a omitir como dia de la semana
' Domingo = 1
' Lunes = 2
' etc...
' Sabado = 7
'Devuelve el dia habil siguiente como fecha
Public Function Dia_Laborable(ByVal Fecha_Inicial As Date, _
ByVal Dias_Laborables As Integer, _
ByVal Dias_Festivos As Range, _
ByVal Omitir_Dias As Range) As Date
Dim co1 As Integer
Dim r As Range
Dim EsFestivo As Boolean
Dim EsOmitido As Boolean
Dim Direccion As Integer
'Los dias laborables no pueden ser cero
If Dias_Laborables <> 0 Then
'Para saber si aumenta o disminuye la fecha
Direccion = 1
If Dias_Laborables < 0 Then Direccion = -1
Do
EsFestivo = False
EsOmitido = False
'Aumentamos o disminuimos en uno la fecha inicial
Fecha_Inicial = Fecha_Inicial + Direccion
'Buscamos en los dias festivos
For Each r In Dias_Festivos
If r.Value = Fecha_Inicial Then
'Si es festivo sale del ciclo
EsFestivo = True
Exit For
End If
Next r
'Si es festivo no es necesario buscar en dias omitidos
If Not EsFestivo Then
'Buscamos en dias omitidos en caso de que no sea festivo
For Each r In Omitir_Dias
If r.Value = Weekday(Fecha_Inicial) Then
'Si es omitido salimos del ciclo
EsOmitido = True
Exit For
End If
Next r
End If
'NO deber ser festivo ni omitido para incrementar
If Not EsFestivo And Not EsOmitido Then
co1 = co1 + 1
End If
DoEvents
'Continuamos mienstras sea menor a los dias_laborables
Loop While co1 < Abs(Dias_Laborables)
'Asignamos la fecha encontrada a la funcion
Dia_Laborable = Fecha_Inicial
Else
'Si es cero devuelve un error tipo #!VALOR¡
Dia_Laborable = ""
End If
End Function

Ok que cosidere solom a los domingos como no laborables, ¿si?
Usa esta fórmula:
=SI(DIASEM(D4)=1;"Dia no laborable";"Dia laborable")
Donde D4 es la celda donde esta la fecha a evaluar.
Saludos,
RCh.
Viva chavez!

Usa la función que te envié, poniendo en una celda la fecha inicial y en otra una fecha final cualquiera, luego lígalas con la función =DiasLab(inicial, final), donde inicial y final son las celdas con las fechas.
Luego, con el menú > Herramientas > Buscar objetivo
pon los datos:
Definir celda: la de la fórmula
Con el valor: los días laborables que quieres sumar
Para cambiar la celda: la celda de fecha final
y te calculará la fecha necesaria para que los días sean los correctos.
Si no te sirve, vuelve a escribirme.

Como esta... pues la verdad no entiendo bien su pregunta. DÍA.LAB por definición, es una función que cuenta el numero de días hábiles entre dos fechas, no tiene en cuenta los Sábados ni los Domingos, así como tampoco los días que se personalicen en la lista para el conteo de días hábiles.
Así las cosas, si su pregunta es que necesita una función que considere los sábados con festivos o días no laborales, pues ya la tiene. Se llama DÍA.LAB

Pues es que precisamente eso hace esta función... considerarlos NO laborables.

Ninguna de las respuestas en la mejor opción. Descargue e instale el manual y ejemplos para Access y Excel del siguiente link:

https://mega.nz/#!TMkFES6D!6RGkDnt_1lG6V5RkDMYxE3KBpZIwm3UECAMuIcjbf_Q 

Con un pequeño ajuste puede exlcuir el día sábado. Encontrará muchas cosas más.