sıralama gerçekleşmiyor

[öğrtm]

herkese iyi akşamlar bir çalışmanın içerisinde şöyle bir kod dizinim var;

Private Sub CommandButton2_Click()
If UserForm4.TextBox1.Value = "" And TextBox2.Value = "" Then
MsgBox "Veri girmediniz." & Chr(10) & "Lütfen kayıt için veri giriniz.", vbOKOnly + vbExclamation, "Uyarı!"
Exit Sub
End If

Dim sat1, sat2, sat3 As Range
For Each sat1 In Sheets("Listeler").Range("b1:b" & Sheets("Listeler").Range("b1048576").End(3).Row)
For Each sat2 In Sheets("Listeler").Range("e1:e" & Sheets("Listeler").Range("e1048576").End(3).Row)
For Each sat3 In Sheets("Listeler").Range("h1:h" & Sheets("Listeler").Range("h1048576").End(3).Row)
If sat1 = UserForm4.TextBox2.Text Or sat2 = UserForm4.TextBox2.Text Or sat3 = UserForm4.TextBox2.Text Then
MsgBox "Girdiğiniz okul numarası daha önce kullanılmış.Lütfen başka bir numara giriniz.", vbExclamation, "Uyarı!"
UserForm4.TextBox1.Value = ""
UserForm4.TextBox2.Value = ""

Exit Sub

End If

Next sat3, sat2, sat1

Dim sn As Byte
sn = Sheets("Listeler").Range("c1048576").End(3).Row + 1

If UserForm4.ComboBox1.Value = "6/A" Then
Sheets("Listeler").Cells(sn, 1) = sn
Sheets("Listeler").Cells(sn, 2) = UserForm4.TextBox2
Sheets("Listeler").Cells(sn, 3) = UserForm4.TextBox1

UserForm4.TextBox1.Value = ""
UserForm4.TextBox2.Value = ""

Sheets("Listeler").Range("b1:c" & Sheets("Listeler").Range("c1048576").End(3).Row).Sort _
key1:=Sheets("Listeler").Range("b1"), Order1:=xlAscending, _
key2:=Sheets("Listeler").Range("c1"), Order2:=xlAscending

UserForm4.ListBox1.RowSource = "Listeler!A1:c" & Sheets("Listeler").Range("c1048576").End(3).Row

MsgBox "Kayıt Tamamlanmıştır", vbInformation, "Bilgi"

kaydettikten sonra sıralamada yapması gerekirken (kırmızı yazılı kodlarla)yapmıyor yada en sondaki verinin bir üstüne yeni kaydı çekiyor.ilgilenirseniz sevinirim.
iyi akşamlar.

 

[öğrtm]

iyi akşamlar 6-A 7-A 11-A 10-A gibi sınıflarım var.bu sınıfların olduğu sütunda alt sınıftan üst sınıfa göre sıralama yaptırıyorum.1 den 9 a kadar tamam ama 10-A gibi 11-A gibi sınıfları en başlarda gösteriyor halbuki kurmaya çalıştığım düzende 9.sınıftan sonra gelmesi lazım.büyük ihtimalle hücredeki format probleminden ama genelede çevirsem sayı olarakta tanımlasam yapamadım .bu konudaki yardımlarınızı bekliyorum.herkese iyi akşamlar.

 

[Levent Menteşoğlu]

Bunun bir yolu yok ancak tek haneli sınıfları örneğin 1-A yı 01-A şeklinde göterirseniz doğru sıralamayı alabilirsiniz. Yada 1 ve A yı ayrı sütunlarda göstermelisiniz.

 

[öğrtm]

levent bey teşekkür ederim.zannedersem ikinci tavsiyeyi uygulayacağım.herkese iyi günler iyi çalışmalar