En Çok Aranan 3 Telefonu Bulma

[otobus]

Elimde 100 Adet telefon için bu 100 telefonun ayrıntılı konuşma listesi var.
(100 Telefon için Yaklaşık 60,000 kayıt)

Bu telefonlardan en çok aranan ( zaman toplamı ) telefonları nasıl tespit edebilirim.
Her telefon en çok aranan 3 telefon.


Bundan sonra asıl yapmak istediğim bu 3 telefonun seçtiğim gsm şirketi olması ( örneğin bu 3 telefon 053 la başlayanlar olsun )

Yardımlarınız için şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Konuyla ilgili örnek dosya eklerseniz çözüme daha hızlı ulaşabilirsiniz.

 

[otobus]

Selamlar,

Konuyla ilgili örnek dosya eklerseniz çözüme daha hızlı ulaşabilirsiniz.

Korhan bey
İlginize teşekkürler

Bu şekilde 60binin üzerinde satır var.
Subtotalle çok hat olduğu için uzun sürer daha kolay bir yol ya da formül olur mu?
tekrar teşekkürler

 

[usta07]

Basit bir özet Tablo işinizi görmesi lazım
Konuşulan telefonu sayıyor süreleri topluyor
kolay gelsin.

 

[otobus]

Çok data var
belki bana sadece her telefon için en çok konuşulan Turkcell yi bul diyeceğim.
Pivot table ile olacağını sanmıyorum.( daha doğrusu çok dağınık olur diye düşünüyorum)

acaba daha kolay yöntem bilen var mı?Tesekkurler

 

[otobus]

ne sekilde cozmu oldugunu bilen var mdırı?

 

[otobus]

Elimde 100 Adet telefon için bu 100 telefonun ayrıntılı konuşma listesi var.
(100 Telefon için Yaklaşık 60,000 kayıt)

Bu telefonlardan en çok aranan ( zaman toplamı ) telefonları nasıl tespit edebilirim.
Her telefon en çok aranan 3 telefon.


Bundan sonra asıl yapmak istediğim bu 3 telefonun seçtiğim gsm şirketi olması ( örneğin bu 3 telefon 053 la başlayanlar olsun )

Yardımlarınız için şimdiden teşekkür ederim. Not: Tesekkurler Taruz

 

[adnanyurdakul]

her bir telefonun en çok aranan ( zaman toplamı )
SELECT tablo1.[Arayan numara], tablo1.ArananNumara, Sum(tablo1.KonusalanDakika) AS ToplaKonusalanDakika
FROM tablo1
GROUP BY tablo1.[Arayan numara], tablo1.ArananNumara;

arayanların toplam süresi
SELECT Tablo1.[Arayan numara], Sum(Tablo1.KonusalanDakika) AS ToplaKonusalanDakika
FROM Tablo1
GROUP BY Tablo1.[Arayan numara]
ORDER BY Sum(Tablo1.KonusalanDakika) DESC;
toplamlar dakikadır saate çevrilmedi
iyi bayramlar

 

[i_karamaz]

Burada bulunan rar ve zıp dosyalarını bir türlü indiremiyorum....
İlgilenen emektar arkadaşlara duyurulur. Saygılar.

 

[otobus]

Sn Adnan Yurdakul Cevap için teşekkürler
burada aradığım o hattın aradığ ı3 Turkcell numarası

yani
A Hattının aradığın en çok 3 Turkcell li
B Hattının aradığın en çok 3 Turkcell li
c Hattının aradığın en çok 3 Turkcell li
D Hattının aradığın en çok 3 Turkcell li
.
.
.
.

Not:
Turkcell in Kurumsal Guncel kampanyası :Yakınlarınızla şirket içi avantajından konuşma fırsatı! İşteYakınlarım ile seçtiğiniz 3 bireysel Turkcell hattı ile Şirket hatlarıyla konuşur gibi 2400 dakikaya kadar bedava konuşabilirsiniz.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub SÜZ_AKTAR()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim HÜCRE As Range, BUL As Range
    Dim ADRES As String
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    
    Application.ScreenUpdating = False
    
    If S2.AutoFilterMode Then S2.Range("A1").AutoFilter
    S2.Columns("A:C").ClearContents
    S1.Columns("A:B").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=S2.Range("A1"), Unique:=True
    S2.Range("C1") = "Konusulan Dakika"
    
    For Each HÜCRE In S2.Range("A2:A" & S2.Range("A65536").End(3).Row)
    Set BUL = S1.[A:A].Find(HÜCRE.Value, LookAt:=xlWhole)
    If Not BUL Is Nothing Then
    ADRES = BUL.Address
    Do
    If S1.Cells(BUL.Row, 2) = HÜCRE.Offset(0, 1) Then
    HÜCRE.Offset(0, 2) = HÜCRE.Offset(0, 2) + S1.Cells(BUL.Row, 3)
    End If
    Set BUL = S1.[A:A].FindNext(BUL)
    Loop While Not BUL Is Nothing And BUL.Address <> ADRES
    End If
    Next
    
    Set BUL = Nothing
    
    S2.Select
    
    Range("A1").AutoFilter
    Range("A1").AutoFilter Field:=2, Criteria1:="=053*"
    Range("A:C").EntireColumn.AutoFit
    
    Set S1 = Nothing
    Set S2 = Nothing
    Application.ScreenUpdating = True
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[otobus]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub SÜZ_AKTAR()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim HÜCRE As Range, BUL As Range
    Dim ADRES As String
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    
    Application.ScreenUpdating = False
    
    If S2.AutoFilterMode Then S2.Range("A1").AutoFilter
    S2.Columns("A:C").ClearContents
    S1.Columns("A:B").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=S2.Range("A1"), Unique:=True
    S2.Range("C1") = "Konusulan Dakika"
    
    For Each HÜCRE In S2.Range("A2:A" & S2.Range("A65536").End(3).Row)
    Set BUL = S1.[A:A].Find(HÜCRE.Value, LookAt:=xlWhole)
    If Not BUL Is Nothing Then
    ADRES = BUL.Address
    Do
    If S1.Cells(BUL.Row, 2) = HÜCRE.Offset(0, 1) Then
    HÜCRE.Offset(0, 2) = HÜCRE.Offset(0, 2) + S1.Cells(BUL.Row, 3)
    End If
    Set BUL = S1.[A:A].FindNext(BUL)
    Loop While Not BUL Is Nothing And BUL.Address <> ADRES
    End If
    Next
    
    Set BUL = Nothing
    
    S2.Select
    
    Range("A1").AutoFilter
    Range("A1").AutoFilter Field:=2, Criteria1:="=053*"
    Range("A:C").EntireColumn.AutoFit
    
    Set S1 = Nothing
    Set S2 = Nothing
    Application.ScreenUpdating = True
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Arayan telefonun karsısına 3 en cok arananı yazmamız mumkun mu?
bu sekilde alt alta oluyor
(yanyana yazmak mumkunmu)

 

[Korhan Ayhan]

Selamlar,

Siz nasıl bir formatta görmek istiyorsanız örnek bir dosya ekleyin. Kodu ona göre düzenleyelim.