combobox ta verileri siralama

[polis-53]

Merhaba arkadaşlar aşağıdaki kod da verileri nasıl sıralayabilirim kolay gelsin.

Private Sub Worksheet_Activate()
Dim sat, s As Integer
ComboBox1.Clear
For sat = 2 To Sayfa24.Cells(65536, "I").End(xlUp).Row
If Not WorksheetFunction.CountIf(Sayfa24.Range("I2:I" & sat), Sayfa24.Cells(sat, "I")) > 1 Then
ComboBox1.AddItem
ComboBox1.List(s, 0) = Sayfa24.Cells(sat, "I")
s = s + 1
End If: Next
End Sub

 

[Korhan Ayhan]

Eğer verileri sayfada sıralama şansınız varsa kullandığınız kod işe yarayabilir.

Yoksa farklı yöntemle kod içinde sıralanması gerekir.

 

[polis-53]

evet kod içinde sıralamak istiyorum

 

[EmrExcel16]

Aşağıdaki kodlar ile yapılabilir .

Private Sub Worksheet_Activate()
Dim list As Object
Set list = CreateObject("System.Collections.ArrayList")
Set Rng = Sheets("Sayfa24").Range("I2", Cells(Sheets("Sayfa24").Rows.Count, "I").End(xlUp))
ComboBox1.Clear
For Each rCell In Rng.Cells
    If Not list.Contains(rCell.Value) Then
        dd = (rCell.Value)
        If Not WorksheetFunction.CountIf(Sheets("Sayfa24").Range("I2", Cells(rCell.Row, "I")), (rCell.Value)) > 1 Then
            list.Add (rCell.Value)
        End If
    End If
Next rCell
list.Sort
ComboBox1.list = list.ToArray()
Set list = Nothing
End Sub

 

[polis-53]

Sayın
EmrExcel16
Kod aşağıdaki satırda hata verdi
Set Rng = Sheets("Sayfa24").Range("I2", Cells(Sheets("Sayfa24").Rows.Count, "I").End(xlUp))

 

[EmrExcel16]

"Sayfa24" adında bir sayfanız var mı ? yada "Sayfa24" yazan yerleri ComboBox 'ın veri alacağı yere göre değiştiriniz.

"Sayfa24" adlı sayfayı sizin ilk mesajda verdiğiniz kodlardan yola çıkarak yazmıştım.

 

[polis-53]

evet sayfa24 diye bir sayfam ardır dosya ektedir.

 

[EmrExcel16]

Dosyanızı sıkıştırmadan veya zip olarak sıkıştırıp tekrar yükler misiniz . RAR uzantıları açamıyorum.

 

[EmrExcel16]

Dosyanızı açamadım ama , birde bu şekilde deneyin.

Private Sub Worksheet_Activate()
Dim list As Object
Set list = CreateObject("System.Collections.ArrayList")
Set Rng = Sheets("Sayfa24").Range("I2", Sheets("Sayfa24").Cells(Sheets("Sayfa24").Rows.Count, "I").End(xlUp))
ComboBox1.Clear
For Each rCell In Rng.Cells
    If Not list.Contains(rCell.Value) Then
        dd = (rCell.Value)
        If Not WorksheetFunction.CountIf(Sheets("Sayfa24").Range("I2", Sheets("Sayfa24").Cells(rCell.Row, "I")), (rCell.Value)) > 1 Then
            list.Add (rCell.Value)
        End If
    End If
Next rCell
list.Sort
ComboBox1.list = list.ToArray()
Set list = Nothing
End Sub

 

[polis-53]

zipli gönderemiyorum excel olarak bir çalışma gönderdim.

 

[EmrExcel16]

Son gönderdiğim kodları denediniz mi ? Aynı hatayı veriyor mu ?

 

[EmrExcel16]

Birde gönderdiğiniz dosyada ay isimleri var bunlar alfabetik olarak sıralanırsa , ay sıralaması karışacak , siz bu şekilde bir şey mi istiyorsunuz onu anlamadım.

 

[polis-53]

ben 1000 satıra yakın excel formatın da veri çekiyorum bu çektiğim verileri kopyala yapıştır la dosyamın sayfa1 e yapıştırıp kombodan aya göre veri alıyorum.

 

[Korhan Ayhan]

Veriler alfabetik sıralanabilir. Bunda sıkıntı yok. Fakat ay seçimi kutusunda bu sıralama ne kadar mantıklı olur orası soru işareti.

Bunun yerine ComboBox'a direk 12 aylık liste yüklenebilir. Tabi ki tercih meselesi...

 

[polis-53]

teşekkür ederim