Kodlarda revize (Ters bakiye hesap)

[1903emre34@gmail.com]

Merhaba,

F139 satırında bulunan ters hesap bakiye kontrol et bastığım zaman, farklı yevmiye madde numaralarında olan açıklama (aynı olursa) ve tutarlar (biri borç ,diğeri alacak sütünlarda) aynı olduğu takdirde sayfa2 'e aktarılıyordu,ama hata verdi.



http://s8.dosya.tc/server5/p3e2p1/TERS_BAKIYE_HESAP_.zip.html

 

[PLİNT]

Merhaba
Aşağıdaki gibi ek yaparak denermisiniz?

[SIZE="2"]
'....
f = c.Address
 Do
x = s1.Cells(c.Row, "F").End(xlDown).Row + 1
[COLOR="Red"]If x > s1.Cells(c.Row, "F").End(xlUp).Row + 1 Then x = s1.Cells(c.Row, "F").End(xlUp).Row + 1[/COLOR]
tpl2 = Application.Sum(s1.Range("H" & c.Row & ":I" & x))
If tpl = tpl2 And Val(s1.Range("H" & a)) <> Val(s1.Range("H" & c.Row)) Then
'...
'...
[/SIZE]

 

[1903emre34@gmail.com]

Teşekkür ederim, kod değişikliği aracılığıyla 1 nolu mesajda yer alan dosyada çalıştı, ek dosya çalışmadı

http://s4.dosya.tc/server5/hy7y7g/TERS_BAKIYE_HESAP__-_Kopya.zip.html

 

[PLİNT]

Merhaba
İlk dosyanızda "F" sütununda veriler vardı ve kodlar bu sütunda arama yaparak çalışıyordu, son dosyanızda "F" sütunu boş olduğundan dolayı çalışmayacaktır.