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

[YasarPiskin]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Bu çalışmanın kod bölümünde aylara göre puantaj bilgilerini getiren ve D sütununa girilen verileri alfabetik sıralayan kod mevcut. Yapmak istediğim şey alfabetik sıralayan kodu revize ederek D sütunundan herhangibir veri sildiğimde sildiğim veriye denk gelen D:AJ aralığındaki verilerin temizlenmesin sağlanması hususunda yardımlarınızı rica ediyorum. Örneğin D10 hücresini sildiğimde D10:AJ10 arasındaki hücre içeriklerinin temizlenmesi.

 

Lisbox seçeneklerine göre veri transferi etmek

Makroyla gruplu hücrelere değer getirme

[Ömer BARAN]

@yasarpiskin

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

İndirmek için giriş yapmanız gerekmektedir.
(7 satır)

.

 

[YasarPiskin]

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

 

[Ömer BARAN]

İ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?

.

 

[YasarPiskin]

D sütununda veri silince

 

[Ömer BARAN]

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?

 

[YasarPiskin]

Evet.

 

[Ömer BARAN]

Şöyle bir deneyin bakalım.

İndirmek için giriş yapmanız gerekmektedir.
(11 satır)

 

[YasarPiskin]

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