Create User Input message box with 2 options; enter specific date or check checkbox

[Tardisgx]

Below I have VBA for a user to enter a date and for that to be entered into a specific cell on the active sheet. I do not have a lot of experience with Or statements.

I want to add an "or" path for a checkbox to be ticked, if this is the case then yesterday's date; formula =today()-1 would be entered in the cell instead. Disallow both a value to be entered and the check box to be ticked.

Sub Which Date

    Dim QtyEntry As Integer
    Dim Msg As String
    Msg = "Enter Specific Date dd/mm/yy"
    QtyEntry = InputBox (Msg)
    ActiveSheet.Range("B2").Value = QtyEntry

End Sub

 

[nemmi69]

How about this?

Sub Which Date
Dim QtyEntry As Date
Dim Msg As String
Msg = "Enter Specific Date dd/mm/yy"


If ActiveWorkbook.Sheets("Sheet1").CheckBox1.Value = True Then
    ActiveSheet.Range("B2").Value = Date - 1
Else
    QtyEntry = InputBox(Msg)
    ActiveSheet.Range("B2").Value = QtyEntry
End If
End Sub

 

[Tardisgx]

Thanks for your input; I have been able to write my own code; I have made some progress but this simple thing is not working.

https://imgur.com/GgQNEWB

My issue is the textbox value is not being read when I click proceed. No Date appears in B2



When I check the box and click proceed; that works fine. date in B2 Appears.



Specifictext refers to the blank textbox.

YesterdaysDate refers to the checkbox

Private Sub Proceed_Click()
Dim Specifictext As String
If YesterdaysDate Then
ActiveSheet.Range("B2").FormulaR1C1 = "=TODAY()-1"
ElseIf Specifictext <> "" Then
ActiveSheet.Range("B2").Value = Specifictext
End If
End Sub

 

[Tardisgx]

I have received a new solution from another reply. Thanks for your input

Private Sub Proceed_Click()
    If YesterdaysDate Then
        'check to make sure both fields aren't being used
        If Not Me.Specifictext.Value = vbNullString Then
            MsgBox "both cannot be used"
            Me.Specifictext.SetFocus
            Exit Sub
        Else
            ActiveSheet.Range("B2").FormulaR1C1 = "=TODAY()-1"
        End If
    ElseIf Not Me.Specifictext.Value = vbNullString Then
        ActiveSheet.Range("B2").Value = Me.Specifictext.Value
    Else 'assuming both cannot be left blank
        MsgBox "both cannot be blank"
        Me.Specifictext.SetFocus
        Exit Sub
    End If
End Sub