ay içerisinde yapılacak ödemelerin raporunu almak

[yolcu50]

arkadaşlar ekli dosyada şirket borçlarına ait bilgiler var. Benim istediğim hatırlatma sayfasında e1 hücresine girilen ay a ait ve ödeme tarihi geçen ödemeleri tarih sırasına göre listelemesi. Bu listeleyi hazırlarken ödeme yapılacak firma ismini her sayfada ki b3 sütunundan alması. yardımlarınız için şimdiden tşk ederim.

 

[Orion1]

arkadaşlar ekli dosyada şirket borçlarına ait bilgiler var. Benim istediğim hatırlatma sayfasında e1 hücresine girilen ay a ait ve ödeme tarihi geçen ödemeleri tarih sırasına göre listelemesi. Bu listeleyi hazırlarken ödeme yapılacak firma ismini her sayfada ki b3 sütunundan alması. yardımlarınız için şimdiden tşk ederim.

Dosyanız hazır..

Sub odeme()
Dim k As Worksheet, i As Long
Dim tar1 As Date, tar2 As Date
Application.ScreenUpdating = False
Range("A3:C65536").ClearContents
If Not IsDate(Range("E1").Value) Then
    MsgBox "E1 Hücresine Bir tarih giriniz..!!", vbCritical, "DİKKAT"
    Exit Sub
End If
sat = 3
tar1 = DateSerial(Year(Range("E1").Value), Month(Range("E1").Value), 1)
For Each k In Worksheets
    If k.Name <> "HATIRLATMA SAYFASI" Then
        For i = 3 To 27
            tar2 = DateSerial(Year(k.Cells(i, "C").Value), Month(k.Cells(i, "C").Value), 1)
            If tar1 = tar2 Or k.Cells(i, "C").Value < tar1 And k.Cells(i, "F").Value > 0 And Not k.Cells(i, "C").Value = Empty Then
       
                Cells(sat, "A").Value = k.Range("B3").Value
                Cells(sat, "B").Value = k.Cells(i, "C").Value
                Cells(sat, "C").Value = k.Cells(i, "D").Value
                sat = sat + 1
            End If
        Next i
    End If
Next
Range("A3:C65536").Sort Range("B3")
Application.ScreenUpdating = True
MsgBox "İŞLEM TAMAMLANDI..!!", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[yolcu50]

uzmanım tşkl ederim. güzel olmuş bu kadarıda yeterli ancak aktarılan bilgileri ödeme tarihine göre sıralatmak ve geçmiş aylara ait taksitler ödenmedi ise onlarıda listeye ilave etmesini istiyorum. Ödenen taksit "e" sütununa miktar olarak yazıldığında f sütunu 0,00 olacaktır.

 

[yolcu50]

uzmanım birde özel soru soracağım Makro-VBA konularına meraklıyım. bana yardımcı olacak bir kitap tavsiye edebilirmisiniz

 

[Necdet]

06 dan 59 selamlar

içimden geldi valla

 

[yolcu50]

uzmanım eger geçmiş aylara ait ödemesi yapılmamış borçlar günü gelmiş borçlarla iç içe olmuyorsa farklı bir butonla sadece günü geçmiş borçlar olarakta listeletebiliriz

 

[Orion1]

uzmanım tşkl ederim. güzel olmuş bu kadarıda yeterli ancak aktarılan bilgileri ödeme tarihine göre sıralatmak ve geçmiş aylara ait taksitler ödenmedi ise onlarıda listeye ilave etmesini istiyorum. Ödenen taksit "e" sütununa miktar olarak yazıldığında f sütunu 0,00 olacaktır.

Dosyayı istediğiniz şekilde düzenledim.2 numaralı mesajdan dosyayı indirebilirsiniz.

 

[Orion1]

06 dan 59 selamlar

içimden geldi valla

Nected hocam merhaba ,Nasılsınız,iyisinizdir inşallah.

 

[yolcu50]

Dosyayı istediğiniz şekilde düzenledim.2 numaralı mesajdan dosyayı indirebilirsiniz.

uzmanım bu tüm borçları listeliyor e1 hücresinde yazılı ay ve bu aydan önceki ödenmemiş borçları sıralatmamız mümkünmü

 

[Orion1]

uzmanım bu tüm borçları listeliyor e1 hücresinde yazılı ay ve bu aydan önceki ödenmemiş borçları sıralatmamız mümkünmü

Dosyayı istediğiniz şekilde düzelttim.
2 numaralı mesajdan indirebilirsiniz.

 

[yolcu50]

Dosyayı istediğiniz şekilde düzelttim.
2 numaralı mesajdan indirebilirsiniz.

uzmanım çoook teşekkür ederim
istediğim gibi olmuş

 

[Orion1]

uzmanım çoook teşekkür ederim
istediğim gibi olmuş

Rica ederim.
İyi çalışmalar.