özet liste

[bigthink68]

Merhabalar

Tablonun aslı çok uzun.Bu sebeple ekli tablodaki gibi bir özet tablo yapmama yardımcı olursanız memnun olurum

Teşekkürler

 

[Ömer]

Merhaba,

F:I sütunları arasındaki özet tabloyu nasıl oluşturduğunuzu anlayamadım, mantığını daha detaylı açıklayınız.

 

[bigthink68]

Merhaba,

F:I sütunları arasındaki özet tabloyu nasıl oluşturduğunuzu anlayamadım, mantığını daha detaylı açıklayınız.

Öncelikle bölge adına bakacak sonra bayii ismine, eğer ikiside eşleşiyorsa sipariş alan grubun altına 1 rakamını yazacak.
Mesela Can isminde bayii hem Ankara da hemde İzmir de var.Dolayısı ile Ankara daki Can bayi farklı İzmir deki farklı değerlendirilmeli.
Bu konuda yardımcı olabilirseniz çok memnun olurum.

 

[Ömer]

Buraya kadar anladım.

Peki, İzmir-Can 12. ve 20. satırda Grup 1 olarak 2 farklı bölüm de var. Neden rapor kısmında İzmir-Can-Grup1 kısmında 1 yazıyor.

Halbuki İzmir ve Can 2 ayrı satırda 2 defa grup1 için satış yapmış 1+1 den 2 olmayacak mı. Yoksa her şartta 1 mi olacak.

Detaylı açıklayın derken bunlardan bahsetmiştim.

 

[bigthink68]

Buraya kadar anladım.

Peki, İzmir-Can 12. ve 20. satırda Grup 1 olarak 2 farklı bölüm de var. Neden rapor kısmında İzmir-Can-Grup1 kısmında 1 yazıyor.

Halbuki İzmir ve Can 2 ayrı satırda 2 defa grup1 için satış yapmış 1+1 den 2 olmayacak mı. Yoksa her şartta 1 mi olacak.

Detaylı açıklayın derken bunlardan bahsetmiştim.

Yaşlılık Her şartta bir olacak

 

[Ömer]

Module kopyalayıp çalıştırın.

Sub Ozet_Rapor()
 
    Dim d As Object, i As Long, sat As Long, deg, s, a1, a2, k
 
    Set d = CreateObject("Scripting.Dictionary")
 
    Application.ScreenUpdating = False
    Range("F2:I" & Rows.Count).Clear
 
    For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row
        deg = Cells(i, "B") & "|" & Cells(i, "C")
        If Not d.exists(deg) Then
            If Cells(i, "D") = 1 Then
                s = Array(1, 0)
            Else
                s = Array(0, 1)
            End If
            d.Add deg, s
        Else
            s = d.Item(deg)
            If Cells(i, "D") = 1 Then
                s(0) = 1
            Else
                s(1) = 1
            End If
            d.Item(deg) = s
        End If
    Next i
 
    a1 = d.keys: a2 = d.items: sat = 2
    For i = 0 To d.Count - 1
        k = Split(a1(i), "|")
        Cells(i + sat, "F") = k(0)
        Cells(i + sat, "G") = k(1)
        s = a2(i)
        Cells(i + sat, "H") = s(0)
        Cells(i + sat, "I") = s(1)
    Next i
    
    Range("F2:I" & i + 1).Sort Key1:=Range("F2"), Order1:=xlAscending, _
                        Key2:=Range("G2"), Order2:=xlAscending
        
    Application.ScreenUpdating = True
    
End Sub

.

 

[bigthink68]

Hocam tşkler ama bunu fonksiyonlarla yapma imkanı varmı ?

 

[Ömer]

Hocam tşkler ama bunu fonksiyonlarla yapma imkanı varmı ?

Dosyanız ektedir.

.