Rakamı yok sayarak sıralama

[ferhatgurbuz]

Kolay gelsin. Bir sutunda
1.İdare Mahkemesi
2.Vergi Mahkemesi
3.İdare Mahkemesi
2.İdare Mahkemesi
1.Vergi Mahkemesi

bir sutunda bulunan verileri sıralattıım zaman sayılara göre sıralama yapıyor. Yani önce 1. İdare Mahkemesi, Sonra 1.Vergi Mahkemeisi geliyor. Ben bunu sayılara bakmaksızın önce idare mahkemelerini kendi aralarında sonra vergi mahkemelerini kendi aralarında sıralatmak istiyorum.

 

[Ömer]

Merhaba,

Yardımcı sütun kullanarak yaptım.

Veriler A sütununda olduğu düşünülmüştür. B sütununun boş olması gerekiyor. Tercihe göre yardımcı sütunu değiştirebilirsiniz.Yalnız sıralama yapılacağını göz önünde bulundurursak yan yan olmasında fayda var.

Option Explicit
 
Sub Sırala()
Dim i As Long, son As Long
Application.ScreenUpdating = False
On Error Resume Next
son = [A65536].End(3).Row
    For i = 1 To son
        Cells(i, "B") = Split(Cells(i, "A"), ".")(1) & _
        Split(Cells(i, "A"), ".")(0)
     Next i
Range("A1:B" & son).Sort Range("B1"), xlAscending
Range("B1:B" & son).ClearContents
Application.ScreenUpdating = True
End Sub

.

 

[ferhatgurbuz]

örnek dosya ektedir

Ömer Hocam ben uyarlayamadım. Eğer zahmet olmazsa uyarlayabilirmisinzi. Teşekkürler

 

[İhsan Tank]

ömer hocanın kodunu uyarladım

Sub SIRALA()
Dim i As Long, son As Long
Application.ScreenUpdating = False
On Error Resume Next
son = [C65536].End(3).Row
For i = 1 To son
Cells(i, "G") = Split(Cells(i, "C"), ".")(1) & _
Split(Cells(i, "C"), ".")(0)
Next i
Range("C3:G" & son).Sort Range("G3"), xlAscending
Range("G3:G" & son).ClearContents
Application.ScreenUpdating = True
End Sub

eki inceleyiniz

 

[ferhatgurbuz]

Arkadaşlar söyle bir sıkıntı daha var. 9.dan sonra 10.diye iki haneli sayılara gelince 1 den sonra 10 ve 11 geliyor. Bunun için bir çözüm varmı. Teşekkürler. Kolay gelsin

 

[İhsan Tank]

Arkadaşlar söyle bir sıkıntı daha var. 9.dan sonra 10.diye iki haneli sayılara gelince 1 den sonra 10 ve 11 geliyor. Bunun için bir çözüm varmı. Teşekkürler. Kolay gelsin

Cells(i, "G") = Split(Cells(i, "C"), ".")(0) & _

yukarıdaki kodu değiştiriniz

 

[ferhatgurbuz]

Maalesef bu seferde önce 1. İdareyi sonra da 1.Vergiyi sıralatıyor, Önec idareleri kendi arasında birden 10 a kadar sıralaması lazım. sonrada vergileri kendi arasında 1 den 11 e kadar sıralaması lazım

 

[Ömer]

Bu şekilde deneyin..

Option Explicit
 
Sub Sırala()
Dim i As Long, son As Long
Application.ScreenUpdating = False
On Error Resume Next
son = [B65536].End(3).Row
    For i = 3 To son
        Cells(i, "G") = Split(Cells(i, "C"), ".")(1) & _
        Application.Rept("a", Split(Cells(i, "C"), ".")(0))
     Next i
Range("B3:G" & son).Sort Range("G3"), xlAscending
Range("G3:G" & son).ClearContents
Application.ScreenUpdating = True
End Sub

.

 

[ferhatgurbuz]

Sıralamaya bir sütün ilave olabilirmi.?

kolay gelsin. Şöyle birşey daha istesem. Sıralamaya F sutunununuda ilave edebilirmiyiz.Önce F sutununu tarihe göre sıralayacak, sonra C sutunundaki sıralamayı yapacak. Teşekkürler kolay gelsin

 

[Ömer]

Bu şekilde deneyin..

Option Explicit
 
Sub Sırala()
Dim i As Long, son As Long
Application.ScreenUpdating = False
On Error Resume Next
son = [B65536].End(3).Row
    For i = 3 To son
        Cells(i, "G") = Split(Cells(i, "C"), ".")(1) & _
        Application.Rept("a", Split(Cells(i, "C"), ".")(0))
     Next i
Range("B3:G" & son).Sort Key1:=Range("F3"), Key2:=Range("G3")
Range("G3:G" & son).ClearContents
Application.ScreenUpdating = True
End Sub

.

 

[ferhatgurbuz]

çok teşekkür ederim. Emeğinize sağlık. Hayırlı çalışmalar

 

[ferhatgurbuz]

ömer hocam ellerinize sağlık. kolay gelsin