isim ve soyisime göre alfabetik siralama

[mtl]

Herkese merhaba,

Ekteki örnek dosyada bulunan isim ve soyisimleri alfabetik siralamak istiyorum. Bu nasıl yapabilirim.?

Yardımlarınıza şimdiden teşekkürler.

 

[mehmett]

Tüm sütunu seçin ve Araç çubuğundaki Artan sıralama (AZ) tuşunu tıklayın.

 

[mehmett]

Pardon, makro bölümünde sorduğunuzu sonradan farkettim.

Bu işi makro ile mi yapmak istiyorsunuz yoksa az önce verdiğim yöntem yeterli mi?

 

[mtl]

Evet makro ile yapmak istiyorum. :|

 

[mehmett]

Araçlar > Makro > Yeni makro kaydet komutlarını verin.

Yukarıda verdiğim yöntemi uygulayın. Yani; (Tüm sütunu seçin ve Araç çubuğundaki Artan sıralama (AZ) tuşunu tıklayın.)

Sayfada Kaydı durdur tuşu varsa tıklayın, yoksa Araçlar > Makro > Kaydı durdur komutu ile kaydı durdurun.

Sayfaya bir nesne çizin veya Formlar araç çubuğundan bir düğme çizin.

Çizdiğiniz düğmeye az önce yazdığınız makroyu atayın.

 

[mtl]

Teşekkür ederim, uyguladım istediğim oldu. Peki makroyu atadığım düğmeye, birinci tıklama ile a' dan z' ye, daha sonra aynı düğmeye ikinci tıklama ile z'den a' ya sıralama yapılabilir mi?

 

[mehmett]

Aynı düğmeye olmaz, bunun için ikinci bir düğme çizip ona da ZA sıralaması yapan bir makro atamanız gerekiyor sanırım, yine de emin değilim.

 

[Tarkan VURAL]

Aynı butonla farklı makrolar kullanabilme

Düğmenize A>Z Sırala ismini verin, ilk tıklamada makrolarınızla A>Z sıraladığında düğme adını makro ile değiştirttirin ve Z>A yazdırın. Koşullarınızı oluşturun ve A>Z adındaki düğme tıklandığında bir makro Z>A tıklandığında başka bir makro çalışsın.

Private Sub commandbutton1_click()
If commandbutton1.caption="A>Z Sırala" then
'A'dan Z'ye sıralatacak kodlarınız
commandbutton1.caption="Z>A Sırala"
elseif commandbutton1.caption="Z>A Sırala" then
'Z'den A'ye sıralatacak kodlarınız
commandbutton1.caption="A>Z Sırala"
end if
end sub

Selamlar;

 

[mtl]

Sn. Tarkan VURAL ve mehmett çok teşekkürler. Son mesaj sorunumu tamamen çözdü. Sağolun...