Здравствуйте уважаемые форумчане.
Можете помочь с формой ввода ListBox для ввода множественных знвчений списка через запятую в каждую последующую ячейку.
Привожу пример ввода (1 вариант не работает, 2 вариант работает, если заполнить А2 ячейку таблицы)
Option Explicit
Private Sub CommandButton1_Click()
Dim iRow As Integer
Dim mdk1 As String
With ListBox1
For iRow = 0 To .ListCount - 1
If .Selected(iRow) = True Then mdk1 = mdk1 & .List(iRow) & ", "
Next iRow
End With
With List1
iRow = .ListObjects("Tbl").DataBodyRange.Rows.Count + 2
.Cells(iRow, "A").Value = mdk1
End With
End Sub
_________________________________________________________________________________________