Sıralama

[magnesia]

Arkadaşlar selam.
Ekteki dosyada "SIRALA" butonuna bastığımda bir InputBox açılıp ("Sıralanacak Sütun Adını Girin.") diye sormasını istiyorum.
Bu inputbox'a "B" ya da "G" yazacağım.
B sütununu seçersem A'dan Z'ye sıralamasını,
G sütununu seçersem BÜYÜKTEN KÜÇÜĞE doğru sıralamasını istiyorum.

Umarım anlatabilmişimdir.
Şimdiden teşekkürler.

 

[Necdet]

Merhaba,

Kısa yoldan işi halledelim ne dersiniz?

İmleç hangi sütunda bulunursa o sütuna göre (tabi kontrol ederek, B yada G) sıralama yapar.

Private Sub CommandButton1_Click()
    
    Dim i   As Long, _
        Kol As Integer, _
        Sat As Long
    
    If ActiveCell.Column = 2 Then
        i = 1
    ElseIf ActiveCell.Column = 7 Then
        i = 2
    Else
        MsgBox "İmleç B veya G sütununda  değil...", vbCritical
        Exit Sub
    End If
    
    Kol = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
    Sat = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    
    Range(Cells(2, "A"), Cells(Sat, Kol)).Sort Key1:=Cells(1, ActiveCell.Column), Order1:=i
    
End Sub

 

[magnesia]

Sayın Hocam.
Öncelikle ilginize ve emeğinize teşekkürler.
Ancak kodları yerleştirip verileri girdikten sonra SIRALA butonuna basınca tüm veriler sıralanıyor.
Acaba ben mi yanlış yapıyorum?

 

[magnesia]

Hocam pardon.
Son anda fark ettim. Çok ilginç bir durum ortaya çıktı.

Sıralamayı yapıyor ama,
G sütununa göre sıralama yaptırırsak sıralamayı sayfanın en sonuna yapıyor,
B sütununa göre sıralama yaptırırsak doğru olarak sayfanın başından itibaren sıralıyor.

 

[Necdet]

Merhaba,

G sütununda formül olduğu için son satır olarak en son satırı dikkate alıyor. 3-5 kişi olduğunda da sona atması doğal.
Kodlardaki son satırı B sütununa göre düzenledim. İnceleyiniz.

Private Sub CommandButton1_Click()
    
    Dim i   As Long, _
        Kol As Integer, _
        Sat As Long
    
    If ActiveCell.Column = 2 Then
        i = 1
    ElseIf ActiveCell.Column = 7 Then
        i = 2
    Else
        MsgBox "İmleç B veya G sütununda  değil...", vbCritical
        Exit Sub
    End If
    
    Kol = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
'    Sat = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    Sat = Cells(Rows.Count, "B").End(3).Row
    Range(Cells(2, "A"), Cells(Sat, Kol)).Sort Key1:=Cells(1, ActiveCell.Column), Order1:=i
    
End Sub

 

[magnesia]

İşlem tamam..
Çok çok teşekkür ederim.
İlginize, bilginize ve emeğinize sağlık.

 

[Necdet]

Güle güle kullanınız.