sıralama

[Astik]

birileri


2
4
5
675
2
34
6
67
5
2
4
7


sayılarını makroda if ve for ile sıraya soksun allah aşkına..

 

[Ali]

Küçükten büyüğe sıralamak için

Sub Makro1()
Range("A1:A100").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

Büyükten küçüğe sıralamak için.

Sub Makro2()
    Range("A1:A100").Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

 

[nikomedian]

hocam peki, elimde B:4 L:4 arası B:23 L:23 arasın gibi aritmatik ilerleyen bir tablom var, bunun içinde 74 82 90 XS XXS XS XXL XL S L ML ve boşluk gibi karmaşık sıralanmış veriler var. Bunları örneğin, eğer varsa

74 82 90 XXl XL L ML XS L S XS XXS sırasına dizip geriye alan alanları boş bırakacak olarak nasıl sıralayabilirim,
Not: B - L arasında sadece XL 74 L olduğunu varsayarsak
74 XL L şeklinde dizip geri kalanları boş bırakacak, mümkün mü böyle birşey yapmak?

 

[Ali]

Sayın nikomedian,Bildiğim kadarı ile satırlarda sıralama makrosu çalışmamaktadır.

 

[Astik]

eline sağlık Ali..

peki sort edilen sayılar sort edilmemiş gibi aynı yerde dursa da ben sort edilmiş halini sheets(2)'ye yazdırsam nasıl olacak?

 

[Ali]

Sub Makro2()
    Sheets("Sayfa1").Range("A1:A100").Copy
    Sheets("Sayfa2").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A1").Select
    Application.CutCopyMode = True
End Sub

 

[nikomedian]

Sayın nikomedian,Bildiğim kadarı ile satırlarda sıralama makrosu çalışmamaktadır.

İlginiz için teşekkür ederim Ali bey.

 

[Astik]

teşekkürler Ali bey..