Из Формы Vba в Excel

[olegator]

Задача 1: При открытии формы и последующем занесением данных в нее(№трассы, код товара, количество), при нажатии кнопки "Внести данные" осуществлялся перенос в соответствующий столбец в таблице , при этом заполненные поля очищались для последующего занесения...(Кода товара и количества). При нажатии кнопки "Новая трасса" происходила таже операция, но уже в рядом стоящий столбец.

[olegator]

сори, а вот и файл

[alebed]

Номера трасс будут известны заранее или при каждом внесении будет создаваться уникальный номер ?
Должна ли быть проверка внесения номеров трасс с целью исключения повторений ?

[alebed]

Поскольку ответов на вопросы не было предлагаю так
см. файл

[olegator]

Огромное спасибо ...alebed...за озывчивость, отвечу на его вопросы.
Номера трасс всегда разные, но вот выборка по кодам будет не удобна, т.к. их более 300 сот...с этим я постараюсь доработать( если получиться) Проверять трассы на повторения не обезательно, а вот повторение кода в трассе нужно исключить.
Еще раз спасибо, с меня причитаеться...))) но еще немного надо дороботать и во всем разобраться, как это работает

[alebed]

Не знаю почему не удобна выборка по кодам,
в поле CBoxID бокса "код товара" пользователь может вводить код.
При внесении ему будет предложен вариант из списка.
Список кодов можно дополнить кол-вом строк
Private Sub UserForm_Activate()
.......
......
For i = 3 To 7 - кол-во изменять здесь
TovID = Worksheets("Отчет").Cells(i, 1).Value
FormData.CBoxID.AddItem TovID
........
.......

[olegator]

..а как в поле просмотра (LBoxOld), убрать( не отражать) кода(код продукции) с нулевыми значениями (кол-во продукции) ?

[alebed]

For i = 3 To 7
ind = i - 2
OldID = Worksheets("Отчет").Cells(i, 1).Value
OldCol = Worksheets("Отчет").Cells(i, Old).Value
If OldCol = "0" Or OldCol = "" Then GoTo Dalee ' дополнено
Else ' дополнено
With FormData.LBoxOld
.AddItem
.List(ind, 0) = OldID
.AddItem
.List(ind, 1) = OldCol
End With
Dalee: ' дополнено
Next i

Прим: OldCol = "0" - ориентировано на то, что значение текстовое

[olegator]

Private Sub CBTView_Click() ругается здесь
FormData.LBoxOld.Clear
Old = FormData.CBoxOld.ListIndex + 3
With FormData.LBoxOld
.ColumnCount = 2
.AddItem
.List(0, 0) = "Код"
.List(0, 1) = "Кол -во"
End With
For i = 3 To 300
ind = i - 2
OldID = Worksheets("Отчет").Cells(i, 1).Value
OldCol = Worksheets("Отчет").Cells(i, Old).Value
If OldCol = "0" Or OldCol = "" Then GoTo Dalee ' дополнено
Else ' дополнено
With FormData.LBoxOld
.AddItem
.List(ind, 0) = OldID
.AddItem
.List(ind, 1) = OldCol
End With
Dalee: ' дополнено
Next i
End Sub

[alebed]

Private Sub CBTView_Click()
FormData.LBoxOld.Clear
Old = FormData.CBoxOld.ListIndex + 3
With FormData.LBoxOld
.ColumnCount = 2
.AddItem
.List(0, 0) = "Код"
.List(0, 1) = "Кол -во"
End With
For i = 3 To 300
ind = i - 2
OldID = Worksheets("Отчет").Cells(i, 1).Value
OldCol = Worksheets("Отчет").Cells(i, Old).Value
If OldCol = "0" Or OldCol = "" Then
GoTo Dalee
Else
With FormData.LBoxOld
.AddItem
.List(ind, 0) = OldID
.AddItem
.List(ind, 1) = OldCol
End With
End If
Dalee:
Next i
End Sub