çek senet kalan bulma

[igultekin2000]

iyi geceler;
ÇEK,SENET, K.ÇEK, K.SENET şeklinde 4 tür evrak girişinde, giriş çıkışlarda eşitlenmeyen stokta kalanları tespitini makro ile nasıl yapabilirim. teşekkürler. Örnek çalışma ve resimleri ekliyorum.

 

[Muzaffer Ali]

Merhaba.
Biraz detay verseydiniz çok iyi olurdu.
Örneğin Giriş ve Çıkış olmasının bir önemi var mı, Tarihin bir önemi var mı? Diğer alanların bir önemi var mı?
Çek-Senet türlerinin farklı olmasının bir önemi var mı?
Daha kısa bir ifade ile eşitlenme olduğunu yada olmadığını nasıl anlayacağız?
Örneğin "ÖMER FARUK KASADAR" ın iki tane Girişi var siz Rapor sayfasına bir tanesini aktarmışsınız, neden?

Yani yaptığınız işi bilmiyoruz sorunuzu anlayıp çözüm üretebilmek için açıklamalar yapmanız gerekiyor.

 

[igultekin2000]

Merhaba.
Biraz detay verseydiniz çok iyi olurdu.
Örneğin Giriş ve Çıkış olmasının bir önemi var mı, Tarihin bir önemi var mı? Diğer alanların bir önemi var mı?
Çek-Senet türlerinin farklı olmasının bir önemi var mı?
Daha kısa bir ifade ile eşitlenme olduğunu yada olmadığını nasıl anlayacağız?
Örneğin "ÖMER FARUK KASADAR" ın iki tane Girişi var siz Rapor sayfasına bir tanesini aktarmışsınız, neden?

Yani yaptığınız işi bilmiyoruz sorunuzu anlayıp çözüm üretebilmek için açıklamalar yapmanız gerekiyor.

Merhaba; Tarih , firma , çek no gibi önemi yok, giren-çıkın Senet,çek, K,.çek, K.senet gibi birimin vade ve tutar önemli, maksat alınan evrakın, çıkışı yapılmış mı, veya giriş olmadan çıkışı yapılan evrak var mı? gibi durumu tespit için, önemli ona Senet(ve diğerleri) vade, tutar / giriş-çıkış eşleşmesi

 

[Muzaffer Ali]

Aşağıdaki kodu bir modüle kopyalayıp deneyin.

Sub test()
    Dim syfHareket As Worksheet
    Dim syfRapor As Worksheet
    Dim Bak As Integer
    Set syfHareket = ThisWorkbook.Worksheets("Hareket")
    Set syfRapor = ThisWorkbook.Worksheets("Rapor")
    syfRapor.Range("A2:" & Cells(Rows.Count, Columns.Count).Address).ClearContents
    syfHareket.Columns("F:F").Copy syfRapor.Range("F1")
    syfRapor.Range("F:F").RemoveDuplicates Columns:=1, Header:=xlYes
    For Bak = syfRapor.Cells(Rows.Count, "F").End(xlUp).Row To 2 Step -1
        
        syfRapor.Cells(Bak, "D") = WorksheetFunction.SumIf(syfHareket.Range("F:F"), syfRapor.Cells(Bak, "F"), syfHareket.Range("H:H"))
        syfRapor.Cells(Bak, "E") = WorksheetFunction.SumIf(syfHareket.Range("F:F"), syfRapor.Cells(Bak, "F"), syfHareket.Range("I:I"))
        If syfRapor.Cells(Bak, "D") = syfRapor.Cells(Bak, "E") Then
            syfRapor.Rows(Bak).Delete
        End If
    Next
End Sub

 

[igultekin2000]

Aşağıdaki kodu bir modüle kopyalayıp deneyin.

