Ters kayıtların bulunması hakkında

[1903emre34@gmail.com]

Merhabalar,

Dosyada yevmiye kayıtlarında alt hesap türlerine göre ter kayıtları yer almaktadır.
Şöyle ki;

Alt hesap numarasında yer alan 7700305812,3200002001,1910005818 numaralaı hesaplarında "H","I" karşısında tutarlar yer almaktadır. bir başka yevmiye kayıt numarasında aynı alt hesap numaraları tutarları (aynı), bu sefer tutarlar farklı sütündadır. Örneğin, 1 numaralı yevmiye madde numarasında, 770,191 hesbın tutarları "H", 320 hesabı tutarı, "I" de yer almaktadır. 2 numaralı yevmiye madde numrasında, tam tersi yer almaktadır. Bu şekilde, ters kayıt olup olmadığını öğrenmek için nasıl kod oluşturabiliriz? Bulduğu takdirde, yevmiye madde numarası 1 ve 2 ekrana gelecek şekilde (Mgs fonksiyon aracılığıyla)

http://s4.dosya.tc/server4/u5popf/TERS_KAYIT.zip.html

 

[Korhan Ayhan]

Merhaba,

Amacınız ters sütunlarda eşleşen kayıtların listesini çıkarmak mı? Eğer öyle ise MsgBox 9000 satır veri için yetersiz kalacaktır. Bir sayfaya eşleşen fişler listelenebilir.

 

[1903emre34@gmail.com]

Evet, haklısınız, kayıt sayısını azaltırım.

 

[Asri]

Aşağıdaki şekilde deneyiniz.

Her ters kayıt bulmada msgbox kullanışlı olmaz.
Farklı bir yöntem olarak, N sütununa eşitleme numarası ekledim.
Her althesap borç ve alacak için eşitleme olduğunda bu numara bir artacaktır.

Sub Ters_Kayit_Esitleme()
   sonsatir = Cells(Rows.Count, "H").End(3).Row
   Range("N:N").Clear
   Cells(1, "N").Value = "Eşitleme"
   esit = 0
   For i = 2 To sonsatir
     althesap1 = Cells(i, "E").Value
     alacak = Cells(i, "I").Value
     esitleme1 = Cells(i, "N").Value
     If esitleme1 <> "" Or althesap1 = "" Then GoTo son
     esit = esit + 1
     Cells(i, "N").Value = esit
     
     For j = 2 To sonsatir
       althesap2 = Cells(j, "E").Value
       borc = Cells(j, "H").Value
       esitleme2 = Cells(j, "N").Value
       If althesap1 = althesap2 And alacak = borc And esitleme2 = "" And althesap2 <> "" Then
          Cells(j, "N").Value = esit
          Exit For
       End If
       
     Next j
son:
   Next i
End Sub