Доброго времени суток Форумчане! Прошу Вашей Помощи, что-то вечером голова не соображает. Дана таблица, есть форма ввода через которую вношу данные. На форме 1 комбобокс, 1 текстбокс и кнопка ввода. При выборе значения в комбобоксе и данных в текстбоксе необходимо внести данные в таблицу. Всё вроде-бы Гуд, ничего сложного. Да, данные вносятся но не в тот столбец.
Через костыль получается внести данные
Ну это же не правильно. Может кто знает правильное решение? Подправьте код Пожалуйста.
Спасибо за то что не прошли мимо! Здоровья!
Скрытый текст | ||
---|---|---|
|
Через костыль получается внести данные
Код |
---|
Private Sub CommandButton1_Click() Application.ScreenUpdating = False Set ws1 = Sheet1 Set tbl = ws1.ListObjects("Table1") Set NewRow = tbl.ListRows.Add With NewRow.Range Set RngCol = tbl.HeaderRowRange.Find(Me.ComboBox1.Value, , LookIn:=xlValues, LookAt:=xlWhole) If Not RngCol Is Nothing Then .Columns(RngCol + 1) = Me.TextBox1 Else .Columns(RngCol + 1) = "" End If End With Application.ScreenUpdating = True Unload Me MsgBox "Данные введены, Удачи!" End Sub |
Ну это же не правильно. Может кто знает правильное решение? Подправьте код Пожалуйста.
Спасибо за то что не прошли мимо! Здоровья!