• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Butonla Sıralama

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
hakki83

hakki83

Yeni Üye
Katılım
9 Ağu 2021
Mesajlar
767
Çözümler
3
Aldığı beğeni
234
Excel V
Office 2016 TR
Konu Sahibi
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
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Tarihe göre sırala Oylara göre sırala
Konu Sahibi
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.
 
Olumlu oy 0 Negatif oyla
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
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Alicimri' Alıntı:
SetRange Range("A1:I" & son)
Genişletmek için tıkla...
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.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Koddaki 2.buton için ilk A1 i değişmeyin.. diğer Sütun harfi olan A ları B yapın.

HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 2 Negatif oyla
Çözüm
Konu Sahibi
VetExc' Alıntı:
Koddaki 2.buton için ilk A1 i değişmeyin.. diğer Sütun harfi olan A ları B yapın.

HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Genişletmek için tıkla...
Ş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.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst