Makroda benzersiz kayıtları almak

[sldrkyurdal]

Merhaba,
*
excelde sayfa1 de g2 sütununda iller datası bulunuyor yapmak istediğim sayfa 2 de b3 sutuna benzersiz olanları
alsın bu işlemi yaptıktan sonra sayda 2 de c3 sutununa countif fonksiyonunu kullanarak kaç adet il var ise benzersiz olanların
karşına gerimesini istiyorum,
teşekkürler

 

[Emir Hüseyin Çoban]

.

Yapılmak istenen:

Mükerrer veri içeren listeyi teke düşürmek ve karşılarına kaç kez tekrar ettiğini yazdırmak. Doğru mu?

.

 

[sldrkyurdal]

Evet aynen sayfa bir deki veriyi sayfa 2 de teke düşürmek ve yanlarına kaç kere tekrar ettiğini yazmak

 

[Emir Hüseyin Çoban]

.

Sub KOD()

    Dim SD As Worksheet: Set SD = Sheets("Sayfa1")
    Dim SO As Worksheet: Set SO = Sheets("Sayfa2")
    
    Dim dic As Object, liste(), dizi()
    
    son = SD.Cells(Rows.Count, "G").End(3).Row
    liste = SD.Range("G2:H" & son).Value
    
    ReDim dizi(1 To son, 1 To 1)

    Set dic = CreateObject("scripting.dictionary")
    
    For x = 1 To UBound(liste, 1)
        aranan = liste(x, 1)
        
        If Not dic.exists(aranan) Then
            n = n + 1
            dic.Add aranan, n
            ReDim Preserve dizi(1 To son, 1 To 2)
            dizi(n, 1) = liste(x, 1)
         End If
         
        dizi(dic.Item(aranan), 2) = dizi(dic.Item(aranan), 2) + 1
        
    Next x
    
    SO.Range("B3:C" & Rows.Count).ClearContents
    SO.Range("B3").Resize(dic.Count, 2) = dizi
    
End Sub

.

 

[sldrkyurdal]

Emir Hüseyin bey çok teşekkürler

 

[szgnx]

Selamlar,

Sadece benzersiz olanları sayfa1 den sayfa2 ye, adet saydırmadan nasıl alabiliriz.

 

[Haluk]

Selamlar,

Sadece benzersiz olanları sayfa1 den sayfa2 ye, adet saydırmadan nasıl alabiliriz.

Forumun arama motorunu kullanın.... bir sürü mesaj vardır.

.