Sıralama Makrosu Oluşturmak

[imdatsaral]

Arkadaşlar ekte gönderdiğim excel dosyasında sıralama yapmam gerekiyor yardımcı olurmusunuz

 

[Guest]

Umarım ihtiyacınızı karşılar

 

[imdatsaral]

Butona bastığımda hata veriyor

Selection.Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

bu satırlar sarı renk oluyor.

 

[BeyazGölge]

Ben denedim çok iyi çalışıyor..

 

[mehmetcan]

Bende denedim çalışıyor,zaten kod larda hata olması biraz zor çünkü makro kaydetten yapılmış
:kafa:

 

[TheBest]

Þimdi arkadaşlar bende çalışıyor demişsiniz,ama diğer arkadaşta neden çalışmıyor hiç düşündünüz mü?
Bir kere sayın Türkerin cevabı makro kaydet düğmesiyle Excelin otomatik olarak oluşturduğu kodlardan başka bir şey değil.
Ayrıca kendisi Excel2002 kullandığından ve sayın imdatsaralın muhtemelen Excek97 kullandığından yukarıdaki satırda hata mesajı alınıyor,yani görünen o ki hatanın sebebi versiyon farkı.
En iyisi siz de sayın Türker gibi makro kaydet düğmesine basın ve kendiniz Veri sırala menüsü ile bir yansan sıralatın,diğer yandan ise Excel kendisi VBE sayfasında sizin için bu kodları oluşturmuş olsun.
Eğer yine de Türker beyin kodlsrını çalıştırmak istiyorsanız,o kodlarda hataya sebep olan son kısmı atın-"DataOption1:=xlSortNormal".
Yani şu şekilde değiştirin.

Range("A1").Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Kolay Gelsin.