Results 1 to 5 of 5

Thread: Listbox
Thanks Thanks: 0 Likes Likes: 0

  1. #1
    New Member
    Join Date
    Nov 2013
    Posts
    5
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Listbox

    Değerli Kardeşlerim;
    Ekli dosyamda yer alan userform1 de kurum adını seçerek, o kuruma ait mahalleleri alt alta kayıt yapıyorum.
    Sizlerden ricam ise UserForm2 Ile Ilgili
    1 - UserForm2 de ComboBox1 ile ilgili okullarda seçtiğim Kurumların sıralarına göre kuruma ait mahallelerin listesiBox1 de listelenmesi
    2 - listBox1 de çiftlerin tasarımı mahalle satiri hangisi icin TextBox2 ye kurumun Adını, TextBox3 icine de mahallenin adının gelmesi,
    3 - değiştir butonu ile düzeltilmiş halinin aynı semboleye yazılması ve kaydedilmesi aynı anda listbox1 de görünmesi
    4 - Sil butonu ile de verinin kullanımı hücrenin içinin altında kalan diğer mahalle var ise üste doğru taşınması
    Benim için önem arz eden bu konular. Yardımını esirgemeyen tüm kardeşlerime teşekkür ederim.

    Saygı ve hürmetlerimle


    https://drive.google.com/file/d/1gKI...ew?usp=sharing
    Last edited by TURKEY; Jun 1st, 2019 at 11:15 AM.

  2. #2
    Board Regular sergioMabres's Avatar
    Join Date
    Feb 2013
    Location
    Córdoba, Argentina
    Posts
    920
    Post Thanks / Like
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)

    Default Re: Listbox

    Sevgili kardeşim;
    İşte UserForm2 için kod

    Code:
    Private Sub ComboBox1_Change()
        Dim colname As String
        Dim vntList As Variant
        Dim i       As Integer
        Dim le      As String
        
        'For the selected Institution
        TextBox2.Text = ComboBox1.Text
        i = ComboBox1.ListIndex
        le = Mid("cdefghijklmnopqrstuvwxyzaaaaaaaaaaaaaaaaaaaaaaaaa", i + 1, 1)
        colname = le & "2:" & le & Range(le & "65000").End(3).Row
        TextBox3.Text = ""
        ' The selected institution has elements
        If Right(colname, 1) <> "1" Then
            vntList = Sheets("school").Range(colname)
            ListBox1.List = vntList
        Else
            ListBox1.Clear
        End If
    End Sub
    
    Private Sub ListBox1_Click()
        Dim Msg As String
        If ListBox1.ListIndex = -1 Then
        Msg = "Nothing"
        Else
            Msg = ""
            For i = 0 To ListBox1.ListCount - 1
                If ListBox1.Selected(i) Then _
                  Msg = Msg & ListBox1.List(i) & vbCrLf
            Next i
        End If
        TextBox3.Text = Msg
    End Sub
    
    
    Private Sub UserForm_Initialize()
        ComboBox1.RowSource = "school!a2:a" & [school!a65536].End(3).Row
        
    End Sub
    İşte kod ile test dosyası
    https://1drv.ms/x/s!AovCE1fDrrdSnEiUg9tdNJQQkOLw

    Saygı
    Sergio

  3. #3
    New Member
    Join Date
    Nov 2013
    Posts
    5
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: Listbox

    Hands of Health. Thank you
    Last edited by TURKEY; Jun 20th, 2019 at 11:47 AM.

  4. #4
    Board Regular sergioMabres's Avatar
    Join Date
    Feb 2013
    Location
    Córdoba, Argentina
    Posts
    920
    Post Thanks / Like
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)

    Default Re: Listbox

    Bir şey değil, her zaman yardım etmekten mutluluk duyarım
    Sergio

  5. #5
    Board Regular sergioMabres's Avatar
    Join Date
    Feb 2013
    Location
    Córdoba, Argentina
    Posts
    920
    Post Thanks / Like
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)

    Default Re: Listbox

    Change line If Right(colname, 1) <> "1" Then
    For this line If Right(colname, 2) <> le & "1" Then
    Cheers
    Last edited by sergioMabres; Jun 20th, 2019 at 05:38 PM.

Some videos you may like

User Tag List

Tags for this Thread

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •