C Ve D Dekİ Benzersİz Kayitlar

[herguder]

Saygıdeğer dostlar, ekli dosyada c ve d sütunlarında bulunan değerleri e ve f sütunlarına alfabetik yazmak istiyorum. Saygılar sunarım...

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodları kullanabilirsiniz.
C sütunu için:

Sub Sirala_C_Sutununu()
    Dim col As New Collection
    Dim i%, j%
    Dim x As Variant
    On Error Resume Next
    For i = 1 To Cells(65536, 3).End(xlUp).Row
        If Cells(i, 3) <> Empty Then col.Add Cells(i, 3), Cells(i, 3)
    Next i
    On Error GoTo 0
    For i = 1 To col.Count - 1
        For j = i + 1 To col.Count
            If col.Item(i) > col.Item(j) Then
                x = col.Item(i)
                col.Item(i) = col.Item(j)
                col.Item(j) = x
            End If
        Next j
    Next i
    
    For i = 1 To col.Count
        Cells(i, 5) = col.Item(i)
    Next i
End Sub

Benzer mantıkla D sütununu:

Sub Sirala_D_Sutununu()
    Dim col As New Collection
    Dim i%, j%
    Dim x As Variant
    On Error Resume Next
    For i = 1 To Cells(65536, 4).End(xlUp).Row
        If Cells(i, 4) <> Empty Then col.Add Cells(i, 4), Cells(i, 4)
    Next i
    On Error GoTo 0
    For i = 1 To col.Count - 1
        For j = i + 1 To col.Count
            If col.Item(i) > col.Item(j) Then
                x = col.Item(i)
                col.Item(i) = col.Item(j)
                col.Item(j) = x
            End If
        Next j
    Next i
    
    For i = 1 To col.Count
        Cells(i, 6) = col.Item(i)
    Next i
End Sub

 

[Ali]

Formüllü örnekte ben ekleyeyim.

 

[herguder]

Çok TeŞekkÜrler..