Her yeni müşteriyi sayma ve toplama

[ytmercan]

Arkadaşlar merhaba

kendim oluşturduğum günlük rapor tablomda bi yerde takıldım.şöyleki;

herbir gün için hazırladığım rapor sekmesinde müşteriler sıralanıyor, farklı herbir müşteriye sıra numarası veriyorum buraya kadar tamam. bundan sonra yapmak istediğim ayın 1. günü mesela 10 müşteriye fatura kesmişsem 2. günü kesilen faturalardan 1.günü kesilen fatulardaki aynı müşterileri ayıklayıp nisan sekmesindeki E17 satırına toplamını yazmak istiyorum.

mesela
1.gün : 10 müşteri
2.gün : 8 müşteri
3.gün : 5 müşteri olmuş olsun ama bunlar aslında 15 müşteriye farklı zamanlarda kesilen fatura adetlerinin toplamı gibi düşünün.

nisan sekmesine 15 sayısı otomatik olarak gelsin istiyorum.

yardımlarınızı bekliyorum.
şimdiden teşekkürler. (inşallah anlatabilmişimdir)

 

[quesh]

Söylediğinizi anladım ancak çok fazla kod yazma bilgim yok sadece bir giriş yapabildim. Eminim üstatlarım daha iyisini yapacaklardır. Ancak ben de henüz yeniyim . şöyle bir şey düşündüm ancak gerisini getiremedim.

Sub say()


For i = 8 To 37 'b sütunu 37. satıra kadar

For j = 2 To 31 '2 nolu sayfadan 32 nolu sayfaya kadar

Dim aralik
Dim hcr
aralik = Sheets(j).Range("b8:b37")
hcr = Sheets(j).Cells(i, 2)
For Each hcr In aralik


'gerisini getiremedim



End Sub

 

[Ömer]

Merhaba,

Sayfalarda A sütununa yazılan firma isimlerini tekrarsız olarak sayısını mı almak istiyorsunuz.

--------------------------------------------------------------------------

Ayrıca dosyada kullandığınız formülleri 3 boyutlu kullanarak kısaltabilirsiniz.

Örnek E9 için;

=TOPLA('01.04:31.04'!J38)

Gibi.

Detaylı bilgi için;

3B - 3D formülleri

.

.

 

[ytmercan]

Aynen belirttiğiniz gibi "B" sutünuna her yeni müşteri eklendiğinde (sekmelerin toplamı için geçerli) nisan sekmesinde onların toplam sayısını görmek istiyorum.

kısacası nisan ayında kaç müşteriye fatura kesmişim onu örmek istiyorum.

 

[Vedat Özer]

Selamlar,


Ömer beyin vemiş oldugu formülün mantıgıyla diğer istediklerinizi yapabilirsiniz,

Ayrıntılı bilgi için link verilmiş.

 

[ytmercan]

Selamlar

Ömer bey'in verdiği linki inceledim ama benim asıl sorunuma cevap bulamadım o örnekte.
nihayetinde 01.04 e yazdığım bir müşteriyi 02.04 e de yazarsam nisan sekmesine o firmanın eklenmemesi lazım.yani bir firmaya her sekmede fatura kesmiş olabilirim ama ben aynı olan değerin nisan sekmesine 1 defa sayılmasını istiyorum.

 

[Ömer]

Merhaba,

Eki inceleyiniz.

Ktf'nin yazımı için destek olan Sayın Necdet Yeşertener hocama da nezdinizde teşekkür ederim.

Public Function ZAdet(Dizi As Range)
 
    Dim d       As Object, _
        Syf     As Worksheet, _
        Rng     As Range, _
        Alan    As Range, _
        aln     As String, _
        Deg     As Variant
 
    aln = Dizi.Address
    Set d = CreateObject("Scripting.Dictionary")
 
    Application.Volatile
 
    For Each Syf In Worksheets
        If IsDate(Syf.Name) Then
            Set Alan = Syf.Range(aln)
            For Each Rng In Alan
                If Not Rng = "" Then
                    Deg = Trim(Rng)
                    If Not d.exists(Deg) Then d.Add Deg, Null
                End If
            Next Rng
        End If
    Next Syf
 
    ZAdet = UBound(d.keys) + 1
 
End Function

.