Alfabetik Sıralama

[1Al2Ver]

Merhaba,

Aşağıdaki kod'un;

İşlevinin yanı sıra aynı zamanda listeyi A:Z'ye de sıralama yapmasını arzuluyorum,

Teşekkür ederim.

Sub Yasaklı_Listele()

Application.ScreenUpdating = False
    Set dict = CreateObject("Scripting.Dictionary")
    Range("K2:K" & [K2].End(xlDown).Row).ClearContents
    a = Range("H2:L50").Value
        For Each b In a
        If b <> "" Then
            dict(b) = ""
        End If
        Next b
    [K2].Resize(dict.Count, 1) = Application.Transpose(dict.keys)
Application.ScreenUpdating = True

End Sub

 

[PLİNT]

Merhaba
Sıralanak sadece aktarma yapılan "K" sütunu içinse,

[SIZE="2"]Sub Yasaklı_Listele()

Application.ScreenUpdating = False
    Set dict = CreateObject("Scripting.Dictionary")
    Range("K2:K" & [K2].End(xlDown).Row).ClearContents
    a = Range("H2:L50").Value
        For Each b In a
        If b <> "" Then
            dict(b) = ""
        End If
        Next b
    [K2].Resize(dict.Count, 1) = Application.Transpose(dict.keys)
Application.ScreenUpdating = True
[COLOR="Red"]Range("K2:K" & dict.Count + 2).Sort Key1:=[K2], Order1:=xlAscending[/COLOR]
End Sub[/SIZE]

 

[1Al2Ver]

Sayın PLİNT merhaba,

Sorun halloldu, sağ olun.

Teşekkür ederim.