sıralama sorunu

[mersilen]

Arkadaşlar
filtreleme ve sıralamada

 Sub sirala_201()
    Range("A20:ee1262").Select
    Selection.Sort Key1:=Range("W20"), Order1:=xlAscending, Key2:=Range("B20" _
        ), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
End Sub

kodunu kullanıyorum
önce w sütununu sonra B sütununu sıralama yapıyor
B sütununu sıralama yaparken
3:334:15
sayılarda mod düzenlemesine benzer birşeyler yapmak mümkün mü?

 

[halit3]

Örnek dosyandaki sıralamaya baktım sıralamada bir uyum göremedim.
Alternatif olarak aşağıdaki kodu denermisiniz.

Sub sırala()
sat = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
sut = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Range(Cells(1, 1), Cells(sat, sut)).Select
Application.Dialogs(39).Show
Range("a1").Select
End Sub

 

[mersilen]

Halit bey cevap için teşekkürler
dediğiniz gibi olmadı

öncelikle w sütununu sıralama yapacak sonra w sütununda aynı olanları tekrar kendi içinde b sütununa göre sıralama yapacak.Daha önce yazmış oldup-ğum kod bunu yapıyor ama b sütunundaki
b1= 3:202:11
b2= 11:202:9
ise önce b2 sonra b1 geliyor
ben b1 sonra b2 gelsin istiyorum
tabloyu daha anlaşılır şekilde düzettim

 

[volkangandalf]

Halit bey cevap için teşekkürler
dediğiniz gibi olmadı

öncelikle w sütununu sıralama yapacak sonra w sütununda aynı olanları tekrar kendi içinde b sütununa göre sıralama yapacak.Daha önce yazmış oldup-ğum kod bunu yapıyor ama b sütunundaki
b1= 3:202:11
b2= 11:202:9
ise önce b2 sonra b1 geliyor
ben b1 sonra b2 gelsin istiyorum
tabloyu daha anlaşılır şekilde düzettim

İyi çalışmalar.
b1=3:202:11 yerine b1=03:202:11 ; b2=11:202:9 yerine b2=11:202:09 yazarsanız kodunuz istediğiniz gibi çalışır.

 

[mersilen]

selam
sayılar web sayfasından geliyor
Rohstoffe auf 1:211:5 (Planet)
bunun formülle sağdeşleştirilmesinden geride kalıyor
yaklaşık 1500 satırda bu düzen mevcut.