Private Sub CommandButton1_Click()
Dim FreeRow As Long
If Me.TextBox1 = "" Then
MsgBox "Не заполнено поле ''Количество''. Повторите ввод.", 48, "Ашыпка!"
Exit Sub
End If
FreeRow = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
Cells(FreeRow, 1) = ListBox3.List(ListBox3.ListIndex, 0)
Cells(FreeRow, 2) = ListBox3.List(ListBox3.ListIndex, 1)
Cells(FreeRow, 3) = ListBox3.List(ListBox3.ListIndex, 2)
Cells(FreeRow, 4) = CDbl(TextBox1)
Unload Me
End Sub
P.S. Плохо заполнен ЛистБокс: много пустых ячеек. Про запас?
Добавил проверку (см. #2). С запасными строками плохая идея - заполняйте ЛистБокс только имеющимися на данный момент данными. Если не умеете, то это вопрос для другой темы )
Юрий М написал: Добавил проверку (см. #2). С запасными строками плохая идея - заполняйте ЛистБокс только имеющимися на данный момент данными. Если не умеете, то это вопрос для другой темы )
Поменяю заполнение, а в чем плохая идея ? Так что бы знать на будущее.