Получите данные строки из Sheet1, затем поместите их в другой UserForm

Excel 2013 с VBA

UserForm1 показывает TextBox и ListBox. Он отобразит имя на основе идентификатора в TextBox. Я хотел отобразить всю информацию для этого конкретного человека, а затем отобразить ее во 2-й пользовательской форме.

• Изменения отслеживания Excel VBA
• Очистить каскадный ComboBox при повторном выборе
• Excel только показывать пользовательскую форму, никогда не показывать книгу
• Пользовательская форма VBA с DTPicker
• Excel 2013 64 бит - Пользовательская форма VBA - добавьте 28 дней до даты текстового поля и отобразите в другом текстовом поле

Вот мой код:

Private Sub txtID_Change() Dim x, dict Dim i As Long Dim cnt As Long Set mySheet = Sheets("Sheet1") ListBox1.Clear x = mySheet.Range("A1").CurrentRegion.Value Set dict = CreateObject("Scripting.Dictionary") If Application.CountIf(mySheet.Columns(2), txtID.Text) > 0 Then For i = 2 To UBound(x, 1) If x(i, 2) = txtID.Text Then dict.Item(x(i, 1)) = "" End If Next i ListBox1.List = dict.keys Else ListBox1.AddItem "Match not found" End If End Sub