Verileri A Z Sıralama

[iplikci_80]

Çalışmadaki mevcut kodlara dokunulmadan, D8 hücresinden itibaren girdiğim verilerin A dan Z ye sıralanmasını, A dan Z ye sıralama yapılırken D:AJ aralığındaki verilerinde dikkate alınması hususunda yardımlarınızı rica ediyorum.

 

[ASLAN7410]

Merhaba.

Aşağıdaki kod işini görüyor gibi, sayfanın kod bölümüne yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D8:D127")) Is Nothing Then
Range("D8:AJ" & [D127].End(3).Row).Sort Key1:=Range("D8"), Order1:=xlAscending
End If
End Sub

 

[iplikci_80]

Merhabalar
Ekran görüntüsünü gönderdiğim hatayı alıyorum.

 

[ASLAN7410]

Merhaba, başka bağlantılar var galiba, ondan hata olabilir.

 

[iplikci_80]

Sayın ASLAN7410 son olarak 128 satır "EMEKLİLER" den sonrası içinde yardımlarınız rica etsem

 

[ASLAN7410]

Sayın ASLAN7410 son olarak 128 satır "EMEKLİLER" den sonrası içinde yardımlarınız rica etsem

D129 hücresi ve aşağısında formüller mevcut. Aşağıdaki kodu sayfanın kod bölümüne yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D8:D127")) Is Nothing Then
Range("D8:AJ" & [D128].End(3).Row).Sort Key1:=Range("D8"), Order1:=xlAscending
End If

If Not Intersect(Target, Range("D129:D153")) Is Nothing Then
Range("D129:AJ" & [D154].End(3).Row).Sort Key1:=Range("D129"), Order1:=xlAscending
End If
End Sub