Dinamik Metin Sıralaması

[Kardeşpayı]

Merhabalar,

ek olarak yüklediğim dosyada yapmak istediğim; tahsilat kısmında ödendi, ödeme bekleniyor ve boş hücre sıralamasını dinamik olarak değişebilir hale getirmek istiyorum. Yardımcı olabilirseniz sevinirim.

 

[Murat OSMA]

İlgili sayfanın kod kısmına bu kodları yapıştırıp sayfadan seçim yapınız;

[FONT="Trebuchet MS"][SIZE="2"]Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> [COLOR="Red"]2[/COLOR] Then Exit Sub
    Range("A2:B" & Range("A65536").End(3).Row).[COLOR="Red"]Sort [/COLOR]Range("B2"), [COLOR="red"]1[/COLOR]
End Sub[/SIZE][/FONT]

 

[Kardeşpayı]

İlgili sayfanın kod kısmına bu kodları yapıştırıp sayfadan seçim yapınız;

[FONT="Trebuchet MS"][SIZE="2"]Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> [COLOR="Red"]2[/COLOR] Then Exit Sub
    Range("A2:B" & Range("A65536").End(3).Row).[COLOR="Red"]Sort [/COLOR]Range("B2"), [COLOR="red"]1[/COLOR]
End Sub[/SIZE][/FONT]

Murat bey öncelikle cevabınızdan dolayı çok tesekkur ederim bu kadar hızlı sonuç alacağımı düşünmemiştim. Yalnız verdiğiniz kodu uyguladığım da her hangi bir değişiklik sonucunda üst bilgilerinde sıralamaya dahil edildiğini gördüm sabit kalmalarını sağlamak mümkün mü? Kod konusundan hiç anlamadığım için nasıl düzeltebilirim bilemedim bir de ben ödendilere öncelik vermek istiyorum ödendileri nasıl üstte alabilirim?

 

[Murat OSMA]

1 rakamını 2 yapın​

 

[Tevfik_Kursun]

Teşekkürler Murat Hocam,
Elinize sağlık
Saygılarımla

 

[Kardeşpayı]

Murat bey tekrar teşekkür ederim mevcut dosyada çok işime yaradı aynı kodu farklı excel dosyalarınada uygulamak istedim ama gene beceremedim. A b sütunları arasın sütun eklendiğinde veya üstbilgi kısmından önce satırlar olduğunda kodlama da hangi kısımlar değişir? Kod olayına çok uzağım kusura bakmayın sizi sorularımla bunaltıyorum

 

[Ömer BARAN]

......... A b sütunları arasın sütun eklendiğinde veya üstbilgi kısmından önce satırlar olduğunda kodlama da hangi kısımlar değişir?

Murat Bey'in müdahil olduğu konuya cevap yazmak ne kadar doğru bilemiyorum ama, sorduğunuz yukarıdaki soruyla ilgili fikrimi söyleyeyim dedim.

Aşağıdaki kod ile işinizi görebilirsiniz sanırım.

Umarım yanlış ifade etmiyorumdur, ancak deneyerek daha iyi anlayacığınızı sanıyorum.
-- Sıralanacak alan: B4:AH11 aralığıdır.
-- Sıralama Kriteri: C sütunu ve 3'üncü satır başlık sütunu gibi sıralama dışında tutulacak
-- Sıralama yöntemi (sondaki sayı): Küçükten büyüğe doğru sıralama için 1, büyükten küçüğe doğru sıralama için 2

Sub SIRALA()
    [COLOR="Red"]Range("B4:AH11").Sort Range("C3"), 2[/COLOR]
End Sub

Bu kodu bir düğmeye atayabilirsiniz veya Murat Beyin verdiği koddaki gibi belirlenen alan dışına (2'nci sütun yani B sütunu) fareyle tıklayınca otomatik çalışacak şekilde ayarlayabilirsiniz, Murat Bey'in yazdığı kodda yer alan

Range("A65536").End(3).Row)

kısmı sıralamanın kaçıncı satırdaki veriye kadarki alanı kapsadığını belirliyor (benim verdiğim örnekteki 11 sayısı yerine) ve anlamı A sütunundaki son dolu satır.
İyi günler dilerim.

 

[Kardeşpayı]

Allah razı olsun hem murat bey den hem de ömer beyden. verdiğiniz bilgiler çok faydalı oldu teşekkür ederim.

 

[captain3445]

https://www.youtube.com/watch?v=eoJ9gsjJv3s

selamlar yukarıda verdiğim linkte ki excel dosyasının aynısını yapmak istiyorum filtrelemeyi deyapıyorum ama videodaki gibi butonlarla makrolu olarak filtreleyemiyorum neden acaba makro kaydını acıp filtrelemeyi kaydedıyorum ama butınlu makro ıle acamıyorum sıkıntı nedır acaba yardımcı olur musunuz?