Hola de nuevo,
Dando una vuelta al tema, he interpretado que quizá la solución que buscabas era otra. Si lo que buscabas era aflorar el concepto 'folio' partiendo del resto de variables, quizá el archivo adjunto te dé una idea de cómo abordar la solución.
He corregido algunos importes, para confirmar que la asignación recoja los resultados más probables.
Saludos,
Base 05 (C).xlsx
Por
Victor7, · publicado
Hola EXCELENTES.
Heredé este código. Yo no tengo NI IDEA de programación.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errorfecha
If Not Intersect(Target, Range("A1830")) Is Nothing Then
If Range("A1830").Value <> "" Then
If Application.WorksheetFunction.Weekday(Range("A1830").Value, 2) >= 6 Then
On Error GoTo 0
MsgBox "No puede ser sábado o domingo", vbCritical
Range("A1830").EntireRow.Delete
Range("A1830").Select
ElseIf (Range("A1830").Value < Date - 7 Or Range("A1830").Value > Date + 3) Then
MsgBox "No puede superar los siete días", vbCritical
Range("A1830").EntireRow.Delete
Range("A1830").Select
Else
If Not Intersect(Target, Rows("1830:1830")) Is Nothing Then
Rows("3:3").EntireRow.Delete
Target.Offset(0, 1).Select
End If
End If
End If
End If
Exit Sub
errorfecha:
Range("A1830").ClearContents
End Sub
¿Pero que quito para que no proteste por los Sábados y Domingos?.
Muchas gracias y SALU2.