Необходимо найти значение и отобразить следующие ячейки в двух других текстовых полях. - PullRequest
Новая
       5

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

0 голосов
/ 06 мая 2020

Я хочу найти значение TextBox1 в столбце B Sheet2. У меня такой же код в другой пользовательской форме, и он работает, но я создал новую пользовательскую форму и не работает. Похоже, Финдлег ничего не приносит.

Кто-нибудь может заметить ошибку? 

Private Sub TextBox1_Enter()
Dim Findleg As Range
Dim leg As String

'Encontrar el legajo en la lista
leg = TextBox1.Value
Set Findleg = Hoja2.Range("B:B").Find(What:=leg, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)

If Findleg Is Nothing Then
MsgBox "No se encuentra el legajo"

'Deja las casillas vacias cuando termina
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
Exit Sub

Else
TextBox2.Value = Findleg.Offset(0, 1)
TextBox3.Value = Findleg.Offset(0, 2)

End If

End Sub

1 Ответ

0 голосов
/ 06 мая 2020

Я обнаружил проблему, я спрятал кнопку, которую нужно нажать, чтобы проверить это значение, а не текстовое поле.

...