listbox

[sinemomec]

userformdan verileri kaydedip tekrar listbox görüntülüyorum ancak çok veri var en en alt kısma atıyor bunu listboxta en son veriyi en üstte nasıl görüntületebilirim.

 

[sinemomec]

sondan başa doğru sıralama yapmak istiyorum ama başaramadım

 

[sinemomec]

gelen ve giden evrak listboxları kayıt numarasına göre büyükten küçüğe göre sıralatmak istiyorum.

İndir EVRAK KAYIT deneme

Dosyayı indir EVRAK KAYIT deneme

dosya.co

 

[sinemomec]

sürekli en alta gelmek zor oluyor ancak doğru yolu bulup yapamadım yardımlarınızı bekliyorum

 

[AdemCan]

Gelen Evrak formu kaydet kodlarını değiştiriniz.
Kayıt Numarasına göre büyükten küçüğe doğru sıralama yapıldı.

Private Sub Cmdkaydet_Click()
If Cbgeldiğikurum.Text = "" Then
    MsgBox "GELDİĞİ KURUM VE KURULUŞ BOŞ OLAMAZ.", vbInformation, "BİLDİRİ"
    Exit Sub
ElseIf Tbtarih.Text = "" Then
    MsgBox "TARİH BOŞ OLAMAZ.", vbInformation, "BİLDİRİ"
    Exit Sub
ElseIf Tbevrakno.Text = "" Then
    MsgBox "EVRAK NO BOŞ OLAMAZ.", vbInformation, "BİLDİRİ"
    Exit Sub
ElseIf tbek.Text = "" Then
    MsgBox "EK BOŞ OLAMAZ.", vbInformation, "BİLDİRİ"
    Exit Sub
ElseIf Cbdesimaldosya.Text = "" Then
    MsgBox "DESİMAL DOSYA KODU OLAMAZ.", vbInformation, "BİLDİRİ"
    Exit Sub
ElseIf Cbkonu.Text = "" Then
    MsgBox "KONUSU OLAMAZ.", vbInformation, "BİLDİRİ"
    Exit Sub
ElseIf Cbhavaleedilenmemur.Text = "" Then
    MsgBox "HAVALE EDİLEN MEMUR BOŞ OLAMAZ.", vbInformation, "BİLDİRİ"
    Exit Sub
End If

sonsatır = Worksheets("GELENEVRAK").Cells(Rows.Count, "A").End(xlUp).Row + 1
sonsatır2 = Worksheets("GELENKURUM").Cells(Rows.Count, "A").End(xlUp).Row + 1
sonsatır3 = Worksheets("KONUGELEN").Cells(Rows.Count, "A").End(xlUp).Row + 1

If sonsatır = 2 Then
    Worksheets("GELENEVRAK").Cells(2, 1) = 1
Else
    Worksheets("GELENEVRAK").Cells(sonsatır, 1) = sonsatır - 1
End If
    Worksheets("GELENEVRAK").Cells(sonsatır, 2) = Cbgeldiğikurum.Value
    Worksheets("GELENEVRAK").Cells(sonsatır, 3) = Tbtarih.Value
    Worksheets("GELENEVRAK").Cells(sonsatır, 4) = Tbevrakno.Value
    Worksheets("GELENEVRAK").Cells(sonsatır, 5) = tbek.Value
    Worksheets("GELENEVRAK").Cells(sonsatır, 6) = Cbdesimaldosya.Value
    Worksheets("GELENEVRAK").Cells(sonsatır, 7) = Cbkonu.Value
    Worksheets("GELENEVRAK").Cells(sonsatır, 8) = Cbhavaleedilenmemur.Value
    Worksheets("GELENKURUM").Cells(sonsatır2, 1) = Cbgeldiğikurum.Value
    Worksheets("KONUGELEN").Cells(sonsatır3, 1) = Cbkonu.Value
    MsgBox "VERİ KAYDEDİLDİ.", vbInformation, "BİLDİRİ"

sonsatır = Worksheets("GELENEVRAK").Cells(Rows.Count, "A").End(xlUp).Row

    With Worksheets("GELENEVRAK").Sort
        .SortFields.Add2 Key:=Range( _
        "A2:A" & sonsatır), SortOn:=xlSortOnValues, Order:=xlDescending
        .SetRange Range("A1:H" & sonsatır)
        .Header = xlYes
        .Apply
    End With

Cbgeldiğikurum.Value = ""
Tbtarih.Value = ""
Tbevrakno.Value = ""
tbek.Value = ""
Cbdesimaldosya.Value = ""
Cbkonu.Value = ""
Cbhavaleedilenmemur.Value = ""
listele
gelen_kurum_listesi
gelen_konu_listesi
End Sub

 

[sinemomec]

kodu kopyaladım ama değişen bir sonuç olmadı.

 

[AdemCan]

Spoyler: Sonuç

 

[sinemomec]

Lstgelenevrak.ListIndex = Lstgelenevrak.ListCount - 1
bu kod ile son satırı gösterme yaparak düzenledim. Şu anda en iyi sonuç bu oldu

 

[AdemCan]

Sorun çözüldüyse tamamdır.