AccessTr.neT
Vadesi geçen alacaklar - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Vadesi geçen alacaklar (/konu-vadesi-gecen-alacaklar.html)



Vadesi geçen alacaklar - nemiroff - 26/11/2012

Herkese Merhaba
Öncelikle bu sitede emeği olan herkese sonsuz teşekkürler. Bizim gibi acemiler sayenizde Excel den faydalanıyoruz.
Bu konuyu dün açmıştım ancak dosya eklemeyi unutmuşum o sebeple kapatım yenisini açtım umarım yanlış yapmamışımdır.

Benim sorunlarımın çok büyük bir kısmını başka bir sitede HUSQVARNA hocam çözdü sağolsun.
Yaptığı çalışma sayesinde 10 aydır işimiz çok kolaylaştı. Benim sıkıntım şu,
rapordaki vadesi geçen gün kısmında çıkan gün sayısı vadesi geçen son fatura vadesinden bu yana geçen günü hesaplıyor. Ancak carilerin daha evvleden de kapanmayan faturaları olduğundan pek kullanışlı olmuyor. Örnek olarak eklediğim iki cariden Hatay haşerenin 28/05/2012 tarihli 27/07/2012 vadeli borcunun tamamı kapanmamışken raporda 9 günlük borç gecikmesi görünüyor. Oysaki 9 gün son faturanın vadesinin üzerinden geçen gün. Bana kapanmayan faturaların vadesinin üzerinden kaç gün geçtiği lazım. Eğer mümkün ise ilave bir sütuna fatura tarihinden bu yana geçen gün sayısınıda hesaplattırabilirseniz beni çok mutlu edersiniz. Örnek olarak eklediğim iki cari nin ekstrelerinde durumu görebilirsiniz. Umarım sorunumu ifade edebilmişimdir.
Herkese saygılar


Cvp: Vadesi geçen alacaklar - ercansahin - 27/11/2012

İtiraf etmeliyim ki, anlatmak istediğinizi algılayamadım. Belki Excel ustaları anlayacaktır, fakat ben olayın mantığını çözmedim. Belki çözebilsem bir şeyler yapabilirdim. Eğer bir süre daha sorunuza yanıt alamazsanız bilin ki diğer arkadaşlarda benim gibi düşünüyorlardır. Eğer durum böyle olursa lütfen verilerinizi tek tek örneklendirerek sorunuzu güncelleyin.


Cvp: Vadesi geçen alacaklar - nemiroff - 30/11/2012

Hocam ilginiz için teşekkür ederim.
Bizim kullandığımız programdan aldığımız raporlar pek işe yaramadığından ekteki çalışmayı yaptık.
Ben programdan bakiye raporu ve verilenler raporu çekiyorum.
Onları bakiye robotu dosyasında ilgili sayfalara yapıştırıp
RAPOR Sayfasında raporla diyorum.
Formüller firmaların almış oldukları malların faturalarının vadelerini hesaplayıp yapılan ödemeleri düşüyor böylelikle vadesi geçmiş ancak ödemesi tam gerçekleşmeyen miktar VADESİ GEÇEN sütununda hesaplanıyor.
Yani D sütunu mevcut bakiyeyi E sütunuda vadesi geçen yani ödeme tarihi geçmiş olan kısmını gösteriyor. Buraya kadar tablo sorunsuz çalışıyor.
Benim sıkıntım şu
F sütunu kapanmayan son faturadan bu yana kaç gün geçmiş onu vermeli.
Fakat şu anda son kestiğimiz faturadan bu yana kaç gün geçtiğini gösteriyor.

Örnek olarak eklediğim iki cariden Hatay haşerenin 28/05/2012 tarihli 27/07/2012 vadeli borcunun tamamı kapanmamışken raporda 17 günlük borç gecikmesi görünüyor. Oysaki 17 gün son faturanın vadesinin üzerinden geçen gün. Aslında 126 günlük gecikme göstermesi gerekirdi.

