Excel'de Liste kutusu yapmak

https://youtu.be/81w-02lxUPM

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

Yeni Excel videoları

Video 2021: Liste Kutusu Yapmak - Tek ve çok seçimli, İlişkili, Activex, VBA, Çok Sütunlu
Normal liste kutusu
İlişkili Liste Kutusu
Form Liste Kutusu
Activex Liste Kutusu
Çok Seçmeli Liste Kutusu
VBA Programlama İle Doldurulan Liste Kutusu


www.excelci.com