Çözüldü Butonla Sıralama

[hakki83]

Merhaba saygılar hocalarımız

En üst satır başlıktır.

Örnek dosyadaki gibi butonla küçükten büyüğe sıralama yapmak istiyorum.

Bir tane kodum olsun, bu kodu bütün sayfalarımda, dosyalarımda kullanayım.

Sadece içinde geçen SÜTUN HARFİNİ ben elle değiştireyim;
Son satırı, son sütunu, son hücreyi kod kendisi bulsun.

Teşekkürler

 

[Alicimri]

Tek sayfa için, K1 hücresine sütun harfini girin butona tıklayın.

 

[hakki83]

AliCimri hocam önce emeğinize sağlık.

Fakat benim istediğim örnek dosyadaki gibi her butona kodu kendim gireceğim.

Sadede hücre harfini değiştireceğim.

Satır sayısı ve sütun sayısı değişkendir. Bu yüzden ilk mesajımda belirttiğim gibi son satırı, sütunu, son hücreyi, kod kendisi bulacak;
A1:I şeklinde bir bölüm olmamalı kodun içinde.

Zira bunların dışında, dosyalarımda K1’deki gibi hücre harfi gireceğim uygun yer de yok.

Mümkün olduğu kadar kısa sade bir kod, tam arşivlik olacak ve her zaman kullanılabilecektir.

Teşekkürler.

 

[Alicimri]

son = ActiveSheet.Range("a1").CurrentRegion.Rows.Count
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range("A2:A" & son), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("A1:I" & son)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
yukardaki kodun kırmızı olan kısmını her buton için değiştirin

 

[hakki83]

SetRange Range("A1:I" & son)

Hocam emeğinize sağlık.

3 nolu mesajımda yazmıştım.
A1:I gibi bir bölüm, belirleme olmamalı.
Son sütunu, son satırı, son hücreyi, kod kendisi bulmalı.

Ben sadece butona atayacağım sütun harfini girmeliyim; kodun içine.

 

[azraep]

Dener misiniz?
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[VetExc]

Sn. hakki83 alternatif olarak bunu da deneyebilirsiniz.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[hakki83]

Sn. hakki83 alternatif olarak bunu da deneyebilirsiniz.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

VetExc hocam gayet pratik oldu. Fakat örnek dosyadaki altta görünen verileri de sıralamaya dahil etmesi gerekiyor.

 

[VetExc]

Koddaki 2.buton için ilk A1 i değişmeyin.. diğer Sütun harfi olan A ları B yapın.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[hakki83]

Koddaki 2.buton için ilk A1 i değişmeyin.. diğer Sütun harfi olan A ları B yapın.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Şimdi olmuştur hocam. Sağ olunuz.
AliCimri hocam VetExc hocam ve azraep hocamın emekleriyle çözülmüştür. Teşekkür ederim hocalarımıza.