Vadesi geçen alacaklar
Tarih
26/11/2012 13:13
Konu Sahibi
nemiroff
Yorumlar
4
Okunma
1581
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



Çözüldü 
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


Ek Dosyalar
.rar   CARİ BAKİYE ROBOTU.rar (Dosya Boyutu: 51,34 KB / İndirme Sayısı: 35)
Cevapla


ercansahin
BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.731
14/11/2008
Ankara
Ofis 2010 32 Bit
Bugün,09:50
Çözüldü 
İ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.
Cevapla


Çözüldü 
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
Cevapla


ogulcan92
Aktif Üye
Kullanici Avatari
Aktif Üye
1.160
06/05/2009
477
İzmir
Ofis 2003
07/08/2015,11:50
Çözüldü 
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.


Ek Dosyalar
.rar   Gecikme_Vade_Farkı.rar (Dosya Boyutu: 4,72 KB / İndirme Sayısı: 18)
Cevapla


Çözüldü 
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.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi



Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya