Saltar al contenido

¿Que quito?

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.

Featured Replies

publicado

Prueba así:

Private Sub Worksheet_Change(ByVal Target As Range): On Error GoTo ErrorFecha
'-------------------------------------------------------
If Not Intersect(Target, Range("A1830")) Is Nothing Then
   If IsDate(Range("A1830")) Then
      If Range("A1830") < Date - 7 Or Range("A1830") > Date + 3 Then
         MsgBox "No puede superar los siete días", vbCritical
         Rows(1830).Delete
         Range("A1830").Select
      Else
         If Not Intersect(Target, Rows(1830)) Is Nothing Then
            Rows(3).EntireRow.Delete
            Target.Offset(0, 1).Select
         End If
      End If
   End If
End If
Exit Sub
'-------------------------------------------
ErrorFecha:
Range("A1830").ClearContents
End Sub

 

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.