Koşullu Sıralama Hakkında

[ferrari_]

Arkadaşlar merhaba,

Sizden bir konuda yardım rica etmekteyim.
Ekteki linkteki excel de
1-Kalan gün kısmından 30gün ve aşağısında olanların tabloda ki bulunan satır kırmızı ve küçükten büyüğe doğru sıralaması,
2-Durum kısmında ödendi yazanların tabloda ki bulunan satır yeşil olması
3- kalan gün kısmında 30 günden fazla da olsa ödemiş olursa tabloda ki bulunan satır yeşil olması
4-Ödendi yazıldığında fatura no yazan yerin boş olmaması zorunlu olması fatura numarasının yazılması

*koşullu biçimlendirmede yapıyorum ama bir değeri yaparken diğer değer çalışmıyor ikisi aynı anda uygulayamadım.
*listeye sürekli yıl boyunca faturalar eklenmeye devam edecektir.
https://we.tl/t-pUWgma3fEj

her şey için teşekkürler.

 

[ferrari_]

Konu hakkında düşüncesi olan yok mu _?

 

[sesar]

Selamlar. Çalışma ektedir.
3 numaralı maddeyi tam olarak anlayamadım. İncelersin ona göre gerekirse revize yaparız.

http://dosya.co/mapykfkga02c/örnek_çalışma.xlsx.html

 

[ferrari_]

Selamlar. Çalışma ektedir.
3 numaralı maddeyi tam olarak anlayamadım. İncelersin ona göre gerekirse revize yaparız.

http://dosya.co/mapykfkga02c/örnek_çalışma.xlsx.html

Çok teşekkür ederim. Ellerinize Sağlık. Lakin sıralama yı filitre koymadan yapılabilir mi .

 

[sesar]

Çok teşekkür ederim. Ellerinize Sağlık. Lakin sıralama yı filitre koymadan yapılabilir mi .

Selamlar. Elbette yapılabilir VBA kodlarıyla. Fakat benim o boyutta bilgim yok.


Şöyle bir kod buldum ama çalışır mı bilmiyorum. Buna benzer bir kod ve uyarlaması lazım.

Private Sub Worksheet_Activate()
    Range("A2:C2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Sort Key1:=Range("C3"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A2").Select
End Sub