Sub test()
    Dim syfHareket As Worksheet
    Dim syfRapor As Worksheet
    Dim Bak As Integer
    Set syfHareket = ThisWorkbook.Worksheets("Hareket")
    Set syfRapor = ThisWorkbook.Worksheets("Rapor")
    syfRapor.Range("A2:" & Cells(Rows.Count, Columns.Count).Address).ClearContents
    syfHareket.Columns("F:F").Copy syfRapor.Range("F1")
    syfRapor.Range("F:F").RemoveDuplicates Columns:=1, Header:=xlYes
    For Bak = syfRapor.Cells(Rows.Count, "F").End(xlUp).Row To 2 Step -1
       
        syfRapor.Cells(Bak, "D") = WorksheetFunction.SumIf(syfHareket.Range("F:F"), syfRapor.Cells(Bak, "F"), syfHareket.Range("H:H"))
        syfRapor.Cells(Bak, "E") = WorksheetFunction.SumIf(syfHareket.Range("F:F"), syfRapor.Cells(Bak, "F"), syfHareket.Range("I:I"))
        If syfRapor.Cells(Bak, "D") = syfRapor.Cells(Bak, "E") Then
            syfRapor.Rows(Bak).Delete
        End If
    Next
End Sub

anlamaya çalışarak biraz düzenlemeye çalıştım ama beni bayağı aşıyor. sonuç alamadım, rapor bana hazır geliyor, tasnifi bana düştüğü için

 

[Muzaffer Ali]

Yukarıda verdiğim kod işte onu yapıyor. Giren Toplam tutar ile Çıkan Toplam tutar farklıysa Rapor sayfasına aktarıyor, değilse işlem yapmıyor.

Kodun çalışma mantığı şu; Önce bütün Firmaları Rapor sayfasına kopyalıyor.
Giriş ve çıkış tutarları eşit olanları siliyor gerisi kalıyor.

 

[igultekin2000]

Yukarıda verdiğim kod işte onu yapıyor. Giren Toplam tutar ile Çıkan Toplam tutar farklıysa Rapor sayfasına aktarıyor, değilse işlem yapmıyor.

Kodun çalışma mantığı şu; Önce bütün Firmaları Rapor sayfasına kopyalıyor.
Giriş ve çıkış tutarları eşit olanları siliyor gerisi kalıyor.

bir yerde aksaklık olabilir, ekteki gibi sonuç çıkıyor

 

[Muzaffer Ali]

Görseldeki Giriş ve Çıkış tutarları eşit olmadığına göre sonuç doğru değil mi?
Her firmanın Girişi ve Çıkışı toplanıyor eşit olmayanlar Rapor ediliyor.

Siz nasıl bir şey istiyorsunuz?

 

[igultekin2000]

Görseldeki Giriş ve Çıkış tutarları eşit olmadığına göre sonuç doğru değil mi?
Her firmanın Girişi ve Çıkışı toplanıyor eşit olmayanlar Rapor ediliyor.

Siz nasıl bir şey istiyorsunuz?

Tam ifade edememişim, şu şekilde izah edeyim, raporlamak istediğim, vade ve tutarı eşit olanların dışındaki değerleri raporlamak, bunu yaparken senet'leri senet, çekleri çek olarak değerleyerek yapması mesela vadesi ayın olan 65.000 TL olana iki senedin hem girişi hemde çıkışı var, bir birini sıfırlıyor, bu şekilde giriş ve çıkış vade ve tutarları uyuşmayanları raporlamak istemiştim.

 

[igultekin2000]

Tam ifade edememişim, şu şekilde izah edeyim, raporlamak istediğim, vade ve tutarı eşit olanların dışındaki değerleri raporlamak, bunu yaparken senet'leri senet, çekleri çek olarak değerleyerek yapması mesela vadesi ayın olan 65.000 TL olana iki senedin hem girişi hemde çıkışı var, bir birini sıfırlıyor, bu şekilde giriş ve çıkış vade ve tutarları uyuşmayanları raporlamak istemiştim.

Sorun çözüldü,