Sıralama, Şarta Bağlı, Benzersiz ve Alfabetik

[1Al2Ver]

Merhaba,

"KAYITLAR" isimli sayfanın kod'unda bulunan 2 makro ile, "B2:B500" aralığını, "AC2:AC500" aralığına, benzersiz ve alfabetik olarak sıralatıyorum,

İSTEĞİM ;

Bu işlemleri, "AA" sütununda 1 yazanlar hariç yaptırmak istiyorum.

Teşekkür ederim.

 

[ÖmerFaruk]

Mevcut Benzersiz_Sırala_Kayıtlar makronuzu revize ettim.

Sub Benzersiz_Sırala_Kayıtlar()
    Dim Liste()
    If MsgBox("KAYITLAR Sayfası Güncellenecek !", vbYesNo, "DİKKAT!") = vbNo Then Exit Sub
    Veri = Range("B2:AA" & Range("B" & Rows.Count).End(3).Row).Value
    ReDim Liste(1 To UBound(Veri), 1 To 1)
    For i = 1 To UBound(Veri)
        If Veri(i, UBound(Veri, 2)) <> 1 Then
            Say = Say + 1
            Liste(Say, 1) = Veri(i, 1)
        End If
    Next i
    Range("AC2:AC" & Rows.Count).ClearContents
    Range("AC2").Resize(Say, 1) = Liste
    Call Alfabetik_Sırala_Kayıtlar
End Sub

 

[1Al2Ver]

Sayın ÖmerFaruk merhaba,

Çözüm için çok teşekkür ederim,

Elinize sağlık, çok güzel çalışıyor, sağ olun.

Saygılarımla.