• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

Makroda benzersiz kayıtları almak

sldrkyurdal

Altın Üye
Altın Üye
Katılım
18 Ağustos 2017
Mesajlar
76
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,688
Beğeniler
5
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
76
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,688
Beğeniler
5
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
.
 
Üst