giriş-çıkış kontrolu

[igultekin2000]

başka işlemden sonra oluşan verileri raporlamak için bir çalışma yapmam gerekiyor. ekte sunduğum listede açıklama mevcut, kısaca vade ve tutara göre girişi yapılan çeklerin, vade ve tutara göre çıkışının değerlendirilmesi. yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
http://s9.dosya.tc/server2/iptp3a/RAPOR.rar.html

 

[Asri]

Hesap kitaptan pek anlamam ama,

Bana göre netleşmeyen , aşağıdaki konular netlik kazanır ise daha hızlı dönüş alabilir siniz.

* Tam giriş , parçalı çıkış olabiliyor mu? Yada tam tersi.
* Giriş çıkışlar aynı gün mü oluyor farklı günlerde mi?
* Girişi olmadan çıkış olabiliyor mu? Bazıları önce çıkmış sonra girmiş grönüyor. 70000 gibi.
*51. satırda, üç 20000 ard arda var, bunlar nasıl değerlendirilecek.
*76. satırdaki giriş 10000 ler ve ondan sonraki çıkış 10000 nasıl değerlendirilecek.

 

[igultekin2000]

açıklama

Hesap kitaptan pek anlamam ama,

Bana göre netleşmeyen , aşağıdaki konular netlik kazanır ise daha hızlı dönüş alabilir siniz.

* Tam giriş , parçalı çıkış olabiliyor mu? Yada tam tersi.
* Giriş çıkışlar aynı gün mü oluyor farklı günlerde mi?
* Girişi olmadan çıkış olabiliyor mu? Bazıları önce çıkmış sonra girmiş grönüyor. 70000 gibi.
*51. satırda, üç 20000 ard arda var, bunlar nasıl değerlendirilecek.
*76. satırdaki giriş 10000 ler ve ondan sonraki çıkış 10000 nasıl değerlendirilecek.

konuyu biraz daha açarsam, değerler 1 adet çek veya senet tutarın gösteriyor, yani oradaki her TL tam giriş-çıkış oluyor, parçalı olmuyor. giriş çıkışlar farklı günlerde oluyor. giriş olmadan da çıkış oluyor. buradaki mantık, vade ve karşısındaki tutar tek değeri ifade ediyor. yani iki vade ve giriş tutarı bir değer, vade ve çıkış tutarı bir değer. önemli olan vade+giriş ile vade+çıkışın eşleşip orada kalması, eşleşmeyen vade+giriş ile vade +çıkışın başka çalışma sayfasına gitmesi, tabi satır bazında

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kod'u kullanabilirsiniz.
.

[B]Sub KARSILIKSIZLARI_BRN()[/B]
Set d = Sheets("data"): Set s = Sheets("stok")
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
d.Columns("I:I").ClearContents
If s.Cells(Rows.Count, 1).End(3).Row > 1 Then _
    s.Range("A2:H" & s.Cells(Rows.Count, 1).End(3).Row).ClearContents
On Error Resume Next
For sat = 2 To d.Cells(Rows.Count, 1).End(3).Row
    If d.Cells(sat, 5) > 0 Then
    For satt = 2 To d.Cells(Rows.Count, 1).End(3).Row
        If d.Cells(satt, 9) = "x" Then GoTo 10
        If d.Cells(sat, 4) & d.Cells(sat, 5) = d.Cells(satt, 4) & d.Cells(satt, 6) Then
            d.Cells(sat, 9) = "x": d.Cells(satt, 9) = "x"
            Exit For: End If
10: Next: End If: Next
    d.Range("A1:I1").AutoFilter Field:=9, Criteria1:="="
    d.Range("A2:I" & d.Cells(Rows.Count, 4).End(3).Row). _
        SpecialCells(xlCellTypeVisible).Copy s.[A2]
    d.Range("A2:I" & d.Cells(Rows.Count, 4).End(3).Row). _
        SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
    d.Range("A1:I1").AutoFilter Field:=9: d.Columns("I:I").ClearContents
    d.Range("A1:I1").AutoFilter
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
MsgBox "İşlem tamamlandı...", vbInformation, "..::.. ÖMER BARAN ..::.."
[B]End Sub[/B]

 

[igultekin2000]

her zamanki gibi güzel bir çözüm.

Merhaba.

Aşağıdaki kod'u kullanabilirsiniz.
.

[B]Sub KARSILIKSIZLARI_BRN()[/B]
Set d = Sheets("data"): Set s = Sheets("stok")
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
d.Columns("I:I").ClearContents
If s.Cells(Rows.Count, 1).End(3).Row > 1 Then _
    s.Range("A2:H" & s.Cells(Rows.Count, 1).End(3).Row).ClearContents
On Error Resume Next
For sat = 2 To d.Cells(Rows.Count, 1).End(3).Row
    If d.Cells(sat, 5) > 0 Then
    For satt = 2 To d.Cells(Rows.Count, 1).End(3).Row
        If d.Cells(satt, 9) = "x" Then GoTo 10
        If d.Cells(sat, 4) & d.Cells(sat, 5) = d.Cells(satt, 4) & d.Cells(satt, 6) Then
            d.Cells(sat, 9) = "x": d.Cells(satt, 9) = "x"
            Exit For: End If
10: Next: End If: Next
    d.Range("A1:I1").AutoFilter Field:=9, Criteria1:="="
    d.Range("A2:I" & d.Cells(Rows.Count, 4).End(3).Row). _
        SpecialCells(xlCellTypeVisible).Copy s.[A2]
    d.Range("A2:I" & d.Cells(Rows.Count, 4).End(3).Row). _
        SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
    d.Range("A1:I1").AutoFilter Field:=9: d.Columns("I:I").ClearContents
    d.Range("A1:I1").AutoFilter
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
MsgBox "İşlem tamamlandı...", vbInformation, "..::.. ÖMER BARAN ..::.."
[B]End Sub[/B]

Teşekkürler,her zamanki gibi gene güzel bir çözüm olmuş.