Makroda benzersiz kayıtları almak

sldrkyurdal

Altın Üye
Altın Üye
Katılım
18 Ağustos 2017
Mesajlar
78
Beğeniler
0
Excel Vers. ve Dili
excel.2013
#1
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

Destek Ekibi
Destek Ekibi
Katılım
11 Ağustos 2008
Mesajlar
5,705
Beğeniler
12
Excel Vers. ve Dili
Office 2013 Tr - Win10 x64
#2
.

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

Altın Üye
Altın Üye
Katılım
18 Ağustos 2017
Mesajlar
78
Beğeniler
0
Excel Vers. ve Dili
excel.2013
#3
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

Destek Ekibi
Destek Ekibi
Katılım
11 Ağustos 2008
Mesajlar
5,705
Beğeniler
12
Excel Vers. ve Dili
Office 2013 Tr - Win10 x64
#4
.

Kod:
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
.
 
Katılım
5 Ekim 2017
Mesajlar
2
Beğeniler
0
Excel Vers. ve Dili
2010
#6
Selamlar,

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

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
7,047
Beğeniler
467
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
#7
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.

.
 
Son düzenleme:
Üst