Artan ve Azalan Sıralama makrosu ?

[foxtrot]

Merhabalar

sorum şöyle ;

Aynı sayfa içine 2 buton yaptım ve bu butonlara makro atamak istiyorum

birisi artan sıralama yapıcak digeri azalan sıralama

A1 B1 C1 D1 E1 hücrelerine başlık yazdım

ben B1 hücresinin altındaki degerlere göre tüm sayfanın sıralanmasını istiyorum

bunun için gereken makro nasıl yazılmalı ?


Yardımlarınız için şimdiden teşekkürlerediyorum

saygılarımla .

 

[N.Ziya Hiçdurmaz]

  Columns("A:E").Sort Key1:=Range("B1"), Order1:=xlAscending ' A dan zye
     
  Columns("A:E").Sort Key1:=Range("B1"), Order1:=xlDescending 'Zden aya

 

[foxtrot]

Sayın hocam

teşekkürediyorum fakat bu kodları uyguladıgımda

A1 B1 C1 D1 E1 hücrelerindeki yazdıgım konu başlıklarıda yerdegiştiriyor

konu başlıklarının sabit kalmasını nasıl saglayabiliriz ?

 

[Seyit Tiken]

Bu şekilde bir deneyiniz.

Sub Makro1() 'a dan z ye
[a2:e100].Sort Key1:=[a2], Order1:=xlAscending
End Sub
Sub Makro2() 'z den a ya
[a2:e100].Sort Key1:=[a2], Order1:=xlDescending
End Sub

 

[foxtrot]

Sayın V.Basic For Applications
ve
Sayın Seyit Tiken

Yardımlarınız için çok teşekkürler ediyorum.. Evet şimdi tam istedigim gibi oldu çalışıyor

Çok sağolun iyi çalışmalar diliyorum

 

[Leoncio]

Merhaba;

Gerçi cevap verilmiş ama alternatif olması açısından;
Hangi kolona göre sıralama yapacaksanız aşağıdaki kodlar ile yapabilirsiniz.

Sub azalan()
Selection.Sort Key1:=ActiveCell, Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub


Sub artan()
Selection.Sort Key1:=ActiveCell, Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

 

[foxtrot]

Sayın leventer

verdiginiz yeni bilgi için öncelikle teşekkürederim.

bu kod hakkında biraz bilgi vermeniz mümkünmü yani kolon derken

sutunlarımı sıralıyor , satırlarımı sıralıyor !

birde ( ActiveCell ) yazan yere hangi bilgiyi girmek gerekir veya gerekirmi ?

teşekkürler.

 

[ismailuguz]

ben sadece a1 ile a15 arasındaki isimlerin sıralanmasını istiyorum diğerlerinin sırasının bozulmasını istemiyorum bunu nasıl yapabilirim.
teşekkürler

 

[veyselemre]

Merhaba
A1 hücresi de sıralamaya dahilse aşağıdaki şekilde deneyin. Dahil değilse A2 den başlarsınız.
Range("A1:A15").Sort Key1:=Range("A1"), Order1:=xlAscending

 

[marimar]

sort, key1 e order1 nedir açıklayabilirmisiniz teşekkürler

 

[Necdet]

Merhaba

Sort : Sıralama
Key1: Birinci Sıralama Sütunu (ikincisi olsa idi Key2: denecekti)
Order1 : Birinci Sıralam Şekli (A-Z, yada Z-A, yani Büyükten Küçüğe ya da Küçükten Büyüğe

Demektir

 

[marimar]

teşekkürler sayın Necdet_Yesertener key1 için sıralama sütunu demişsiniz ama key1' e sütun değil de hücre belirtiyoruz yani key1:=range("a") demiyoruz key1:=range("a1") diyoruz buraya a1 değil a2 veya başka birşey yazsak ne olur tam anlayamadım

 

[Necdet]

Sayın marimar,

range belirtiyoruz Range("A1") yada başka yazılımla [A1]. bunun anlamı makro A sütununa göre sıralama yapacağıdır. O yüzden sütun lafını kullandım.

Ben bir keresinde (tam emin değilim) A1 yerine A2 yerine A1 demiştim sonuçta pek bir değişiklik olmadı, istediğim gibi çalıştı, yinede denemek gerek derim.

 

[marimar]

hazırladığım bir çalışmayı ekte veriyorum burada sırala deyince a2 ile a26 arasındaki veriler harf sırasına göre sıralanıyor benim istediğim textbox'a aralık yazıp yazmış olduğum aralığı sıralatmak yani textbox'a a2:a21 yazınca a2 ile a21 arasındaki veriler sıralansın istiyorum bunu yapabilirmiyiz.
Diğer bir sorum ise temizle butonuna basınca labellerdeki isimler temizleniyor ben aynı zamanda tüm checkbox'larında temizlenmesini istiyorum.
teşekkürler

 

[Seyit Tiken]

Bir sorunuzun cevabı :

Private Sub CommandButton1_Click()
For s = 1 To 3
Controls("CheckBox" & s) = 0
Next
End Sub

Diğer sorunuzun cevabı :

Sub Makro1()
s = InputBox("Aralık Giriniz")
Range(s).Sort Key1:=Range("A2"), Order1:=1
End Sub

 

[ozsah]

Sub sırala()
ActiveSheet.Unprotect "sy"
Range("a5:M1000").Select
Selection.Sort Key1:=Range("C5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
[c65536].End(3).Offset(1).Select
ActiveSheet.Protect "sy", DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:= _
True
End Sub

Sayın Tiken Ve Diğer Uzmanlar.
Yukarıdaki Makronun Azalan Şekline Nasıl Dönüştürebilirim.

 

[kayserciyes]

arkadaşlar soruyu kime sorduğumu bilmiyorum
excelde bir tablom var bir makro düğmesi koydum.
buna basınca sıralama yapsın istiyorum sıralama yerleri: C10:AK139 arası C9'dan AK9 a kadar başlıklarım var ve ben AK9'daki başlığıma göre sırlama olsun istiyorum yani AK sutununa göre. bunun için bir makro kodu yazan olursa sevinirim.
umarım meraqmımı anlata bilmişimdir.

 

[kayserciyes]

birde çalışma sayfamın adı sınıf excel dosyasının adı okul bunlarda lazım olup bir yerlerde kyullanılacaksa yazayım istedim

 

[Necdet]

Memhaba,

İşi sağlama bağlamak için örnek dosyayı görmekte yarar var.

 

[kayserciyes]

arkadaşlar yukardaki kodlardan birini uyguladım oldu geçten güzel teşekkür ediyorum
şimdi sıralamayı iki aşamalı yapmak istiyorum yani önce E9 sonra AK9 a göre.
önce ben bir örneklere bakayım sonra yapamazsam yazarım kimseyi boşa yormamak lazım
herkese iyi çalışmalar.