В VBA Excel код для передачи значения из пользовательской формы на основе определенных критериев

Question

Мне нужна помощь для кода VBA.

Данные находятся на одном листе.

Я создал пользовательскую форму, которая содержит поле со списком и текстовое поле. Значения в выпадающем списке являются именами, хранящимися в sheet1.range («A1: A300»). Пользователь вводит номер телефона в текстовое поле.

Я пытаюсь создать код, в котором я мог бы передать значение текстового поля рядом с именем, выбранным пользователем в поле со списком. Значение текстового поля будет сохранено в столбце B.

Спасибо за помощь.

Answer 1

Может быть как то так?

Private Sub TextBox1_Change()
Set Rng = Range("A1:A300")
Set c = Rng.Find(ListBox1.Value, lookat:=xlWhole)
c.Offset(0, 1).Value = TextBox1.Value
End Sub

Private Sub UserForm_Initialize()
Set Rng = Range("A1:A300")
ListBox1.List = Application.Transpose(Rng)
End Sub