Проверьте строку со значением поля со списком и используйте его в качестве указателя для заполнения ячейки в этой активной строке.

Question

Я построил код ниже, чтобы найти значение combobox2 (если оно есть, если не делать ничего) в столбце A рабочего листа «MFGLR», а затем в той же строке, что и значение combobox2, вставить значение текстового поля. в колонке АЕ. Я не могу узнать, как это работает правильно.

Справочная информация: у меня есть пользовательская форма, которая имеет 2 поля со списком и 1 текстовое поле. Я создал 3 сценария, и для 2 сценариев мне нужно, чтобы сказанное выше произошло.

Sub linepick()

Dim N As Long
Dim i As Long

'Check for a row with combobox2 value and use that as a pointer to populate the textbox in that active row

N = Cells(Rows.Count, "A").End(xlUp).Row
For i = 5 To N

If Cells(i, "A").Value = Combobox2.value Then

'The  = Combobox2.value brings up an error

Cells(i, "A").Rows.Select

End If

Next i

Userform2.Textbox1.text = CStr(Worksheets("MFGLR").Range("AE" & ActiveCell.Row).Value)

End Sub

Если я недостаточно объяснил, пожалуйста, дайте мне знать. Спасибо

Answer 1

Я думаю, это делает то, что вы хотите.

• Этот код не находится за формой, поэтому вам нужно добавить ссылку на него (как вы сделали ниже).
• Вы также можете выйти из подпрограммы, когда найдете.
• Вы переносили значение AE в текстовое поле, поэтому я перевернул его.

• Убедитесь, что вы включаете ссылки на листы последовательно.

  Sub linepick()
  
  Dim N As Long
  Dim i As Long
  
  'Check for a row with combobox2 value and use that as a pointer to populate the textbox in that active row
  
  N = Worksheets("MFGLR").Cells(Rows.Count, "A").End(xlUp).Row
  
  For i = 5 To N
      If Worksheets("MFGLR").Cells(i, "A").Value = Userform2.Combobox2.Value Then
          Worksheets("MFGLR").Cells(i, "AE").Value = Userform2.Textbox1.Text
          Exit Sub
      End If
  Next i
  
  End Sub