Alfabetik Sıralama ve Hücre İçeriğini Temizleme

@yasarpiskin

Mevcut Worksheet_Change kod blokunu aşağıdakiyle değiştirin.


.

Abi son olarak affınıza sıganarak, kodu sıralama E sütununa veri girildiğinde olacak şekilde aşağıdaki gibi değiştirdim, alfabetik sıralama oluyor, fakat silme işlemi gerçekleşmiyor bu hususta yardımlarınızı rica ediyorum.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E8:E127, E129:E153")) Is Nothing Then Exit Sub
Application.EnableEvents = False: Application.ScreenUpdating = False
If Target.Value = "" Then Range("E" & Target.Row & ":AJ" & Target.Row).ClearContents
[D8:AJ127].Sort [D7], 1: [D129:AJ153].Sort [D128], 1
Application.EnableEvents = True: Application.ScreenUpdating = True
End Sub

İyi de konu açılış mesajında "D sütununda veri silince" diye yazmıştınız.
D veya E sütunundan herhangi birinde veri silince mi işlem yapılmasını mı istiyorsunuz, yoksa sadece E sütununda silince mi?

.

D sütununda veri silince

D ve E sütununa veri girişi elle yapılıyor.
SIRALAMA E sütununa veri girilince yapılacak ama silme D sütununda yapılınca satır temizlenecek ve SIRALAMA yenilenecek öyle mi?

Evet.

Şöyle bir deneyin bakalım.

Ömer abi çok teşekkür ederim.