Hücre değiştiğinde otomatik sıralama

[tirEdsOuL]

Merhaba;
Aşağıdaki kod ile L2:L34 aralığında elle herhangi bir değer girince makro otomatik olarak büyükten küçüğe sıralama yapıyor, fakat benim gösterdiğim L4:L34 aralığı formül ile çalıştığı için makro çalışmamakta, formül ile değişen hücreye göre makroyu nasıl otomatik çalıştırabiliriz?

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

    Set KeyCells = Range("L4:L34")
    
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

       Call siralama
       
    End If
End Sub

 

[YUSUF44]

Formüllü hücreyi etkileyen ve elle değiştirilen hücreleri target olarak belirtebilirsiniz. Örneğin L4 hücresindeki formül =A4*5 gibi bir formülse ve A4'e veriyi elle giriyorsanız, koddaki L4:L34 yerine A4:A34 yazabilirsiniz.