Çek Ve Senet Takibi

[ZorBey_]

Merhaba
Günaydın
İyi Çalışmalar
Çek Ve Senet Takibi İçin
Günün Tarihine Göre
H Sutundaki Ödeme Gününe Bakarak
Kaç Gün Kaldığını Bulmak
Ve Renklere Göre Satırları Renklendirmek İstiyorum
Dosya Açıldığında Hesaplarını Yapmış Olmalı
Makro İle
Bu Konuda Yardımınızı Rica Ediyorum.

 

[ZorBey_]

İyi Çalışmalar
Arkadaşlar
Çözüm Bulabilecekmiyiz
Acaba.

 

[ZorBey_]

Kod yazmayı bilen biri bir şey söyler inşallah.

 

[ZorBey_]

İyi Akşamlar
Arkadaşlar Yokmu
Bunun Çaresi.

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Arkadaşlar Bu Konuda
Yardımınızı Rica Ediyorum.

 

[vardar07]

Daha basiti vardır ancak formülü makro kaydet ile yapılan bu kodu ThisWorkbook kısmına uygulayın şimdilik idare eder.
Biçimlendirmeyide bilen bir arkadaş yardım eder.

Private Sub Workbook_Open()
 Range("I2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-1]="""","""",IF(RC[-1]>RC[-3],""Ödemeye   ""&RC[-1]-RC[-3]&""  Gün Kaldı"",IF(RC[-1]<RC[-3],RC[-3]-RC[-1]&""   Gün evvel ödendi"",IF(RC[-1]=RC[-3],""  Bugün Ödenecek""))))"
    Range("I3").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-1]="""","""",IF(RC[-1]>RC[-3],""Ödemeye   ""&RC[-1]-RC[-3]&""  Gün Kaldı"",IF(RC[-1]<RC[-3],RC[-3]-RC[-1]&""   Gün evvel ödendi"",IF(RC[-1]=RC[-3],""  Bugün Ödenecek""))))"
    Range("I4").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-1]="""","""",IF(RC[-1]>RC[-3],""Ödemeye   ""&RC[-1]-RC[-3]&""  Gün Kaldı"",IF(RC[-1]<RC[-3],RC[-3]-RC[-1]&""   Gün evvel ödendi"",IF(RC[-1]=RC[-3],""  Bugün Ödenecek""))))"
    Range("I5").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-1]="""","""",IF(RC[-1]>RC[-3],""Ödemeye   ""&RC[-1]-RC[-3]&""  Gün Kaldı"",IF(RC[-1]<RC[-3],RC[-3]-RC[-1]&""   Gün evvel ödendi"",IF(RC[-1]=RC[-3],""  Bugün Ödenecek""))))"
    Range("I6").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-1]="""","""",IF(RC[-1]>RC[-3],""Ödemeye   ""&RC[-1]-RC[-3]&""  Gün Kaldı"",IF(RC[-1]<RC[-3],RC[-3]-RC[-1]&""   Gün evvel ödendi"",IF(RC[-1]=RC[-3],""  Bugün Ödenecek""))))"
    Range("I7").Select
End Sub

 

[ZorBey_]

Merhaba
İyi Çalışmalar
İlgilendiğiniz İçin
Çok Teşekkür Ederim Sağolun
Burada Bir Düzeltme Yapabilirmiyiz
Şöyle Günün Tarihine Göre
H Sutunundaki Tarihe Bakarak
Hesaplamayı Ona Göre Yapıcak
Lütfen Tekrar Bakabilirmisiniz
Çok Teşekkür Ederim Sağolun

 

[vardar07]

Merhaba
İyi Çalışmalar
İlgilendiğiniz İçin
Çok Teşekkür Ederim Sağolun
Burada Bir Düzeltme Yapabilirmiyiz
Şöyle Günün Tarihine Göre
H Sutunundaki Tarihe Bakarak
Hesaplamayı Ona Göre Yapıcak
Lütfen Tekrar Bakabilirmisiniz
Çok Teşekkür Ederim Sağolun

Arkadaşım eğer kodu gerekli yere uyguladı isen açılışta otomatik olarak hesaplıyor. H sutunundaki değere bakacak diyorsun, Zaten formul h deki tarihe bakıp "F" Deki tarihe işlem yapıyor. Yani H>F , H<F , H= F Kıyaslaması yapıyor. F ve H sütunundaki tarihleri değiştirince "I" Sütunundaki değişimi göreceksin.
Önemli not: Bu kod ile sadece dosyandaki 5 satırlık veriye göre çalışır. Satır eklersen kodda değişiklik yapman lazım

Range("[B][COLOR="Red"]I2[/COLOR][/B]").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-1]="""","""",IF(RC[-1]>RC[-3],""Ödemeye   ""&RC[-1]-RC[-3]&""  Gün Kaldı"",IF(RC[-1]<RC[-3],RC[-3]-RC[-1]&""   Gün evvel ödendi"",IF(RC[-1]=RC[-3],""  Bugün Ödenecek""))))"

Kırmızı olanı hücreye göre değiştirerek koda eklemen lazım.

 

[ZorBey_]

Merhaba
vardar07
İyi Çalışmalar
Ne Dediğinizi
Anlıyorum
Gönderdiğim Dosyada
H Sutunundaki Tarihe BAkarak
Günün Tarihi Üzerinden
Hesaplama Yapması Gerekiyor
Yani F Sutunundaki Tarih Dikkate
Alınmayacak
Şöyle

H>Günün Tarihi
H<Günün Tarihi
H=Günün Tarihi

Lütfen Son Gönderdiğim Dosyaya
Bakarmısınız oradaki
Örnekteki Gibi
Yapabilirmiyiz Acaba.

 

[turist]

Sayın, asr35.
Makrosuz, formül ve koşullu biçimlendirme ile çözümlenmiş dosyanız eklidir.
İnceleyiniz.

 

[vardar07]

Merhaba
vardar07
İyi Çalışmalar
Ne Dediğinizi
Anlıyorum
Gönderdiğim Dosyada
H Sutunundaki Tarihe BAkarak
Günün Tarihi Üzerinden
Hesaplama Yapması Gerekiyor
Yani F Sutunundaki Tarih Dikkate
Alınmayacak
Şöyle

H>Günün Tarihi
H<Günün Tarihi
H=Günün Tarihi

Lütfen Son Gönderdiğim Dosyaya
Bakarmısınız oradaki
Örnekteki Gibi
Yapabilirmiyiz Acaba.

Makroda "H" ile "F" yi yer değiştirirsen istediğin olur.

 

[ZorBey_]

Merhaba
Sayın
turist
Formülle Yapmışsınız
Çok Teşekkür Ederim Sağolun
Allah Razı OLsun
Hakınızı Helal Edin
İyi Çalışmalar.

 

[ZorBey_]

Merhaba
Sayın Vardar07
Sizi Yordum
Öneriniz Üzere H İle
F Nin Yerini değiştirmeye Çalışıcam

H>Today
H<Today
H=Today
Olur İnşallah
Allah Razı OLsun
Hakkınızı Helal Edin
İyi Çalışmalar.

 

[turist]

Merhaba
Sayın
turist
Formülle Yapmışsınız
Çok Teşekkür Ederim Sağolun
Allah Razı OLsun
Hakınızı Helal Edin
İyi Çalışmalar.

Helal olsun.
İyi günlerde kullanınız.