Çözüldü eksiye düşen kısmı belirleme

[Miraga]

merhabalar
yapmak istediğim çalışma için fikir ve yol belirlememde yardımcı olabilirseniz sevinirim
tablonun özeti
b2 ve b3 hücrelerine tarih yazılınca 2 tarih arasındaki veri gelmekte
E1 kasada bulunan tutar

"B" sütününda vade tarihi bulunmakta
"c" sütününda alacak tutarı bulunmakta
"d sütününda borç tutarı bulunmakta
"e" sütününda ödeme durum ödendi yada ödenmedi şeklinde açıklama bulunmakta

2 tarih arasındaki ve açıklama kısmında ödenmedi yazan kısımların toplamları hesaplanıyor

yapmak istediğim
diyelimki 2 tarih arasını seçtik kasadaki para + alacaklar kısmındaki tutarın borç kısmından fazla olması gerekir aksi taktirde eksiye düşmüş olurum

diyelimki eksiye düştüm kasadaki paranın ve alacak kısmındaki paranın nereye kadarki olan borcu karşıladığını görmek isterim

bunu nasıl yapabiliriz acaba

 

[Miraga]

şöyle çalışma yapmaya çalıştım ama formülde hata verdi o yüzden doğru çalışıyormu bilemedim
önce buton ile vade tarihlerini sıra hale getirip işlme yapmaya çalıştım

 

[Refaz]

Merhaba.
Alttaki kodu hazırladım ama emin değilim doğrumu.
Kodu aynı sayfada çalıştırın

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Miraga]

ilginiz için teşekkür ederim
2nolu mesajda yanlış dosya eklemişim kusura bakmayın
vermiş olduğunuz kod ile aynı sonucu buldu
inceledeikten sonra tekrar dönüş yapayım

 

[Refaz]

...

 

[Refaz]

Öncekinde mesajımı silemediğim için ... yazmıştım.

Son dosyanızda formülyazmışsınız ondan anlamıyorum.
Ama kodu çakıştırınca nerde eksi olduysa o satıra gider.
Sadece b2 ve b3 değiştirin.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

Az biraz ekleme yaptım gifteki gibi renk ve rakam yazdırmayı.
Neyse benden bu kadar pazartesine kadar müsait olmayacağım.
Kolay gelsin.

 

[Refaz]

Aslında şöylede eklenebilinir son dosya ve koda.
Tarihler seçilince F sütununa ödenmeyenler için koddaki değer yazan sonuç yazdırılır bun içn tek satır kod yeterli ama pc açamam dediğim zamana kadar.
Değerler f stununa yazdırılınca zaten belli olur sonuçlar.F ye yazdırılsın derseniz son dosyadaki kodu buraya ekleyin ayarlayayım mobilden.

 

[Miraga]

Az biraz ekleme yaptım gifteki gibi renk ve rakam yazdırmayı.
Neyse benden bu kadar pazartesine kadar müsait olmayacağım.
Kolay gelsin.

Ekli dosyayı görüntüle 9689

merhabalar
dosyayı indirdim ancak bu hali ilesöyle hata oluşmuş
şuanki hali ile artık 2 tarih arası filtreleme yapmıyor

Aslında şöylede eklenebilinir son dosya ve koda.
Tarihler seçilince F sütununa ödenmeyenler için koddaki değer yazan sonuç yazdırılır bun içn tek satır kod yeterli ama pc açamam dediğim zamana kadar.
Değerler f stununa yazdırılınca zaten belli olur sonuçlar.F ye yazdırılsın derseniz son dosyadaki kodu buraya ekleyin ayarlayayım mobilden.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2:B3]) Is Nothing Then Exit Sub

On Error GoTo hata
Dim hcr As Range, deger As Double, son As Long

son = Cells(Rows.Count, "B").End(3).Row
If son < 8 Then Exit Sub
Range("F8:F" & Rows.Count).Clear

