Введите данные из электронной таблицы в пользовательскую форму - PullRequest
Новая
       10

Введите данные из электронной таблицы в пользовательскую форму

0 голосов
/ 25 октября 2019

Я пытаюсь создать пользовательскую форму для создания создаваемой таблицы. В электронной таблице я набираю штрих-код, который затем извлекает соответствующее описание из отдельной электронной таблицы и вводит его в столбец описания. Тогда пользователю просто нужно ввести количество. Я создал пользовательскую форму, которая должна вводить информацию в электронную таблицу. То, что я хотел бы сделать, это вызвать описание (в столбце 3 электронной таблицы), когда штрих-код вводится в пользовательской форме. 

Private Sub Cmdbutton_add_Click()

Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")

'find first empty row in database
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

'check for a Barcode number
If Trim(Me.textbox_barcode.Value) = "" Then
  Me.textbox_barcode.SetFocus
  MsgBox "Please complete the form"
  Exit Sub
End If

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.textbox_barcode.Value
ws.Cells(iRow, 2).Value = Me.textbox_quantity.Value


MsgBox "Data added", vbOKOnly + vbInformation, "Data Added"
'clear the data
Me.textbox_barcode.Value = ""
Me.textbox_quantity.Value = ""

Me.textbox_barcode.SetFocus
End Sub

Private Sub Cmdbutton_close_Click()

Unload Me

End Sub



Private Sub description_Click()

End Sub

Private Sub quantity_Click()

End Sub

Private Sub textbox_barcode_Change()

End Sub



Private Sub textbox_quantity_Change()

End Sub

Private Sub TextBox1_Change()

End Sub
...