Gerçek vadeyi formüle dökmek istiyorum.

[umit_okutucu]

Merhabalar;

Ben ekteki formülü geliştirerek her satırdaki bakiyenin yerini bulup, bakiye tarihi ile bakiyenin geriye doğru gittiği tarihin farkını alabilirmiyim_?

Yardımlarınızı rica ederim.
Teşekkürler.

 

[turist]

Ekli dosyayı inceleyiniz.

 

[umit_okutucu]

Yardımlarınızı rica ederim

Ekli dosyayı inceleyiniz.

Ekte ayrıntılı olarak açıkladığım konuda formül kurmak istiyorum. Çok düşündüm fakat uygun bir formül henüz bulamadım.

Teşekkürler.

 

[YUSUF44]

Öncelikle konu başlığınızı değiştirmeniz gerekmektedir. Lütfen sorunuzu özetleyen bir başlık yazınız.

Sayın turist, forum kuralları uyarınca cevap vermeden önce başlığın değiştirilmesini beklemeniz gerekmiyor muydu?

 

[umit_okutucu]

Merhabalar;

Ben ekteki formülü geliştirerek her satırdaki bakiyenin yerini bulup, bakiye tarihi ile bakiyenin geriye doğru gittiği tarihin farkını alabilirmiyim_?

Yardımlarınızı rica ederim.
Teşekkürler

Öncelikle konu başlığınızı değiştirmeniz gerekmektedir. Lütfen sorunuzu özetleyen bir başlık yazınız.

Sayın turist, forum kuralları uyarınca cevap vermeden önce başlığın değiştirilmesini beklemeniz gerekmiyor muydu?

Konu başlığını değiştirdim.

 

[turist]

Ekte ayrıntılı olarak açıkladığım konuda formül kurmak istiyorum. Çok düşündüm fakat uygun bir formül henüz bulamadım.

Teşekkürler.

H2 hücresine:

=IF(G2>0;MAX($A$2:$A$809)-A2;"")

=EĞER(G2>0;MAK($A$2:$A$809)-A2;"")

yazıp, listenizin sonuna kadar kopyalayıp yapıştırın.

 

[umit_okutucu]

iki formülü de aynı hücre içerisine mi yapıştırmam gerekiyor_?

H2 hücresine:

=IF(G2>0;MAX($A$2:$A$809)-A2;"")

=EĞER(G2>0;MAK($A$2:$A$809)-A2;"")

yazıp, listenizin sonuna kadar kopyalayıp yapıştırın.

Merhaba;

iki formülü de aynı hücre içerisine mi yapıştırmam gerekiyor_?

 

[turist]

Merhaba;

iki formülü de aynı hücre içerisine mi yapıştırmam gerekiyor_?

Excel'i İngilizce kullanıyorsanız 1.ci , Türkçe kullanıyorsanız 2.ci formülü kullanınız.

 

[umit_okutucu]

Excel'i İngilizce kullanıyorsanız 1.ci , Türkçe kullanıyorsanız 2.ci formülü kullanınız.

Sayın Turist ilgi ve alakanız için gerçekten Teşekkür ederim. Fakat gerçekten ne istediğimi size yansıtamadım sanırım. Bu sefer çok daha detaylı olarak yapmak istediğim formülü anlattım. Üstadlardan yardım rica ederiyorum.

 

[umit_okutucu]

Konuyla ilgili fikri olan yok mudur acaba_?

 

[apocalyt]

Makroyla bir çözüm yaptım..bir bakın..aşağıdaki kodu sayfa sekmenize sağ klik yapıp kod görüntüle diyin ve çıkan ekrana kopyalayın..c sütununa herhengi bir veri girdiğinizde otamatik olarak kod çalışcaktır..

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("c2:c10000")) Is Nothing Then Exit Sub
For x = [b1000].End(3).Row To 2 Step -1
b = x
a = Cells(x, 2)
If Cells(x, 3) = "" Then Exit Sub
If Cells(x, 3).Value <= Cells(x, 2) Then
Cells(x, "d") = 0
GoTo git
Else
For y = b - 2 To 1 Step -1
x = x - 1
a = a + Cells(y + 1, 2)
If y = 0 Then GoTo gel
If Cells(b, 3) <= a Then
Cells(b, "d") = Cells(b, "a") - Cells(y + 1, 1)
GoTo git
End If
Next y
End If
gel:
Cells(x, "d") = "yok"
git:
x = b
Next x
End Sub

 

[umit_okutucu]

Makroyla bir çözüm yaptım..bir bakın..aşağıdaki kodu sayfa sekmenize sağ klik yapıp kod görüntüle diyin ve çıkan ekrana kopyalayın..c sütununa herhengi bir veri girdiğinizde otamatik olarak kod çalışcaktır..

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("c2:c10000")) Is Nothing Then Exit Sub
For x = [b1000].End(3).Row To 2 Step -1
b = x
a = Cells(x, 2)
If Cells(x, 3) = "" Then Exit Sub
If Cells(x, 3).Value <= Cells(x, 2) Then
Cells(x, "d") = 0
GoTo git
Else
For y = b - 2 To 1 Step -1
x = x - 1
a = a + Cells(y + 1, 2)
If y = 0 Then GoTo gel
If Cells(b, 3) <= a Then
Cells(b, "d") = Cells(b, "a") - Cells(y + 1, 1)
GoTo git
End If
Next y
End If
gel:
Cells(x, "d") = "yok"
git:
x = b
Next x
End Sub

Elleriniz dert görmesin süper olmuş. Ben bu kodlamayı makro olarak kayıt ederek "çalıştır" seçeneği ile kullanabilir miyim_?