Benzersiz liste oluşturmak

[Erdal]

Merhabalar
Bir tablodaki benzersiz verileri yan sütunda listelemek için ekteki örneğin H sütunundaki formülü kullanıyorum. Formül kısa tablolar için çalışıyor ama uzun tablolar için hatalı sonuç (B sütunu) üretiyor. Ama tablodaki değişik veri sayısını arttırırsam tekrar doğru sonuç (E sütunu) üretiyor. Acaba formülde neyi hatalı yapıyorum. Veya her türlü tabloda çalışan dinamik bir formül üretebilir miyiz? Ayrıntılı açıklama örnekte mevcuttur. Saygı ve selam ile …

 

[Mahir64]

Merhaba,
Diziye çevirerek bu formülü deneyiniz.

C sütununda deneyiniz.

=İNDİS($A$2:$A$120;KAÇINCI(0;EĞERSAY($C$1:C1;$A$2:$A$120);0))

 

[Vedat Özer]

Selamlar,

Altarnatif olarak aşagıdaki kodları kullanabilirsiniz,

Option Explicit
 
Sub listele()
Dim S1 As Worksheet
Dim i As Long, son As Long, son1 As Long, son2 As Long, sat As Long
 
Set S1 = Sheets("Sayfa1")

Application.ScreenUpdating = False
 
son = S1.[a65536].End(3).Row

S1.Range("b2:b65536").ClearContents
S1.Range("e2:e65536").ClearContents
S1.Range("h2:h65536").ClearContents

sat = 1
For i = 2 To son

    If WorksheetFunction.CountIf(S1.Range("a2:a" & i), S1.Cells(i, "a")) = 1 Then
        sat = sat + 1
        S1.Cells(sat, "b") = S1.Cells(i, "a")
    End If
Next i

son1 = S1.[a65536].End(3).Row

sat = 1
For i = 2 To son

    If WorksheetFunction.CountIf(S1.Range("d2:d" & i), S1.Cells(i, "d")) = 1 Then
        sat = sat + 1
        S1.Cells(sat, "e") = S1.Cells(i, "d")
    End If
Next i

son2 = S1.[g65536].End(3).Row

sat = 1
For i = 2 To son

    If WorksheetFunction.CountIf(S1.Range("g2:g" & i), S1.Cells(i, "g")) = 1 Then
        sat = sat + 1
        S1.Cells(sat, "h") = S1.Cells(i, "g")
    End If
Next i

Application.ScreenUpdating = True

MsgBox "İşleminiz tamamlanmıştır", vbCritical

End Sub

 

[Erdal]

Merhabalar
Vedat Bey kodlar için teşekkürler. Kodun işlevselliği açısından tablonun değişik adreslerde olması durumunda kodlarda değiştirilmesi gereken yerleri işaretleyebilir misiniz?
Mahir Bey
vermiş olduğunuz formül işe yarıyor fakat ekteki sayfa 2'deki durumda hata veriyor. Acaba nasıl düzeltebiliriz? Saygı ve selam ile ...

 

[Vedat Özer]

Selamlar,

son = S1.[[B]a65536[/B]].End(3).Row

S1.Range("[B]b2:b65536[/B]").ClearContents

sat = 1
For i = 2 To son

    If WorksheetFunction.CountIf(S1.Range("[B]a2:a[/B]" & i), S1.Cells(i, "[B]a[/B]")) = 1 Then
        sat = sat + 1
        S1.Cells(sat, "[B]b[/B]") = S1.Cells(i, "[B]a[/B]")
    End If
Next i

A sütunu veri aralığı
B yeni liste

Bu şekilde anlaşılırmı ?

 

[Vedat Özer]

Selamlar,

Mahir beye vermiş oldugu formül için teşekkür ederim,

Aşagıdaki şekilde düzeltirmisiniz formülü,

=İNDİS($A$2:$A$19;KAÇINCI(0;EĞERSAY($B$1:B1;$A$2:$A$19);0))

 

[Erdal]

Vedat Bey
Kodlar için teşekkürler. Vermiş olduğunuz formül ile 4 nolu mesajımdaki örnekte sonuç alamadım. Acaba neyi yanlış yapıyorum? Saygı ve selam ile ...

 

[Vedat Özer]

Selamlar,


Ekdeki dosyayı inceleyin,


Dosyayı güncelledim

 

[Ömer]

Merhaba,

