Этот вопрос является продолжением предыдущего вопроса, который был успешно решен благодаря экспертам здесь
У меня есть форма, которую я печатаю в записях и вставляю влист, и он хорошо работает
Теперь мне нужно, чтобы при наборе продукта остальные поля получали значения из таблицы, если они существуют
То есть, если продуктуже существует, будут заполнять соответствующие значения, в остальных полях формы
Но я вижу, что ситуация может быть перечислена два идентичных продукта , и это не ошибка
Как мне это сделать в соответствии с выбором в "ComboBox1"
Заполните оставшуюся часть формы соответствующими значениями
То есть он распознает местоположение выделения в раскрывающемся списке
. Если бы это был выбор первой строки, он бы заполнил значения первой строкой. И так далее
Икогда я изменяю значения, он меняется наame line
Возможно ли это сделать? Или лучше подумать о другой идее?
Надеюсь, это понятно
![example](https://i.stack.imgur.com/GgGmr.png)
Код IДо сих пор использовал
Option Explicit
Private Sub ComboBox1_Change()
Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheets")
Dim Found As Range
Set Found = ws.Range("A1:C3").Find(What:=ComboBox1.Value, MatchCase:=False)
If Not Found Is Nothing Then
Me.TextBox1 = Found.Offset(, 1)
Me.TextBox2 = Found.Offset(, 2)
Else
Me.TextBox1 = ""
Me.TextBox2 = ""
End If
End Sub
Private Sub update_Click()
Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheets")
Dim Found As Range
Set Found = ws.Range("A1:C3").Find(What:=ComboBox1.Value, MatchCase:=False)
If Not Found Is Nothing Then
Found.Offset(, 1).Value = Me.TextBox1.Value
Found.Offset(, 2).Value = Me.TextBox2.Value
End If
End Sub