Liste kutusu işlemleri

' 1. değişkenlerimizi tanımlayalım.

' 2. Option Explicit

' 3. Liste kutularını dolduralım

' 4. Seçilenleri toplayalım.

' 5. Seçilenlerin gösterelim ya da bir yere yazalım.

Option Explicit

Dim Liste As String

Dim i As Integer

Dim sonsatir  As Integer

Dim SecilenEleman As String

Dim SecilenElemanlar As String

Private Sub ListeKutulariniDoldur_Click()

'  liste kutularını doldur

Dim satir As Integer

Liste1Lst.Clear

sonsatir = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row

For satir = 3 To sonsatir

Liste1Lst.AddItem Sheets("Data").Cells(satir, 1)

Next

 End Sub

Sub Kaydet()

Dim satir As Integer

   Dim i As Integer

  

' seçileni bul

         For i = 0 To Liste1Lst.ListCount - 1

          If Liste1Lst.Selected(i) Then

              SecilenElemanlar = SecilenElemanlar & Liste1Lst.list(i)

          End If

      Next i

MsgBox SecilenElemanlar

End Sub