Makro ile sort etme

[kaya64]

Selam arkadaşlar,
Ekteki dosyada 5 kişinin yaşları bulunmakta.Bunlara yeni bir kişinin yaşını eklediğimde otomatik olarak tüm verileri yaşa göre sort etmesini istiyorum.Bunu makroyla buton koymadan otomatik olarak veriyi girip enter yaptığımızda sort etme şansımız var mıdır?
Yardımlarınız için şimdiden teşkkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

D sütunundaki değişiklikte kod devreye girer.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Intersect(Target, [D:D]) Is Nothing Or Target.Row < 2 Then Exit Sub
    
    Range("C2:D" & Cells(Rows.Count, "C").End(3).Row).Sort Key1:=[D1], Key2:=[C1]
    
End Sub

 

[kaya64]

Hocam öncelikle çok teşekkür ederim.Verdiğiniz kod çalışıyor.Ancak bunu asıl uygulamak istediğim çalışmamda bunu yapamadım.Çalışmamdan bir ek koyuyorum.W cell'ine göre sol taraftali herşeyi sort etmemiz mümkün olurmu.(büyükten küçüğe sort etmesini istiyoruz.)Yardımınız için tekrar teşekkürler.

 

[Necdet]

Range("C..... ile başlayan alanı değiştirebilirsiniz.

Range("A1:W .... yapmanız yeterli de sizin listenizde hiç başlık olmaz mı? Ayrıca neden hücre birleştirmesi yapıyorsunuz anlamadım.

 

[baydeniro]

Çok teşekkürler sayın Necdet Yeşertener.

 

[raburabu]

merhaba

merhaba

hücreleri birleştirme yapmayınız