@ user3806255 все, что вам нужно сделать, это не очистить значение из выпадающего списка при / после сохранения ...
анее прошу прощения за размещение того же вопроса, но я не знаю, как еще добавить дополнительный пример кода. Если есть способ добавить дополнительный код к предыдущему вопросу, пожалуйста, сообщите. По сути, я пытаюсь сохранить некоторые значения текстовых полей в своем рабочем листе, чтобы их можно было повторно инициировать, когда пользовательская форма закрывается и снова открывается. Это то, что я до сих пор .. но, очевидно, это неправильно!
По сути, у меня есть выпадающий список (procNamecombobox), который заполняется из столбца «А» на листе «DailyNumbers». Я просто хочу, чтобы текстовое поле ниже. Значения сохранялись в соответствующих столбцах (B, C, D & E) рядом с каждым именем, когда оно выбрано в выпадающем списке.
Private Sub procNamecombobox_Change()
Dim ws As Worksheet
Dim EmptyRow As Long
Set ws = Sheets("DailyNumbers")
EmptyRow = ws.Range("B" & Rows.Count).End(xlUp).Row + 1
' *** Check combobox selection ***
If procNamecombobox.ListIndex > -1 Then
ws.Range("B" & EmptyRow).Value = completeCount.Text
ws.Range("C" & EmptyRow).Value = handledCount.Text
ws.Range("D" & EmptyRow).Value = wipCount.Text
ws.Range("E" & EmptyRow).Value = suspendCount.Text
ws.Range("B2:B" & EmptyRow).Sort key1:=ws.Range("A1:A" & EmptyRow), order1:=xlAscending, Header:=xlNo
Else
MsgBox "Please select your name"
End If
End Sub