Verileri Sırala

[rahmi06]

Kolay gelsin üstadlar. Bir formum var. Formumda 4 adet TextBox, 1 adet ListBox ve 1 adet ComboBox var. Formu Sayfa 1 de açıyorum ve verilerimi Sayfa1 ve Sayfa2 ye kayıt yapıyor ve siliyorum. ListBox a da verileri sayfa2 den getirtiyorum.

Sizlerden ricam, Kaydet butonuna bastığımda işlemlerimi yaptıktan sonra Sayfa2 deki verilei B2:F aralığı A-Z ye sıralamasını istiyorum. ListBox1 deki verileri güncelemek için formu kapatıp tekrar açtırıyorum. Başka bir formülü varmı acaba?
Kaydet butonun makrosu:

Private Sub CommandButton1_Click()
If TextBox1.Text <> "" Then
If ComboBox1.Text <> "" Then
If Yeni_mi = True Then
Son_Dolu_Satir = Sheets("E_Kredi").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("E_Kredi").Range("A" & Bos_Satir).Value = _
     Application.WorksheetFunction.Max(Sheets("E_Kredi").Range("A:A")) + 1
Sheets("E_Kredi").Range("E" & Bos_Satir).Value = TextBox1.Text
Sheets("E_Kredi").Range("C" & Bos_Satir).Value = TextBox2.Text
Sheets("E_Kredi").Range("D" & Bos_Satir).Value = TextBox3.Text
Sheets("E_Kredi").Range("F" & Bos_Satir).Value = TextBox4.Text
Sheets("E_Kredi").Range("B" & Bos_Satir).Value = ComboBox1.Text
Else
Degistirilecek_Satir = ListBox1.ListIndex + 2
Sheets("E_Kredi").Range("E" & Degistirilecek_Satir).Value = TextBox1.Text
Sheets("E_Kredi").Range("C" & Degistirilecek_Satir).Value = TextBox2.Text
Sheets("E_Kredi").Range("D" & Degistirilecek_Satir).Value = TextBox3.Text
Sheets("E_Kredi").Range("F" & Degistirilecek_Satir).Value = TextBox4.Text
Sheets("E_Kredi").Range("B" & Degistirilecek_Satir).Value = ComboBox1.Text
End If
Else
MsgBox "Adresi Girmeniz Gerekiyor", vbExclamation, "Eksik Bilgi Girişi"
End If
Else
MsgBox "Tarih Boş Olamaz", vbExclamation, "HATA Eksik Bilgi"
End If
'Geçerli Sayfaya Kayıt Yapar
e = WorksheetFunction.CountA(Range("D79:D86"))
Cells(e + 79, "d") = ComboBox1.Text
Cells(e + 79, "k") = TextBox2.Text
Cells(e + 79, "n") = TextBox3.Text
ComboBox1 = ""
TextBox2 = ""
TextBox3 = ""
Unload Me
EvKredi.Show 0
End Sub

Not: Kodlar başka dosyalardan derlenerek (kopyalanarak) yazılmıştır.

 

[halit3]

unload Me den sonra aşağıdaki kodu ekleyiniz.

son = Sheets("Sayfa2").Cells(Rows.Count, "F").End(3).Row
Sheets("Sayfa2").Range("B2:F" & son).Sort Key1:=Sheets("Sayfa2").Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

 

[rahmi06]

Çok Teşekkürler Halit Bey işimi gördü.

 

[halit3]

iyi çalışmalar