Sort macrosu

[16prens]

Slm
önğ:
A1-E800 arsaından E1-E800 sutunununda büyükten küçüğe ve küçükten büyüğe ayrı ayrı sıralatmak istiyorum kod için yardımcı olursanız sevinirim.
Teşekkürler

 

[Necdet]

Merhaba,

A1 hücresinin değeri 1 ise küçükten büyüğe, 2 ise büyükten küçüğe sıralar.

Sub Sirala()
    
    Range("A18:E800").Sort Key1:=[D1], Order1:=Range("A1")
    
End Sub

 

[16prens]

özür dilerim yazım hatası yapmışım.
A1:E800 hücreleri arasından E1-E800 sutunlarını sort edecem
büyükten küçüğe (ayrı buton koyarak)
küçükten büyüğe (ayrı buton koyarak)

 

[Necdet]

özür dilerim yazım hatası yapmışım.
A1:E800 hücreleri arasından E1-E800 sutunlarını sort edecem
büyükten küçüğe (ayrı buton koyarak)
küçükten büyüğe (ayrı buton koyarak)

verdiğim kodların üzerinde biraz kafa yorsanız sorunuzun çözüldüğünü anlayacaksınız.

Sub KucuktenBuyugeSirala()
    
    Range("A18:E800").Sort Key1:=[D1], Order1:=1
    
End Sub

Sub BuyuktenKucugeSirala()
    
    Range("A18:E800").Sort Key1:=[D1], Order1:=2    
End Sub

Bu kodları butona bağlayabilirsiniz.

 

[Necdet]

2 ayrı buton ama tek makro ile de sıralama yaptırabilirsiniz.

Düğme adları "Düğme 1" ve "Düğme 2" olduğunu varsayarsak :

Sub SIRALA()
 
    Dim Sat As Integer, _
        Prm As Integer
        
    '   Prm = 1 (xlAscending Küçükten Büyüğe)
    '   Prm = 2 (xlDescending Büyükten Küçüğe)
    
    Sat = Cells(Rows.Count, "A").End(3).Row
    
    Prm = Split(Application.Caller, " ")(1)
    
    Range("A2:B" & Sat).Sort Key1:=[A1], Order1:=Prm
    
End Sub

Düğme adlarını 1 ve 2 olarak kullanmak istersek

Prm = Split(Application.Caller, " ")(1)

satırını aşağıdaki gibi kullanabiliriz.

Prm = Application.Caller

Dosyayı inceleyiniz ve aralığı kendinize göre uyarlayınız.

 

[16prens]

Teşekkür ederim. Emeğinize sağlık

 

[16prens]

Arakadaşlar bu sırala macrosunu bir türlü uyarlayamadım.

Sub Ocak_Hata_Adetine_Göre_Sırala()

Range("C9B2002").Sort Key1:=[Aj9], Order1:=2
End Sub
Bu kodu yazıyorum sıralamayı 700 lerde yapıyor verileri bozuyor.
Benim verim
C9B2002 ÖRNEĞİN AJ9 GÖRE SIRALATTIRIYOM VERİLER ORTADA KALIYOR. LÜTFEN YARDIM

 

[16prens]

Sırala makrosu

Slm
Arkadaşlar sırala makrosu için lütfen yardım
Ekte belirtiğim dosyada C9B2002 hücreleri arasında veriler içeriyor.
Ben aylara göre sıralatmak istiyorum(puan,adet,sıra no)gibi
Örn:C9B2002 AK9 sıralatmak istiyorum.

Uyguladığım makrolarda sıralama yapıyor fakat 700 lerde bırakıyor en üste almıyor
yardımlarınızdan dolayı teşekkür ederim