Banka pos raporlaması hakkında

[cagın1]

sayın hocalarım

öncelikle saygılar sunuyorum ve bir konuda yardımlarınız iht var eger

eger çalışmaya yardımcı olabilirseniz memnun olurum

açıklama : Ektede belirttiğim üzere
http://www.dosya.tc/server10/7p241s/POS....xlsx.html

b sütünda '' kr '' ile başlayan satırlar o gun çekilen pos slip tutarlarıdır borç hanesinde bakiyeler mevcut ( g sütünunda bulunan tutarlardır. ) sayfalara veri kopyaladığım zaman şunu yapmasını istiyorum
1-kr ile başlayan satırları gün bazlı toplamasını ve diğer değişik karakterlerinde diğer diye gün bazla topladıktan sonra....
**** tarih kısmına 1 gün opsiyon koyarak gün toplamını almasını ve çıkan vade ise hafta sonlarına yada tatile denk geldiğinde 2 gün opsiyon koymasını istiyorum bu konuda bana yardımlarınız dokunur ise çok sevinirim saygılarımla

not ayrı bir tabloda 30 günden oluşan bir özet yapması yeterli olacaktır özet taslağı ektedir

makro olarakta yapılabilir

ve her ay sayfalara veri kopyalayınca otomatik oluşmasını istiyorum

saygılarımla

 

[cagın1]

benim için çok zor ve o kadar önemli ve gördüğüm kadarı ie sizler için çok basit ama yardım eden yok sayfadan ayrılıyorum hoşçakalın

sayın hocalarım

öncelikle saygılar sunuyorum ve bir konuda yardımlarınız iht var eger

eger çalışmaya yardımcı olabilirseniz memnun olurum

açıklama : Ektede belirttiğim üzere
http://www.dosya.tc/server10/7p241s/POS....xlsx.html

b sütünda '' kr '' ile başlayan satırlar o gun çekilen pos slip tutarlarıdır borç hanesinde bakiyeler mevcut ( g sütünunda bulunan tutarlardır. ) sayfalara veri kopyaladığım zaman şunu yapmasını istiyorum
1-kr ile başlayan satırları gün bazlı toplamasını ve diğer değişik karakterlerinde diğer diye gün bazla topladıktan sonra....
**** tarih kısmına 1 gün opsiyon koyarak gün toplamını almasını ve çıkan vade ise hafta sonlarına yada tatile denk geldiğinde 2 gün opsiyon koymasını istiyorum bu konuda bana yardımlarınız dokunur ise çok sevinirim saygılarımla

not ayrı bir tabloda 30 günden oluşan bir özet yapması yeterli olacaktır özet taslağı ektedir

makro olarakta yapılabilir

ve her ay sayfalara veri kopyalayınca otomatik oluşmasını istiyorum

saygılarımla

 

[excel41]

anladığım kadarı ile basit bir şey yapmaya çalıştım ayrıca eminimki size destek olan bir arkadaşımız çıkacaktır hemen sayfayı terk etmeyin lütfen

dosya ektedir inceleyin ltf
http://s5.dosya.tc/server5/fsnhkp/POS_CALISMASI_-_cagin.xlsx.html

benim için çok zor ve o kadar önemli ve gördüğüm kadarı ie sizler için çok basit ama yardım eden yok sayfadan ayrılıyorum hoşçakalın

sayın hocalarım

öncelikle saygılar sunuyorum ve bir konuda yardımlarınız iht var eger

eger çalışmaya yardımcı olabilirseniz memnun olurum

açıklama : Ektede belirttiğim üzere
http://www.dosya.tc/server10/7p241s/POS....xlsx.html

b sütünda '' kr '' ile başlayan satırlar o gun çekilen pos slip tutarlarıdır borç hanesinde bakiyeler mevcut ( g sütünunda bulunan tutarlardır. ) sayfalara veri kopyaladığım zaman şunu yapmasını istiyorum
1-kr ile başlayan satırları gün bazlı toplamasını ve diğer değişik karakterlerinde diğer diye gün bazla topladıktan sonra....
**** tarih kısmına 1 gün opsiyon koyarak gün toplamını almasını ve çıkan vade ise hafta sonlarına yada tatile denk geldiğinde 2 gün opsiyon koymasını istiyorum bu konuda bana yardımlarınız dokunur ise çok sevinirim saygılarımla

not ayrı bir tabloda 30 günden oluşan bir özet yapması yeterli olacaktır özet taslağı ektedir

makro olarakta yapılabilir

ve her ay sayfalara veri kopyalayınca otomatik oluşmasını istiyorum

saygılarımla

 

[cagın1]

sayın excel41 çok teşekkür ederim hocam elinize sağlık yalnız bunu makro ile yapma şansınız varmı acaba

saygılar sunuyorum

 

[excel41]

üzgünüm makroda iyi değilim belki ilgilenen arkadaşarım olabilir

 

[Ömer BARAN]

Merhaba.

Makro ile çözüm için aşağıdaki şekilde sonuç alınabilir.

-- özet isimli sayfaya bir düğme/şekil/metin kutusu ekleyin,
-- alt taraftan özet sayfasının adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- açılan VBA ekranında sağdaki boş alana aşağıdaki kod'u yapıştırın,
-- özet sayfasına eklediğiniz düğme/şekil/metin kutusuna fareyle sağ tıklayıp MAKRO ATAyı seçin,
-- açılan küçük ekranda OZETLE isimli makroyu seçip, işlemi onaylayın.

Artık bu düğme/şekil/metin kutusuna fareyle tıklayarak kod'u çalıştırabilirsiniz.
Kod sadece ilgili POS sayfalarındaki, ilgili gün satırlarında yer alan tutarların toplamlarını ilgili hücrelere yazacaktır.
(özet sayfasındaki tarihlere uymayan tarihlerdeki tutarlar dikkate alınmaz)

özet isimli sayfada formüllerle bunların yatay/dikey GENEL TOPLAMlarını aldırırsınız.
.

[B][COLOR="Red"]Sub OZETLE()[/COLOR][/B]
Set o = Sheets("özet")
o.Range("[B][COLOR="Blue"]G7:T37[/COLOR][/B]").ClearContents
For sat =[B][COLOR="blue"] 7 To 37[/COLOR][/B]
    For Each brn In ThisWorkbook.Worksheets
        If Mid(brn.Name, 1, 3) = "POS" Then
            poskrsut = WorksheetFunction.Match(brn.Name, o.[4:4], 0)
            If WorksheetFunction.CountIf(brn.[A:A], o.Cells(sat, "B")) > 0 Then
                ilk = WorksheetFunction.Match(o.Cells(sat, "B"), brn.[A:A], 0)
                son = ilk + WorksheetFunction.CountIf(brn.[A:A], o.Cells(sat, "B")) - 1
                    For psat = ilk To son
                        If UCase(Mid(brn.Cells(psat, "B"), 1, 2)) = "KR" Then
                            topkr = topkr + brn.Cells(psat, "F")
                        Else: topdk = topdk + brn.Cells(psat, "F")
                        End If
                    Next
                o.Cells(sat, poskrsut) = o.Cells(sat, poskrsut) + topkr
                o.Cells(sat, poskrsut + 1) = o.Cells(sat, poskrsut + 1) + topdk
                topkr = 0: topdk = 0
            Else: o.Cells(sat, poskrsut) = 0: o.Cells(sat, poskrsut + 1) = 0
            End If
        End If
    Next
Next
MsgBox "İşlem tamamlandı.", vbInformation, "..::.. Ömer BARAN ..::.."
[B][COLOR="red"]End Sub[/COLOR][/B]