Aynı Hastalıkları toplayıp sıralama

[kalandar_61]

Ekte gönderdiğim tablodaki hastalıklardan aynı olanların verilerini toplamak ve sıralamak istiyorum
mesela toplam Farenjit hastası 3 erkek 2 kadın.bunu formülle yapmak istiyorum.ayrıca yattıkları gün sayısınıda toplamalı
teşekkürler

 

[uzmanamele]

merhaba

ek dosya işinizi görür mü?

 

[kalandar_61]

teşekkürler ama tam olarak aradığım bu değil
benim istediğim:
alt alta aynı hastalıklarında yazılı olduğu bi hastalık listesini aynı olanları birbirine ekleyerek hangi hastalıktan kaç kişi kaçgün yatmış onu bulmak
MESELA:hastalık listemiz 200 adet olsun. Toplam 20 farklı hastalıktan bazısı 2 bazısıda 3 kere yada daha fazla tekrarla yazılı olsun ve bunların sayısı toplamıda 50 adet olsun.Sonun toplanarak yapılan listede 150 farklı hastalık olmalı

 

[muygun]

Merhaba;
Syn Süleyman hocam cevaplamış ama alternatif olsun.
İyi çalışmalar.

 

[kalandar_61]

TEŞEKKÜRLER İLGİLENDİĞİNİZ İÇİN. ANCAK Bİ SORUNUM
ÇALIŞMANIZ TAM İSTEDİĞİM GİBİ ANCAK KENDİ FORMUMA UYGULAYAMADIM
ÇOK FAZLA SABİT HÜCRE VAR ONDAN SANIRIM.EĞER mümkünse yaptığınız çalışmayı gönderdiğim örneğe uyarlarsanız sevinirim

 

[Ali]

O2 ve Q sütunundaki formüller dizi formülü olup formül çubuğunda iken direk ENTER tuşuna basmadan CTRL+SHIFT+ENTER tuşlarına birlikte basılarak girilmelidir.

Not:Excel formül başına ve sonuna { } ayıraçlarını otomatik ekleyecektir.

Dosya ektedir.

.

 

[Merhum İdris SERDAR]

TEŞEKKÜRLER İLGİLENDİĞİNİZ İÇİN. ANCAK Bİ SORUNUM
ÇALIŞMANIZ TAM İSTEDİĞİM GİBİ ANCAK KENDİ FORMUMA UYGULAYAMADIM
ÇOK FAZLA SABİT HÜCRE VAR ONDAN SANIRIM.EĞER mümkünse yaptığınız çalışmayı gönderdiğim örneğe uyarlarsanız sevinirim

Dosyanız ekte.

1. Pivot Table - Özet Tablo uygulanmıştır.

2. Her veri girişinizde otomatik güncellemeyi sağlayan dinamik alan kullanılmıştır.

Bu konular için Forumun Excel Dersanesine bakın.

3. Her veri girişinden sonra Özet tabloyu güncelleyecek bir kod eklenmiştir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next pt
Application.ScreenUpdating = True
End Sub

.

 

[kalandar_61]

Hepinize çok teşekkür ederim zaman ayırıp uğraştığınız için
istediğim gibi olmuş