Macro para colocar 1 dia hábil posterior

Hola Dam en la macro que me enviaste suma 2 días posterior, como la debo ajustar si quiero solo 1 dia hábil posterior gracias.

'2 días hábiles posteriores para el bloque 1
j = 0
Do While True
j = j + 1
deval = DTPicker1 + j
dia1 = Application.NetworkDays(deval, deval, Sheets("No laborable").Range("A3:A" & uf))
If dia1 > 0 Then d3 = DTPicker1 + j: Exit Do
Loop
j = 0
Do While True
j = j + 1
deval = d3 + j
dia1 = Application.NetworkDays(deval, deval, Sheets("No laborable").Range("A3:A" & uf))
If dia1 > 0 Then d4 = d3 + j: Exit Do
Loop

1 respuesta

Respuesta
1

En esta parte de la macro

.Cells(uf, "R") = d2
.Cells(uf, "S") = d4
.Cells(uf, "T") = d6
.Cells(uf, "U") = d8

Cambia a esto:

.Cells(uf, "R") = d2
.Cells(uf, "S") = d3
.Cells(uf, "T") = d6
.Cells(uf, "U") = d7

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas