özet tablo oluşturma

[wahap70]

Merhaba Arkadaşlar

Ekde Bulunan excelde Rapor sekmesinde bulunan tabloyu her gün kendisi otomatik toplasın istiyorum Yardımcı olursanız sevinirim

 

[veyselemre]

Sub ozetRapor()
    Set sV = Sheets("Veri")
    sV.Select
    For i = 2 To Cells(Rows.Count, 1).End(3).Row
        dun = False
        buAy = False
        yIci = False
        If Cells(i, "F").Value = Date - 1 Then dun = True
        If Month(Cells(i, "G").Value) = Month(Date) Then buAy = True
        If Cells(i, "I").Value = "YURTİÇİ" Then yIci = True
        sip = Cells(i, "E")
        Uret = Cells(i, "H")
        Sevk = Cells(i, "J")
        If yIci Then
            If buAy Then
                If dun Then
                    dun_BuAy_YIciSip = dun_BuAy_YIciSip + sip
                    dun_BuAy_YIciUret = dun_BuAy_YIciUret + Uret
                    dun_BuAy_YIciSevk = dun_BuAy_YIciSevk + Sevk
                End If
                Top_BuAy_YIciSip = Top_BuAy_YIciSip + sip
                Top_BuAy_YIciUret = Top_BuAy_YIciUret + Uret
                Top_BuAy_YIciSevk = Top_BuAy_YIciSevk + Sevk
            Else
                If dun Then
                    dun_GAy_YIciSip = dun_GAy_YIciSip + sip
                    dun_GAy_YIciUret = dun_GAy_YIciUret + Uret
                    dun_GAy_YIciSevk = dun_GAy_YIciSevk + Sevk
                End If
                Top_GAy_YIciSip = Top_GAy_YIciSip + sip
                Top_GAy_YIciUret = Top_GAy_YIciUret + Uret
                Top_GAy_YIciSevk = Top_GAy_YIciSevk + Sevk
            End If
        Else
            If buAy Then
                If dun Then
                    dun_BuAy_YDisiSip = dun_BuAy_YDisiSip + sip
                    dun_BuAy_YDisiUret = dun_BuAy_YDisiUret + Uret
                    dun_BuAy_YDisiSevk = dun_BuAy_YDisiSevk + Sevk
                End If
                Top_BuAy_YDisiSip = Top_BuAy_YDisiSip + sip
                Top_BuAy_YDisiUret = Top_BuAy_YDisiUret + Uret
                Top_BuAy_YDisiSevk = Top_BuAy_YDisiSevk + Sevk
            Else
                If dun Then
                    dun_GAy_YDisiSip = dun_GAy_YDisiSip + sip
                    dun_GAy_YDisiUret = dun_GAy_YDisiUret + Uret
                    dun_GAy_YDisiSevk = dun_GAy_YDisiSevk + Sevk
                End If
                Top_GAy_YDisiSip = Top_GAy_YDisiSip + sip
                Top_GAy_YDisiUret = Top_GAy_YDisiUret + Uret
                Top_GAy_YDisiSevk = Top_GAy_YDisiSevk + Sevk
            End If
        End If
    Next i
    Sheets("Özet").Select
    [C5] = dun_BuAy_YIciSip
    [C6] = dun_GAy_YIciSip
    [C7] = Top_BuAy_YIciSip
    [C8] = Top_GAy_YIciSip

    [D5] = dun_BuAy_YDisiSip
    [D6] = dun_GAy_YDisiSip
    [D7] = Top_BuAy_YDisiSip
    [D8] = Top_GAy_YDisiSip

    [C10] = dun_BuAy_YIciUret
    [C11] = dun_GAy_YIciUret
    [C12] = Top_BuAy_YIciUret
    [C13] = Top_GAy_YIciUret

    [D10] = dun_BuAy_YDisiUret
    [D11] = dun_GAy_YDisiUret
    [D12] = Top_BuAy_YDisiUret
    [D13] = Top_GAy_YDisiUret

    [C15] = dun_BuAy_YIciSevk
    [C16] = dun_GAy_YIciSevk
    [C17] = Top_BuAy_YIciSevk
    [C18] = Top_GAy_YIciSevk

    [D15] = dun_BuAy_YDisiSevk
    [D16] = dun_GAy_YDisiSevk
    [D17] = Top_BuAy_YDisiSevk
    [D18] = Top_GAy_YDisiSevk

End Sub

 

[wahap70]

Kusura Bakmayın Fakat Kodları Yapıştırdım Özet sayfasına ama hiç bişey olmadı

 

[veyselemre]

Kusura Bakmayın Fakat Kodları Yapıştırdım Özet sayfasına ama hiç bişey olmadı

Olmaz tabi kodlar salı günü yazılmış bugün cuma bayatlamış.

 

[wahap70]

Hımm Mantıklı evet olabilir peki çalıştıracağım taze kodlarınız var mı ?

 

[mbaysal]

Modül ekle oraya kodları ekle çalışıyor

 

[wahap70]

Çok Teşekkür Ederim Emeğinizi Sağlık Hakkınızı Helal Edin

 

[wahap70]

VeyselEmre Bey Bi Ricam Daha Olacak Gerçekleşen Miktar Yani Üretilen Miktarın Tarihini Belirtmediğim İçin Siz Haliyle Teslim Tarihini Baz Almışsınız. Ekde Bulunan Dosyaya Üretim Tarihi Sütununu da Ekledim Rica Etsem Özet Tabloda Bulunan C10,C11 - D10,D11 Hücreleri İçin Üretim Tarihini Baz Aldırıp Ona Göre Dün Üretilen Miktarları Getirtebilir misiniz. Aynı Şeyler Tabi Sevkiyat Tarihi İçinde Geçerli

 

[Korhan Ayhan]

Yine sonradan değişen dosya ve yeniden yazılacak kodlar...