Listbox daki veriyi artalana göre sıralama

[sqoist]

Arkadaşlar merhaba ben bir STK takibi için bir uygulama yazmaya çalışıyorum. Fakat listbox ve excel de sıralamayı azalana göre yapamıyorum. VBA şifresi 885500 yardımcı olur iseniz sevinirim birde acaba listbox u renklendirme gibi bir özellik var mı acaba. Şimdiden teşekkür ederim.


<a href="https://ibb.co/cYnR0r8">


https://files.fm/u/u7a2kryvmn?ak=d52a5

 

[cems]

Site çalışmadığından eklenen dosya indirilemiyor, www.dosya.tc gibi yerel bir depolama kullanmanız gerekebilir.

Bir filir vermesi açsından

Azalan sıralamada yapmak için

Sub SiralamaAzalan()
    Dim i As Long
    Dim j As Long
    Dim temp As Variant
    Dim veri As Variant
    
    ' ListBox verisini al
    For i = 0 To ListBox1.ListCount - 1
        veri(i) = ListBox1.List(i)
    Next i
    
    ' Diziyi azalan sıraya göre sırala
    For i = 0 To UBound(veri) - 1
        For j = i + 1 To UBound(veri)
            If veri(i) < veri(j) Then
                ' Verileri değiştir
                temp = veri(i)
                veri(i) = veri(j)
                veri(j) = temp
            End If
        Next j
    Next i
    
    ' Listeyi temizle ve yeni sıralanmış veriyi ekle
    ListBox1.Clear
    For i = 0 To UBound(veri)
        ListBox1.AddItem veri(i)
    Next i
End Sub

Eğer VBA'da çalışıyorsanız, belirli bir satırın rengini değiştirmek için bir çözüm süreci şu şekilde olabilir.

Private Sub ListBox1_DrawItem(ByVal Index As Integer, ByVal Rect As MSForms.Rect, ByVal State As Integer)
    Dim text As String
    text = ListBox1.List(Index)
    
    ' Örneğin, satırda çift sayılı öğeleri kırmızı, tek sayılı öğeleri mavi yapalım
    If Index Mod 2 = 0 Then
        ListBox1.BackColor = RGB(255, 0, 0) ' Kırmızı
    Else
        ListBox1.BackColor = RGB(0, 0, 255) ' Mavi
    End If
    
    ' Satırda yazıyı çizme
    ListBox1.ForeColor = RGB(255, 255, 255) ' Beyaz yazı
    ListBox1.Line (Rect.Left, Rect.Top)-(Rect.Right, Rect.Bottom), RGB(255, 255, 255), B
    ListBox1.Print text
End Sub

Deneme şansım olmadı

 

[sqoist]

https://www.dosya.tc/server/acjp4d/SKT_-_Kopya.xlsm.html
Dosyayı tekrar ekledim ilginiz için teşekkür ederim deneyeceğim . Teşekkür ederim

 

[cems]

Dosyanız hasarlı uyarısı vererek kendisini kapatıyor. Kapanmayı engelleyerek açınca tek bir sayfa gorunuyor ve uzerinde de 7 8 ağagı dogru satır var ve
5 6 kadar da sağa dogru sutunlar var. Anlamaya çalıştığım ise neden 1mb agırlıgında dosya ve formuller nereye baglanıyor .Gizllenmiş sayfa da form da goremedim, kısacası bir nedenle aşırı budanmış bir sayfa ve kalanlar hiç bir fikir vermedi.

 

[sqoist]

Olmadı yapamadım linki tekrar düzenleyip attım
kullanıcı adı AYAN Şifre:885500 vba şifreside aynı
istediğim şey kalan süre kısmındaki sayıya göre sıralama en yakın tarih en üstü olacak sekilde
renklendirmede
skt