Libro foliado anual sin domingos ni dias festivos
Hola, deseo hacer un libro de registro anual, el cual este foliado por todo ese tiempo, pero no quiero tomar en cuenta loas domingos y días festivos del año, ya me he roto la cabeza tratando de hallar una fórmula de condición, diassem, dialab, sumas, restas y nada, nola logro hallar, todas los formastos para el año de encuentran en una hoja de excel denominada BIT, en las celdas K7, AC7, AT7.. Y secesivamente irán las fechas de forma larga (DD DD MM YY), en otra hoja demoninda INI que será la carátula del libro tiene los datos de inicio y fin de periodo 01-01-2011 al 31-12-2011, en las celdas B13 y D13 respectivamente, en el rango A15,A28 se encuentran los dias festivos del años, espero se pueda llevar a cabo este tipo de formula y espera que pueda ayudar, GRACIAS y SALUDOS.
1 Respuesta
Respuesta de Enrique Bernal
-1
Yo tengo una macro que lista en la columna A desde la 1 hasta que termine desde el 1-1-11 hasta el 31-12-11, para mi ejemplo el rango de festivos está en Range("Z1:Z50").Select. Y deben estar en formato numerico. No te la paso tal cual la necesitas porque no la entiendo del todo, pero trata de adaptarla y cualquier cosa me avisas
Sub Dias()
a = 40544
For kike = 1 To 365
Z = Application.WorksheetFunction.NetworkDays(a - 1, a)
If Z > 0 Then
On Error Resume Next
Range("Z1:Z50").Select
Cells.Find(What:=a, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Application.CutCopyMode = False
If Err = 91 Then
k = Err
b = b + 1
Range("A" & b).Value = a
End If
If a = 40908 Then Exit Sub
End If
a = a + 1
Next kike
End Sub
Sub Dias()
a = 40544
For kike = 1 To 365
Z = Application.WorksheetFunction.NetworkDays(a - 1, a)
If Z > 0 Then
On Error Resume Next
Range("Z1:Z50").Select
Cells.Find(What:=a, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Application.CutCopyMode = False
If Err = 91 Then
k = Err
b = b + 1
Range("A" & b).Value = a
End If
If a = 40908 Then Exit Sub
End If
a = a + 1
Next kike
End Sub
