en büyükten küçüğe sıralama

[hamitalper]

Merhaba herkese, şimdiden destekleriniz için teşekkürler ekte bir dosyam var ben bunu fonksiyon ile yapıyorum ama birden çok hücrede alternatif yaratıp sıralayabiliyorum tek hücrede formülize edip yapamadım ama önceliğim bunu makroda yapmak bir çok kez denedim ama beceremedim destek olucak arkadaşlarımızın şimddien emeklerine sağlık

 

[Biolightant]

Merhaba,

Dosya Linki : Filtre.xlsm

Option Explicit
'Biolightant@gmail.com 2025 - Eppur Si Muove

Private Sub Worksheet_Change(ByVal Target As Range)
    ' Değişen A1 değilse çık
    If Target.Address(False, False) <> "A1" Then Exit Sub
   
    ' Ekran güncellemelerini kapatarak işlem hızını artırıyoruz.
    Application.ScreenUpdating = False
   
    If UCase(Target.Value) = "TOPLAM" Then
        ToplamDurumilce Target
        ToplamDurumUlke Target
    Else
        Durumilce Target
        DurumUlke Target
    End If
   
    Worksheets("öZET").Activate
    Range("A1").Select
   
    ' Ekran güncellemelerini yeniden açıyoruz.
    Application.ScreenUpdating = True
End Sub

Forum 15.000 karekterden fazla mesajı kabul etmediği için

    If UCase(Target.Value) = "TOPLAM" Then
        ToplamDurumilce Target
        ToplamDurumUlke Target
    Else
        Durumilce Target
        DurumUlke Target
    End If

Bu kodlara Dosya Linki : Filtre.xlsm ulaşabilirsiniz.