Tarihlere göre formül hakkında.

[faceturk]

Değerli forumdaşlar ekteki dosyada istediklerimi yazdım konu hakkında yardımlarınız bekliyorum.
Saygılarımla

 

[fedeal]

a4 hücresine =bugün() formulünü yazın

sayfanın kod bölümüne kodları ekleyin,iyi çalışmalar.

Private Sub Worksheet_Activate()
fd = Range("A65536").End(xlUp).Row
For i = 5 To fd
If Cells(4, 1).Value > Cells(i, 1).Value Then Cells(i, 2).Value = Cells(i, 2).Value
If Cells(4, 1).Value = Cells(i, 1).Value Then Cells(i, 2).Value = "=VLOOKUP(R4C2,'Alınan Bakiye'!C3:C4,2,0)"
If Cells(4, 1).Value < Cells(i, 1).Value Then Cells(i, 2).Value = 0
Next
End Sub

 

[faceturk]

sayın fedeal bu fonksiyonu nasıl çalıştıracağım

modüle kaydettim ama hata veriyor

 

[fedeal]

sayfanın kod bölümüne örnek dosya eklemiştim inceleyin,

 

[faceturk]

gelecek günlere ait formüllerde rakamlar var onları da yok edemeyiz mi sayın fedeal,
ayrıca geçmiş günlere ait rakamlarda formül şeklinde sayıya dönüşmemiş

 

[fedeal]

ben sadece b sütunu için algılamıştım tüm yeşi hücrelere olacakmı?

 

[faceturk]

Evet sayın fedeal,
tüm yeşil hücreler ve daha sonra gelecek olan hüzrelerde dahil yıl sonuna kadar bu tarihler devam edecek çünkü

 

[fedeal]

dosyanız ekte,
a sütunun son dolu hücresini baz aldıgı için istediginiz kadar ilave yapabilirsiniz

 

[faceturk]

Sayın Fedeal verdiğiniz emek ve gösterdiğiniz ilgilden dolayı çok teşekkürler,
saygılar