Formül hesaplama yaparken bir önce bulduğu veri üzerinden işlem yapmaktadır. Bu yüzden bi başlık satırı ekleyip formülü B2 den aşağıdaki gibi başlatın.

=İNDİS($A$2:$A$19;KAÇINCI(0;EĞERSAY($B$1:B1;$A$2:$A$19);0))

.

 

[Erdal]

Başlık satırı eklemeden bir çözüm yolu bulunabilir mi?

 

[Ömer]

Başlık satırı eklemeden bir çözüm yolu bulunabilir mi?

Tabiki bulunabilir. Forumda en çok işlenen konulardan biri mükerrer kayıt uygulamasıdır.

Linkte ve forumda konuyla ilgili fazlaca çözüm mevcuttur. Linki incelemenizi tavsiye ederim.

Mükerrer (Çift) Kayıt Engelleme,Sayma Örnekleri

.

 

[Erdal]

Teşekkür ederim Ömer Bey

 

[ssdestek]

merhaba,

A SÜTUNUNA KARMA VERİLERİ GİRECEĞİNİZ SÜTUN OLSUN.
B1 HÜCRESİNE;
=EĞER(EĞERSAY(A1:$A$120;A1)=1;SATIR();"")

FORMÜLÜ YAZIN 120. SATIRA KADAR MAUS İLE SAĞ ALT OK A BASILI TUTARAK FORMÜLÜ ÇOĞALTMAK İÇİN ÇEKİN AŞAĞI. SONRADA BU SÜTUNU GİZLETİN.

C1 HÜCRESİNE;

=EĞER(EHATALIYSA(İNDİS(A:B;KÜÇÜK(B:B;SATIR());1));"";İNDİS(A:B;KÜÇÜK(B:B;SATIR());1))

FORMÜLÜ YAZIN 120. SATIRA KADAR ÇOĞALTIN ( MAUS İLE AĞAŞI ÇEKİN)

EĞER KARMA VERİLERİNİZ 120 SATIRDAN FAZLA İSE DİYELİM 250 ADET OLSUN,
BU DURUMDA $A$120 YERİNE $A$250 YAZIN.

HEPSİ BU...

 

[Erdal]

Sn. ssdestek
Çok teşekkür ederim. ALLAH (c.c.) razı olsun.

 

[50ersin]

Merhaba,

Formül hesaplama yaparken bir önce bulduğu veri üzerinden işlem yapmaktadır. Bu yüzden bi başlık satırı ekleyip formülü B2 den aşağıdaki gibi başlatın.

=İNDİS($A$2:$A$19;KAÇINCI(0;EĞERSAY($B$1:B1;$A$2:$A$19);0))

.

buna iki tarih arası şartı koyabilir misiniz. teşekkür ederim.

 

[Ömer]

Merhaba,

Sorunuzu örnek dosya ekleyerek detaylı açıklar mısınız.

 

[50ersin]

                       
                       

 

[50ersin]

dosyayı ekledim

 

[Ömer]

G2 hücresine yazıp dizi formülüne çevirdikten sonra alt satırlara kopyalayınız.

=EĞERHATA(İNDİS($B$2:$B$500;KÜÇÜK(EĞER(SIKLIK(EĞER($B$2:$B$500<>"";EĞER($A$2:$A$500>=$F$1;EĞER($A$2:$A$500<=$G$1
;KAÇINCI("~"&$B$2:$B$500;$B$2:$B$500&"";0))));SATIR($B$2:$B$500)-SATIR($B$2)+1);SATIR($B$2:$B$500)-SATIR($B$2)+1);SATIRSAY($G$2:G2)));"")

 

[50ersin]

G2 hücresine yazıp dizi formülüne çevirdikten sonra alt satırlara kopyalayınız.

=EĞERHATA(İNDİS($B$2:$B$500;KÜÇÜK(EĞER(SIKLIK(EĞER($B$2:$B$500<>"";EĞER($A$2:$A$500>=$F$1;EĞER($A$2:$A$500<=$G$1
;KAÇINCI("~"&$B$2:$B$500;$B$2:$B$500&"";0))));SATIR($B$2:$B$500)-SATIR($B$2)+1);SATIR($B$2:$B$500)-SATIR($B$2)+1);SATIRSAY($G$2:G2)));"")

ilginizden ve yardımınızdan dolayı teşekkür ederim. Ömer Bey