Son sütun tanımlanması

[hakki83]

Merhabalar

Sıralama sıklıkla kullandığım bir özelliktir.

Örnek dosyada son satırın bulunması için sonsatır olarak tanımlama yapılmış. Kodlarda sonsütun tanımlamasının da yapılıp, kodların düzenlenmesini rica ederim.

Daha detaylı bir anlatımla şunları da ekleyeyim:

Sıralama aralığının başlangıç sütununu ve sıralamaya kaçıncı satırdan başlaması gerektiğini ben seçmeliyim, burada sorun yok, yani kodlarda A2 yazan yer.

Hangi sütuna göre sıralanacağını da ben seçmeliyim, burada da sorun yok, yani kodlarda B yazan yer.

Son satırı kod buluyor, burada da sorun yok.

Fakat son sütun bulunmadığı için D yazan yeri, değiştirip G yapmaya mecburum. İşte buna her seferinde, her farklı dosyada gerek kalmasın diye, son sütun tanımlanmasının kodlara eklenip, otomatik bulunması gerekiyor.

Teşekkürler.

 

[Necdet]

Merhaba,

Uzun uzun anlatmışsınız ama sonunda ne olacağını ben anlamadım.

Satır ve Sütun adedine bakmadan ve farenin bulunduğu yere göre sıralama yapmak isterseniz aşağıdaki kodları deneyiniz.

Sub Düğme2_Tıkla()

    Dim SonKol  As Integer, _
        SonSat  As Long
        
    SonKol = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
    SonSat = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    Range(Cells(2, "A"), Cells(SonSat, SonKol)).Sort ActiveCell, 1
    
End Sub

 

[hakki83]

Sayın hocam emeğinize sağlık, çok güzel olmuş.