Hücredeki İsimleri Yazdırma ve Sayma

[abcdefg]

Kitap1 dosyasında C sütunundaki isimleri a sütununa yazacak (aynı isimleri bir kere yazdıracak) B sütununa ise a sutunundaki ismin c sutununda kaç defa yazıldığını bulmak istiyorum.
Teşekkürler.

 

[İhsan Tank]

örnek dosya ekleseniz ve orada açıklasanız şu olsun falan diye

 

[Korhan Ayhan]

Selamlar,

Tam da özet tablo kullanacağınız bir soru sormuşsunuz. Özet tablo bu tarz işlemler için biçilmiş kaftandır. Deneyiniz.

 

[abcdefg]

evet benim hatam ekliyorum.

 

[Mahir64]

evet benim hatam ekliyorum.

Merhaba
A2 Hücresine Vlie yazın ve deneyin

=EĞERSAY(C:C;A2)

 

[abcdefg]

Merhaba
A2 Hücresine Vlie yazın ve deneyin

=EĞERSAY(C:C;A2)

Vlie kısmını anlamadım.

 

[Mahir64]

Vlie kısmını anlamadım.

Veli yazacaktım
Yani saymak istediğiniz ismi yazınız.

 

[abcdefg]

Veli yazacaktım
Yani saymak istediğiniz ismi yazınız.

OK teşekkürler.Peki A hücresine otomatik olarak o hücredekileri yazdıramazmıyım

 

[Mahir64]

OK teşekkürler.Peki A hücresine otomatik olarak o hücredekileri yazdıramazmıyım

Merhaba
DİZİ formülüdür
Shift Ctrl Enter ile bitiriniz.
A2 Hücresine yazarak aşağı yeterince çekiniz

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

Türkçemizin düzgün kullanılması için özen göstermeniz şahsen beni mutlu edecektir. Saygılar
OK=Tamam

 

[İhsan Tank]

evet benim hatam ekliyorum.

merhaba
bir module atayarak dener misiniz

Sub tektek()
Sheets("Sayfa1").Columns("A:A").ClearContents
sat = 1
son = Worksheets("Sayfa1").Cells(Rows.Count, "C").End(3).Row
For r = 1 To son
aranan1 = Sheets("Sayfa1").Cells(r, "C").Value
If Sheets("Sayfa1").Cells(r, "C").Value <> "" Then
If WorksheetFunction.CountIf(Worksheets("Sayfa1").Range("C2:C" & r), aranan1) = 1 Then
Sheets("Sayfa1").Cells(sat, "A").Value = Sheets("Sayfa1").Cells(r, "C").Value
sat = sat + 1
End If
End If
Next r
Range("B2").FormulaR1C1 = "=COUNTIF(R2C3:R65536C3,RC[-1])"
Range("B2").Select
Selection.AutoFill Destination:=Range("[COLOR="Red"]B2:B65536[/COLOR]"), Type:=xlFillDefault
End Sub

kırmızı yeri kendinize göre uyarlayınız

 

[İhsan Tank]

alternatif olsun

Sub tektek()
Sheets("Sayfa1").Columns("A:A").ClearContents
sat = 1
son = Worksheets("Sayfa1").Cells(Rows.Count, "C").End(3).Row
For r = 1 To son
aranan1 = Sheets("Sayfa1").Cells(r, "C").Value
If Sheets("Sayfa1").Cells(r, "C").Value <> "" Then
If WorksheetFunction.CountIf(Worksheets("Sayfa1").Range("C2:C" & r), aranan1) = 1 Then
Sheets("Sayfa1").Cells(sat, "A").Value = Sheets("Sayfa1").Cells(r, "C").Value
sat = sat + 1
End If
End If
Next r
Range("[COLOR="Red"]B2:B100[/COLOR]") = "=COUNTIF([COLOR="red"]C$1:C$100[/COLOR], A2)"
End Sub

kırmızı yerleri kendinize göre değiştiriniz