Macro to add to date in selected cell by one working day

what about if you are on Wednesday and you put in 4 and it lands on Sunday?....do you want it to bump to Monday?

excellent, that what I needed...thanks

sorry it's taking some time....I actually have to do work...go figure....it may be a bit....if somebody else has a faster answer, go for it....again, sorry

you can wrap the whole sub in an IF ISDATE(cell) statement to make sure you are in a cell with a date

this seems to work on the dates I tried....thanks for your patience...

Sub testing()

    Dim RtnVal As Integer, DayDelta As Integer
    Dim Curdate As Date
    
    RtnVal = InputBox("Enter number of days")
    
    Curdate = Cells(ActiveCell.Row, ActiveCell.Column).Value
    
    DayDelta = Weekday(Curdate + RtnVal) + Weekday(Curdate)
    
    RtnVal = RtnVal + 2 * Int((Curdate + RtnVal - Curdate) / 5)
    
    If DayDelta > 10 Then
        RtnVal = RtnVal + 2
    End If
    
    If Weekday(Curdate + RtnVal, vbMonday) = 6 Then
        Cells(ActiveCell.Row, ActiveCell.Column).Value = Curdate + RtnVal + 2
    ElseIf Weekday(Curdate + RtnVal, vbMonday) = 7 Then
        Cells(ActiveCell.Row, ActiveCell.Column).Value = Curdate + RtnVal + 1
    Else
        Cells(ActiveCell.Row, ActiveCell.Column).Value = Curdate + RtnVal
    End If

End Sub

here is the ISDATE code

Sub testing()

    Dim RtnVal As Integer, DayDelta As Integer
    Dim CurDate As Variant
    
    CurDate = Cells(ActiveCell.Row, ActiveCell.Column).Value
    
    If IsDate(CurDate) Then
        RtnVal = InputBox("Enter number of days")

        DayDelta = Weekday(CurDate + RtnVal) + Weekday(CurDate)
    
        RtnVal = RtnVal + 2 * Int((CurDate + RtnVal - CurDate) / 5)
    
        If DayDelta > 10 Then
            RtnVal = RtnVal + 2
        End If
    
        If Weekday(CurDate + RtnVal, vbMonday) = 6 Then
            Cells(ActiveCell.Row, ActiveCell.Column).Value = CurDate + RtnVal + 2
        ElseIf Weekday(CurDate + RtnVal, vbMonday) = 7 Then
            Cells(ActiveCell.Row, ActiveCell.Column).Value = CurDate + RtnVal + 1
        Else
            Cells(ActiveCell.Row, ActiveCell.Column).Value = CurDate + RtnVal
        End If
    Else
        MsgBox "This field does NOT have a date."
    End If
    
End Sub

if you are talking about how to launch the macro, then I would add it to the quick access toolbar...you can add macros to the QAT and then click in the date cell, click on the macro icon on the QAT and it will launch the macro....you'll get the input box to ask how many days...and, hopefully, adjust that day correctly....HTH

try this

Sub testing()

    Dim RtnVal As Integer, DayDelta As Integer
    Dim CurDate As Variant
    
    CurDate = Cells(ActiveCell.Row, ActiveCell.Column).Value
    
    If IsDate(CurDate) Then
        RtnVal = InputBox("Enter number of days")

        DayDelta = Weekday(CurDate + RtnVal) + Weekday(CurDate)
    
        RtnVal = RtnVal + 2 * Int((CurDate + RtnVal - CurDate) / 5)
    
        If DayDelta > 10 Then
            RtnVal = RtnVal + 2
        End If
    
        If Weekday(CurDate + RtnVal, vbMonday) >= 6 Then
            Cells(ActiveCell.Row, ActiveCell.Column).Value = CurDate + RtnVal + 2
        Else
            Cells(ActiveCell.Row, ActiveCell.Column).Value = CurDate + RtnVal
        End If
    Else
        MsgBox "This field does NOT have a date."
    End If
    
End Sub

thanks....I'm glad I could help....and I'm pretty sure I haven't done any actual miracles....but thanks anyway.....

Please remember to set the thread to SOLVED...thanks

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED. Thanks.

I will also add that this situation is a perfect one to use the built-in function WORKDAYS, which also allows you to give a list of holidays in addition to taking care of the weekends for you. It saves doing a lot of date arithmetic logic from scratch. It can be called from VBA code using Application.WorksheetFunction.WORKDAY.