Makroda benzersiz kayıtları almak

Katılım
18 Ağustos 2017
Mesajlar
119
Excel Vers. ve Dili
excel.2013
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,893
Excel Vers. ve Dili
Office 2013 Tr - Win10 x64
.

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?

.
 
Katılım
18 Ağustos 2017
Mesajlar
119
Excel Vers. ve Dili
excel.2013
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,893
Excel Vers. ve Dili
Office 2013 Tr - Win10 x64
.

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
Excel Vers. ve Dili
2010
Selamlar,

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

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,270
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
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