Soru Otomatik Sıralama - En Büyükten En Küçüğe

[endersen]

Merhaba,

Bir çok konuya baktım ancak örnek dosyalar açılmadığı için bir sonuca varamadım. Bu sebeple yeni bir konu açtım.

Hedefleri olan operasyon ekibinin yaptığı tahsilatların tutulduğu bir excel listemiz var.

En çok tahsilat yapanı sürekli yukarıya taşıyacak otomatik sıralamaya ihtiyacım var.

Bu konuda yardımcı olabilecek biri var mı acaba ?

 

[muygun]

Merhaba;

A sütununda (A2 den itibaren) Operasyon ekip adı , B sütununda (B2 den itibaren) Tahsilat miktarı varsa;
Sayfanın kod bölümüne;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
sat = Target.Row
süt = Target.Column
If Cells(sat, süt) <> "" Then
Range("A2:b65536").Sort Range("b2"), xlDescending ' azalan sıralama
End If
End Sub

Kodlarını ekleyerek deneyin.

Not: Sorularınız için örnek dosya ekleyin.

Link:
https://www.dosya.tc/server42/rxhgvt/endersen-en_yuksek_degeri_uste_getir.zip.html

 

[endersen]

@muygun aktivasyon onaylanmasını beklediğim için dosya ekleyememiştim. Şimdi örnek dosyamı paylaşıyorum. Sizin ilettiğiniz kodları eklediğimde Sort Range hatası veriyor ve Excel kilitleniyor.

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[endersen]

@muygun makine gibi tıkır tıkır çalışıyor, çok teşekkür ederim. Emeğine sağlık