Gruplanmış benzersiz değerleri sayma

[Ice_Blast]

Merhaba arkadaşlar,

Ek dosyada göreceğiniz gibi 2 farklı sütun da verilerim var. İlk sütün araç numarası, diğer sütün ise gittiği nokta sayısı..

Yapmak istediğim araç numarası bazında kaç benzersiz noktaya gittiğimizi saymak. Yani 10 ayrı sipariş olabilir ama aslında 1 araç 2 noktaya gitmiştir..

Yardımcı olabilirseniz çok memnun olurum.

 

[Murat OSMA]

Özet Tablo'yu (Pivot Table) deneyin.

 

[Orion1]

Alternatif.
Dosyanız ektedir.

Option Base 1
Sub benzersiz59()
Dim z As Object, liste(), deg As String, i As Long, sat As Long
Sheets("Sayfa1").Select
Range("D2:D" & Rows.Count).ClearContents
sat = Cells(Rows.Count, "B").End(xlUp).Row
liste = Range("B2:B" & sat).Value
sat = UBound(liste)
Set z = CreateObject("scripting.dictionary")
For i = 1 To sat
    deg = liste(i, 1)
    If Not z.exists(deg) Then
        z.Add deg, 1
        Else
        z.Item(liste(i, 1)) = z.Item(liste(i, 1)) + 1
    End If
Next i
Erase liste
Application.ScreenUpdating = False
Range("D2").Resize(z.Count, 2) = Application.Transpose(Array(z.keys, z.items))
Set z = Nothing
Application.ScreenUpdating = True
MsgBox "İşlem tamamlanmıştır." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[bzace]

Birde formulü denersmisiniz."B" stünundaki benzersizleri sayar. A sütunundaki araca filtre uygulayıp denermisiniz bir. Ozaman çalışacak mı ? Benim deneme imkanım yok. Dosyanızı indirmeden yapılmış örnek çalışırsa kendinize göre hücre aralığını düzenlersiniz.

=TOPLA(EĞER(SIKLIK(EĞER(UZUNLUK(B2:B50)>0;KAÇINCI(B2:B50;B2:B50;0);"");EĞER(UZUNLUK(B2:B50)>0;KAÇINCI(B2:B50;B2:B50;0);""))>0;1))

Formül dizi formülüdür. CTRL + ÜSTKARE (SHİFT) + ENTER kombinasyonunuzu kullanarak çalıştırınız.

 

[Ice_Blast]

Arkadaşlar,

Tümünü denedim, "Orion1" isimli beyin makrosu tam olarak istediğimi yapıyor, fakat bunu nasıl ana dosyama yerleştireceğimi bilmiyorum.

Aslında yapmak istediğim formül ile sonuçlandırmak fakat "bzace" in formulu tümünü sayıyor, araç bazında hesaplamıyor maalesef..

İlginiz için çok teşekkür ederim..

Birde formulü denersmisiniz."B" stünundaki benzersizleri sayar. A sütunundaki araca filtre uygulayıp denermisiniz bir. Ozaman çalışacak mı ? Benim deneme imkanım yok. Dosyanızı indirmeden yapılmış örnek çalışırsa kendinize göre hücre aralığını düzenlersiniz.

=TOPLA(EĞER(SIKLIK(EĞER(UZUNLUK(B2:B50)>0;KAÇINCI(B2:B50;B2:B50;0);"");EĞER(UZUNLUK(B2:B50)>0;KAÇINCI(B2:B50;B2:B50;0);""))>0;1))

Formül dizi formülüdür. CTRL + ÜSTKARE (SHİFT) + ENTER kombinasyonunuzu kullanarak çalıştırınız.

 

[Murat OSMA]

■ Alternatif;

Sub Benzersiz_Kaç_Yer()
    Columns("D:E").Clear: Columns("A:B").Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Sayfa1!R1C1:R1048576C2", Version:=xlPivotTableVersion14).CreatePivotTable _
        TableDestination:="Sayfa1!R1C4", TableName:="PivotTable1", DefaultVersion _
        :=xlPivotTableVersion14
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Araç ID")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
    "PivotTable1").PivotFields("MALI TESLİM ALAN"), "Say MALI TESLİM ALAN", xlCount
End Sub

 

[bzace]

Yapmak istediğim araç numarası bazında kaç benzersiz noktaya gittiğimizi saymak. Yani 10 ayrı sipariş olabilir ama aslında 1 araç 2 noktaya gitmiştir..

Yardımcı olabilirseniz çok memnun olurum.

Birde şunu deneyebilirmisiniz;

Araçlarınızı benzerisz olarak bir yere sıladıkdan sonra , veri doğrulama dan açılır liste ile bir hücreye giriş yapınız.Bir alt satırına da;

=TOPLA(EĞER(SIKLIK(EĞER((A2:A50=[COLOR="Red"]E7[/COLOR])*(B2:B50<>"");KAÇINCI("~"&B2:B50;B2:B50&"";0));SATIR(B2:B50)-SATIR(B2)+1);1))

Aracınızın kaç farklı noktaya gittiğini sayısal bazda verir.Nerelere gittiğinin isimlerini yazdırmak isterseniz onu bende şimdilik bir çözüm bulamadım.
Kırmızı yeri açılır listeyi nereye yaptıysanız ona göre ayarlayın.
Olumlu yada olumsuz cevap verirseniz arkadaşlar duruma göre yardım eder.

 

[cakto]

İyi günler bu soruna benzer bir sorunum var özet tablo ile çözebilir miyim?
Özet tabloda değer alanını nasıl ayarlayacağım bulamadım