Предупреждать, если отсутствует необходимая информация при передаче записи Textbox в ячейку

Question

У меня есть пользовательская форма в Excel 16, которая вводит текст из TextBox5 в ячейку Sheet1.Range("F2") при нажатии CommandButton1.

У меня есть текст по умолчанию в поле с надписью «Конечные мили» в TextBox.

Я хочу открыть окно с сообщением о том, что пользователь должен ввести свой конечный пробег в поле, когда он нажимает кнопку CommandButton, не вводя его.

Это соответствующие коды, которые я сейчас использую:

Private Sub UserForm_Initialize()
     If Not Range("F2").Text = "" Then TextBox5.Text = Range("F2").Text _
           Else TextBox5.Text = "End Miles"
End Sub

Private Sub CommandButton1_Click()
    Sheet1.Range("F2") = TextBox5.Text
    Unload Me
End Sub

Я пытаюсь:

If Not TextBox5.Text = "End Miles" Then 
     MsgBox "Enter ending mileage" 
Else 
     Sheet1.Range("F2") = TextBox5.Text
End If

Answer 1

Ваш логин c перевернут:

If TextBox5.Text = "End Miles" Then 
     MsgBox "Enter ending mileage" 
Else 
     Sheet1.Range("F2") = TextBox5.Text
End If