Range("B7:B" & son).Sort [B7], , , , , , , xlYes
deger = [E1].Value
For Each hcr In Range("B8:B" & son)
If CLng(CDate(hcr.Value)) >= CLng(CDate([B2].Value)) And CLng(CDate(hcr.Value)) <= CLng(CDate([B3].Value)) Then
If hcr.Offset(, 3).Value = "ödenmedi" And hcr.Offset(, 1).Value > 0 Then deger = deger + hcr.Offset(, 1).Value
If hcr.Offset(, 3).Value = "ödenmedi" And hcr.Offset(, 2).Value > 0 Then deger = deger - hcr.Offset(, 2).Value
If deger < 0 Then MsgBox hcr.Address(0, 0): hcr.Activate: Range("F" & hcr.Row).Value = deger: Range("F" & hcr.Row).Interior.Color = vbRed: Exit For
If hcr.Row > son Then Stop: Exit For
End If
Next
Exit Sub
hata:
MsgBox "Hata var", vbCritical, "Hata"
End Sub

 

[Miraga]

bu 2 tarih arası filtreleme için kullandığım
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2:B3]) Is Nothing Then Exit Sub
AutoFilterMode = False
trh1 = [B2]
trh2 = [B3]
If trh1 = Empty And trh2 = Empty Then AutoFilterMode = False: Exit Sub
If IsDate(trh1) = False Or IsDate(trh2) = False Then MsgBox "Tarihleri uygun formatta giriniz.", vbInformation, "ExcelCozum.com": Exit Sub
If trh1 > trh2 Then MsgBox "Başlangıç bitişden büyük olamaz.", vbInformation, "ExcelCozum.com": Exit Sub
ss = Cells(Rows.Count, 2).End(xlUp).Row
cr1 = ">=" & CLng(trh1)
cr2 = "<=" & CLng(trh2)
Range("B7:G" & ss).AutoFilter 1, cr1, xlAnd, cr2
End Sub

 

[Refaz]

Zaten son dosyadaki kodlar fitrelemer yapmıyordu.Neyse yatım saat zamanım var yapabilirsem bir bakayım.

 

[Refaz]

Ay kod değişikliği yaptım sizin koduda ekledim.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

bunu ekledim sadece önceki koda ve




HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

Heralde yanlış olabilir tahminen belki.

 

[Refaz]

Neyse gene bir sürü mesaj yazdım fazladan
Denersiniz ve sadece kırmızı olan yerdeki rakam olsun derseniz gereksiz yeri silersiniz koddaki.
Olmadı ya pazar gecesi yada pazartesi bakarım abey.Şimdi yolculuğa çıkmam gerek
Kod doğru çalışırsa hızlandırırız sorun olmaz.

Düzeltme:Alttaki koddaki Stop: yer silinmeli unutulmuş. 07.07.2022
If hcr.Row > son Then Stop: Exit For





HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Miraga]

elinize sağlık hayırlı yolcukuklar ben kontrolleri yapar bilgi veririm teşekkür ederim

 

[Refaz]

If CLng(CDate(hcr.Value)) >= CLng(CDate([B2].Value)) And CLng(CDate(hcr.Value)) <= CLng(CDate([B3].Value)) Then

Sağolun.Alamsnyadan hollandaya 3 saatlik araba yolculuğu başarı ile tamamlandı
Filtrelendiği içn yukardakine ve end alttaki koda gerek yok aslında yolda aklıma geldi.

Birde koddaki ilk iki yerdeki alttaki kodları silerseniz sadece eksi olanları F ye yazar.

Neyse siz denersiniz.

Range("F" & hcr.Row).Value = deger

 

[Miraga]

Yolculuğunuz için geçmiş olsun diyelim
siz almanyadan fransaya vardınız benim sayfada düzenleme yapınca formülleri yerine oturtamadım
malesef insan nasıl yapacağını bilmeyince deneme yanılma ile uğraşıp duruyor
gün içinde inş bitirmiş olurum ama düzgün çalışıyor gibi gözüküyor
elinize sağlık

 

[Refaz]

Kodlarda bazı yerleri silmeyi unutmuşum ve formül olayınıda ekledim.
Yanlışlık vs.. olursa konu açıp sorabilirsiniz.
Bu dosyayı kullanın diğerleri karışık olmuş dediğim fazlalıklardan.