Обновление Combobox после закрытия пользовательской формы

Question

У меня проблема с обновлением UserForm.

Когда я начинаю Uform1, я заполняю ComboBox1 со списком пользователей Sheet("User").
Если пользователь не зарегистрирован, u должен нажать кнопку Add user на Uform1. При Add user нажатии кнопки Uform2 появляется (Uform2 отвечает за регистрацию пользователя)

Ok моя проблема, когда я закончу с Uform2 и я получаю фокус назад в Uform1Combobox1 не показывает нового пользователя. Как я могу это сделать?

Answer 1

Я не уверен, как вы инициализируете значение ComboBox1, но ниже настроено, похоже, работает.

UserForm1 Код:

Private Sub CommandButton1_Click() ' Add User Button 
    Me.Hide 
    UserForm2.Show 
End Sub 

---

Private Sub UserForm_Activate() ' Populate ComboBox1 
    With Sheet1 
     Dim lr As Long 
     lr = .Range("A" & .Rows.Count).End(xlUp).Row 
     Me.ComboBox1.List = Application.Transpose(.Range("A1:A" & lr)) 
    End With 
    Debug.Print "Activated" 
End Sub 

UserForm2 Код:

Private Sub CommandButton1_Click() ' Register Button 
    With Sheet1 
     Dim lr As Long 
     lr = .Range("A" & .Rows.Count).End(xlUp).Row 
     .Range("A" & lr + 1) = Me.TextBox1 
    End With 
    Me.Hide 
    UserForm1.Show 
End Sub 

Ключ использовать UserForm_Activate событие огонь вновь заселять ComboBox1.