ListBox с возможностью выбора для последующей обработки

[strannick]

Добрый день, уважаемые форумчане!
Возникла необходимость делать выборки для последующей обработки (например, рассылки уведомлений и т.п.). Во вложении пример с номерами счетов и фамилиями. По двойному клику в первом столбце выбираются уникальные номера и фамилии (на второй лист) и вызывается юзерформа, на которой листбокс, куда надо добавить эти уникальные номера и фамилии. С добавлением понятно. Вопрос такой: как в листбоксе реализовать возможность выбирать нужные данные, например, перед каждой строкой чтобы был чекбокс, ну а потом на разные кнопки повесить разные процедуры, по нажатии которых выбранные данные будут обрабатываться?
Заранее спасибо!

[doober]

Для начала пробуйте

Private Sub UserForm_Activate()
  ListBox1.ListStyle = fmListStyleOption
End Sub
Private Sub CommandButton1_Click()
    For n = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(n) Then
            MsgBox "Вай вай,эта строчка выбрана"
        End If
    Next
End Sub

[strannick]

Да, так получается:

Private Sub UserForm_Activate()
ListBox1.ListStyle = fmListStyleOption
With Sheets("Лист2")
    Me.ListBox1.List = .Range(.[A1], .Cells(Rows.Count, "B").End(xlUp)).Value
End With
End Sub

Только почему-то добавляются в листбокс данные из стобца А, а из столбца В - нет. Где тут косяк?

Ага, поторопился. Не совсем так. В таком варианте с OptionButtom выбрать можно только одну строку, а необходимо несколько. Надо все-таки чекбоксы.

По количеству столбцов, извините, разобрался. В свойствах))) По использованию чекбоксов пока нет.

Все, и чекбоксы в свойствах нашел. Пункт MultiSelect на 1.

[doober]

часть вопросов снята

А какие остались?