listbox da veri sıralama

[ferhat73]

merhabalar
Arkadaşlar dün yanıt bulamadığım sorum ile ilgili yardım rica ediyorum
ekdeki örnekte
textbox a listbox 1 den veri gönderebiliyorum.(veriler alfabetik olarak sıralanmış)

buna ilave olarak
listbox 2 den textbox lara veri gönderme ile ilgili problem yok
fakat
listbox2 deki verilerde alfabetik olarak sıralansın istiyorum
(veriler yani firma isimleri alfabetik sıralansın istiyorum)


iyi çalışmalar

 

[janveljan]

Aşağıdaki kod kısımlarınızı değiştirin.

Private Sub UserForm_Initialize()
    
    Yeni_mi = True
    
    ListBox1.ColumnCount = 1
    
    ListBox1.ColumnWidths = "90"
    
    ListBox1.RowSource = "Data!B2:e" & Sheets("Data").Range("A65536").End(xlUp).Row
    ListBox2.ColumnCount = 1
    
    ListBox2.ColumnWidths = "90"
    
    Range("C2:C" & Sheets("Data").Range("C65536").End(xlUp).Row).Copy Range("IV1")
    
    Columns("IV:IV").Sort Key1:=Range("IV1"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    
    For i = 1 To Sheets("Data").Range("IV65536").End(xlUp).Row
        ListBox2.AddItem Sheets("Data").Cells(i, "IV")
    Next
    
    Columns("IV:IV").Delete
    
End Sub

Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    
    Yeni_mi = False
    
    If ListBox2.ListIndex = -1 Then Exit Sub
    
    Set bul = Range("C:C").Find(ListBox2.List(ListBox2.ListIndex))
    
    If Not bul Is Nothing Then
    
    Bulunan_Satir_No = bul.Row
    
    TextBox1.Text = Range("B" & Bulunan_Satir_No).Value
    
    TextBox2.Text = Range("C" & Bulunan_Satir_No).Value
    
    TextBox4.Text = Range("D" & Bulunan_Satir_No).Value
    
    TextBox5.Text = Range("E" & Bulunan_Satir_No).Value
  
    End If
End Sub

 

[ferhat73]

sayın janveljan
çok teşekkkürler sonuca ulaştım


iyi çalışmalar

 

[ferhat73]

sayın janveljan
ufak bir problem var
firma ismi aynı olan aşağıdaki gibi bir durum olduğunda
listbox 2 yi tıkladığımda tekstboxlara
isim-soyadlar aşağıdaki gibi gitmiyor.

isim-soyad firma
Erdem Tır
Fikri Tır
Vahit Canberk Tır
ali Tır


ekteki dosyadan görülebilir.
kodlarda nasıl bir değişiklik yapılması gerekiyor
yardımcı olabilirseniz sevinirim

iyi çalışmalar

 

[janveljan]

Firmaları alfabetik sıraladığımız zaman satırlarla ilişkisini kesiyoruz, verileri getirmek için excelin find işlemini kullanıyoruz, böyle oluncada birbirinin aynı olan değerlerden sadece ilkini buluyor. Bu nedenle hep aynı sonuç çıkıyor. (tır lardan birinin sonunda boşluk olduğu için farklı sonuç buluyor) Tekrar eden firma isimleri olacaksa bence form tasarımını biraz değiştirmeniz lazım. Textboxlar yerine Combobox kullanın, böylece aynı firma isminden farklı kişileri de comboboxlara ekleyerek hepsini görüntüleyebilirsiniz.

 

[Necdet]

merhabalar
Arkadaşlar dün yanıt bulamadığım sorum ile ilgili yardım rica ediyorum
ekdeki örnekte
textbox a listbox 1 den veri gönderebiliyorum.(veriler alfabetik olarak sıralanmış)

buna ilave olarak
listbox 2 den textbox lara veri gönderme ile ilgili problem yok
fakat
listbox2 deki verilerde alfabetik olarak sıralansın istiyorum
(veriler yani firma isimleri alfabetik sıralansın istiyorum)


iyi çalışmalar

Bugün yanıt buldunuz mu?

 

[ferhat73]

nejat bey
problemin büyük kısmını janveljan bey halletti
yalnız aşağıdaki durum ile ilgili çözüm üretemedik.
konu ile ilgili sizin öneriniz var mı ??



firma ismi aynı olan aşağıdaki gibi bir durum olduğunda
listbox 2 yi tıkladığımda tekstboxlara
isim-soyadlar aşağıdaki gibi gitmiyor.

isim-soyad firma
Erdem Tır
Fikri Tır
Vahit Canberk Tır
ali Tır