Change Date with Date Picker If Date Less Than 7 Days From Another Date

I have a userform with 2 date pickers, The below code activates a message box if the date in dTpicker2 is greater than 6 days from DTpicker1, this works fine.

I cannot get this macro to change the date via DTpicker 2 if the date is less than the 6 days, what do I have to add to make this happen, at the moment it will not change any date on sheet1 that is less than the 7 days.

Private Sub DTpicker2_change()
If DTPicker2 > DTPicker1.Value + 6 Then
MSG1 = MsgBox("You Have Selected A Date Greater Than 7 Days, Do You Wish To Continue", vbYesNo, "Moving")
If MSG1 = vbYes Then
Sheets("Sheet1").Range("B1") = DTPicker2.Value
Else
If MSG1 = vbNo Then
Exit Sub
End If
End If
End If
End Sub

Thank for any assistance

Hi there,

I may have misunderstood your requirements, but see if the following code does what you need:

Private Sub DTpicker2_change()

    Dim bUpdateCell As Boolean
    Dim iUserInput  As Integer

    bUpdateCell = True

    If DTPicker2.Value > DTPicker1.Value + 6 Then

        iUserInput = MsgBox("You Have Selected A Date Greater Than 7 Days, Do You Wish To Continue", vbYesNo, "Moving")

        If iUserInput <> vbYes Then
            bUpdateCell = False
        End If

    End If

    If bUpdateCell = True Then
        Sheets("Sheet1").Range("B1") = DTPicker2.Value
    End If

End Sub

Hope this helps - please let me know how you get on.

Regards,

Greg M

Thanks Greg M that works perfect, I will mark as solved.

Hi again,

Many thanks for your feedback.

You're welcome - glad I was able to help.

Regards,

Greg M