Excel VBA Günlük Faiz Nasıl Hesaplanır? | Excel Makro Dersleri

[@berkaycicek9541]

Hocam burada "Date" i tanımıyor sanırım nerede tanımlayabilirim onu?

[@fatihguclu9233]

merhaba harun hocam bir konuda acil görüşwe bilirmiyiz

[@nevzatcrpcoglu1380]

Derslerin devamı gelecekmi ? Saygılarımla!

[@ileriexcel]

Zaman bulunursa gelecek de :)

[@berkaycicek9541]

Bir de end function ile başlatmışsınız öyle mi başlamam gerekiyor o da ayrı hata veriyor

[@ileriexcel]

End function bir önceki prosedürün bitişi. Sub ile başlıyoruz

[@berkaycicek9541]

@@ileriexcel peki hocam faiz formülünü kabul etmiyor kullandığım Excel sürümüyle ilgili olabilir mi acaba 0tl alıyorum faizi

[@elmasozdemir222]

Merhaba,herşey aynı ama çalışmadı :(, videolar için çok teşekürler :)
Sub Borctarihhesabı()
Const sabitoran As Single = 0.004
Dim tariharalık As Range: Dim odemetarih As Range: Dim tutar As Range: Dim durum As Range: Dim faiz As Range
Set tariharalık = Range("C3", Range("C3").End(xlDown))

For Each odemetarih In tariharalık
Set tutar = odemetarih.Offset(0, 1)
Set durum = odemetarih.Offset(0, 2)
Set faiz = odemetarih.Offset(0, 3)
faiz.NumberFormat = "#,##0.00 tl"

Select Case odemetarih
Case ıs < Date
durum = "borcunu öde!"
durum.Interior.Color = vbRed
faiz = tutar * sabitoran * (Date - odemetarih)
faiz.Interior.Color = vbRed
Case ıs = Date
durum = "bugün ödemelisin."
durum.Interior.Color = vbYellow
faiz = "ödeme bekleniyor"
faiz.Interior.Color = vbYellow
faiz.Font.Color = vbBlack
Case ıs > Date
durum = " daha var"
durum.Interior.Color = vbGreen
faiz = 0
faiz.Interior.Color = vbGreen
faiz.Font.Color = vbBlack
End Select

Next odemetarih

End Sub

[@ileriexcel]

Bunun yanıtını vermiştim sana Elmas:) Görüşmek üzere.

[@berkaycicek9541]

Merhabalar, siz halledebildiniz mi acaba problemi ben de yaşıyorum da benzer bir problem

[@elmasozdemir222]

@@berkaycicek9541 inanın konuyu bile unuttum :/,hocam daha iyi bilir :)

[@berkaycicek9541]

@@elmasozdemir222 tamamdır teşekkür ederim 🙏