Bilmem bu sefer anlatabildim mi.
Biliyorum çok karışık ancak bu işi çözerseniz çok müteşekkir olurum.
Saygılarımla


Cvp: Vadesi geçen alacaklar - ogulcan92 - 03/12/2012

Sn:nemiroff
Yazdıklarından ve eklemiş olduğunuz dosyadan hiç birşey anlaşılmıyor.Eklemiş olduğunuz Excel dosyadı kullanmış olduğunuz ticari programdan alınmış çıktı yapmaya çalıştığınız işler için açıklayıcı değil herhangi bir formül de yok aşağıdaki örneği inceleyiniz size yol gösterecektir.


Cvp: Vadesi geçen alacaklar - nemiroff - 04/12/2012

Hocam nedense derdimi anlatamadım bir türlü.
Yüklemiş olduğum dosyalardan "Kopyası Cari Bakiye Robotu yazan dosyayı Ofiice 2007 de açıp geliştiriciden visual basic açınca rapor sayfası kısmında alttaki formül var.

Private Sub CommandButton1_Click()
Dim s1, s2 As Worksheet, x As Integer
[a2:f65000] = Clear
Set s1 = Sheets("BAKİYE ")
Set s2 = Sheets("VERİLEN")
s1.Range("a5:z65000").Sort Key1:=s1.Range("B5")
s2.Range("a5:q65000").Sort Key1:=s2.Range("a5")
A = Sheets("BAKİYE ").Cells(65000, 1).End(xlUp).Row
Range("a2:a" & A - 3).Value = Sheets("BAKİYE ").Range("b5:b" & A).Value
Range("B2:B" & A - 3).Value = Sheets("BAKİYE ").Range("H5:H" & A).Value
Range("C2:C" & A - 3).Value = Sheets("BAKİYE ").Range("J5:J" & A).Value
Range("D2Lol" & A - 3).Value = Sheets("BAKİYE ").Range("L5:L" & A).Value
Range("G2:G" & A - 3).Value = Sheets("BAKİYE ").Range("C5:C" & A).Value
Range("H2:H" & A - 3).Value = Sheets("BAKİYE ").Range("G5:G" & A).Value
Range("I2:I" & A - 3).Value = Sheets("BAKİYE ").Range("F5:F" & A).Value
i = Cells(65000, 5).End(xlUp).Row
For C = 2 To Cells(65000, 1).End(xlUp).Row
i = Cells(65000, 5).End(xlUp).Row
Set n = s2.Range("a4:a65000").Find(What:=Cells(C, 1).Text, LookIn:=xlValues)
If Not n Is Nothing Then
ff = n.Row
f:
If CDate(s2.Cells(ff, 8)) < Date Then
Cells(i + 1, 5) = Cells(i + 1, 5) + s2.Cells(ff, 16)
If Cells(i + 1, 6) <> "" Then
If Cells(i + 1, 6) > Date - CDate(s2.Cells(ff, 8)) Then _
Cells(i + 1, 6) = Date - CDate(s2.Cells(ff, 8))
Else
Cells(i + 1, 6) = Date - CDate(s2.Cells(ff, 8))
End If: End If
If s2.Cells(ff, 1) = s2.Cells(ff + 1, 1) Then
ff = ff + 1
GoTo f:
End If
Cells(i + 1, 5) = Cells(i + 1, 5) - Cells(i + 1, 3)
If Cells(i + 1, 5) <= 0 Then Cells(i + 1, 6) = ""
End If
Next
End Sub

Ben buradaki formülde bir düzeltme istiyorum sadece ama bir türlü derdimi ifade edemedim sanırım.
Mevcut formül son faturadan bu yana olan günü hesaplıyor. Bana kapanmayan son faturadan bu yana geçen gün lazım.
İlgilienen herkese teşekkür ederim.