Müşteri Hesap Raporu

[ismail-34]

Merhaba çok değerli excel web ailesi.
Benim sorum hergün günlük deftere işlediğim bilgilerin bir rapor halinde Müşteri Hesabı Tab ında listelenmesi.
ekte örneği bulunmaktadır. Bu Raporlamayı filtre kısmından listeleyip toplamlarını tek tek alarakta yapabilirim ancak böyle hazır hesaplayan bir sistem olursa çok işime yarar açıkçası.

Eğer Mümkünse Şimdiden çok çok teşekkürlerimi bir borç bilirim.

 

[ismail-34]

cevap yok sanırım.ama düşey arama fonksiyonlu bir formül ile yapılıyor sanırım ?

 

[relaxim]

Merhaba

Ekteki gibi olabilir mi?

 

[ismail-34]

buda olur valla.peki bişi sorcam. satırdaki mağaza adlarınıda ve sütundaki müşteri adlarınıda kendi oralara ekleyebilmek şansı varmı en fazla 5 müşteri ama mağaza adı 50 tane olabiliyor. ama yani tekrarlayan müşteri adları ve mağaza adlarını almayacak tabiki.yani satır ve sütun başlıklarıda otomatikleştirilse mükemmel olurdu ..bu haliylede güzel ama elle yatay ve düşey sütun başlıklarını oluşturmak kaydıyla oluyor.

emeğinize sağlık buda şimdilik yeterli.

 

[relaxim]

Merhaba
Dediğiniz için makro daha iyi olur. Onu da bu işi iyi bilen üstadlar yapabilir. Beni aşar.
Saygılar.

 

[YUSUF44]

Bu iş için excelin çok pratik, çok hızlı ve çok başarılı bir özelliği var zaten: Özet Tablo/Pivot Tablo.

Denemenizi öneririm.

 

[ismail-34]

Teşekkürler pivot formatı pek ilgimi çekmiyor onun kendine ait bir düzeni var.eksteki beni belirlediğim düzende olması daha iyi olur.

 

[relaxim]

Merhaba

Yeni firma ekleyince veya arasıra güncellemek için DENETLE butonuna basabilirsiniz.

 

[ismail-34]

evet hocam bu daha iyiymiş.son bir sorum olcak 0 ları kaldırmak için formülü nasıl değiştirmeliyim ?. 0 değerler boş gelsin istiyorum.görmek istemiyorum yani.

 

[Ziynettin]

Alternatif çalışma.

 

[ismail-34]

Alternatif çalışma.

hocam harbi dehşet olmuş.direkt makrolu son bir şey sorcam benim formata tam uyabilmesi için son sütunada müşteri toplamı için bir toplamlar sütunu açıp toplam alsa harika olur.ayrıyeten tüm değerlerin sonuna $ eklense güzel olurdu.çünkü makro olduğundan hüçre biçimlendirmeler etkisiz oluyor. ama bu haliyle fazlasıyla yeterli değerli hocam.elinize emeğinize sağlık.fonksiyonlar sizin yüzünüzden mesleği bıraktı hocam )

örnek ektedir

 

[Ziynettin]

Sub kod()
Dim s1 As Worksheet, s2 As Worksheet, dc As Object
Dim a(), b()
Set s1 = Sheets("Günlük Defter")
Set s2 = Sheets("Müşteri Hesabı")

Set dc = CreateObject("scripting.dictionary")
Set ds = CreateObject("scripting.dictionary")
Set dz = CreateObject("scripting.dictionary")

    son = s1.Range("A" & Rows.Count).End(3).Row
    a = s1.Range("A2:G" & son).Value

    For i = 2 To UBound(a)
        krt = a(i, 2) & "|" & a(i, 3)
        dc(a(i, 2)) = ""
        ds(a(i, 3)) = ""
        dz(krt) = dz(krt) + a(i, 7)
    Next i

    musteri = dc.keys
    magaza = ds.keys
    ReDim b(1 To dc.Count + 2, 1 To ds.Count + 2)
    say = 1
    b(say, 1) = "Müşteri Adı"

    For i = 0 To dc.Count - 1
        say = say + 1
        b(say, 1) = musteri(i)
        For j = 0 To ds.Count - 1
            b(1, j + 2) = magaza(j)
            krt = musteri(i) & "|" & magaza(j)
            b(say, j + 2) = dz(krt)
            b(say, ds.Count + 2) = b(say, ds.Count + 2) + dz(krt)
            b(dc.Count + 2, j + 2) = b(dc.Count + 2, j + 2) + dz(krt)
            Topl = Topl + dz(krt)
        Next j
    Next i
    
    s2.Cells.ClearContents
    s2.Cells.ClearFormats
    s2.[A1].Resize(say + 1, ds.Count + 2).NumberFormat = "#,##0.00 ""$ """
    s2.[A1].Resize(say + 1, ds.Count + 2) = b
    s2.[A1].Resize(say + 1, ds.Count + 2).Borders.Color = rgbSilver
    s2.[A1].Resize(say + 1, ds.Count + 2).BorderAround , xlThin
    s2.[A2].Resize(dc.Count, ds.Count + 2).BorderAround , xlThin
    s2.[A1].Resize(dc.Count + 2).BorderAround , xlThin
    s2.[A1].Offset(, ds.Count + 1).Resize(dc.Count + 2).BorderAround , xlThin
    s2.[A1].Offset(dc.Count + 1) = "Toplam"
    s2.[A1].Offset(, ds.Count + 1) = "Toplam"
    s2.[A1].Offset(dc.Count + 1, ds.Count + 1) = Topl
    
MsgBox "İşlem tamam...", vbInformation
End Sub

 

[ismail-34]

hocam efsane olmuş teşekkür ederim.başını evvelki gibi private sub olarak düzelttim. sub lı yazınca çalışmadı yani.
değerli hocam bişi sorcam otomatik butonsuz yapmak için koymam içinmi sub 'lı verdiniz ?
bu haliyle sayfaya değilde çalışma kitabına koyarsam butonsuzmu çalışır ?

Herşey için çok teşekkür ederim çok harika kutu gibi bir sistem oldu.herkese faydalı olur inşallah.