Atanan tarihi formülde kullanmak

[queandoredo]

Merhaba;

Bu ilk mesajım bu forumda da yeniyim, elimden geldiğince arama yapmaya çalıştım ama tam olarak aradığım şeyi bulamadığım için yeni konu açtım. sorum şu şekilde:
"
B sütununa bir veri girdiğimde A sütununa otomatik tarih atma işlemini aşağıdaki şu kod ile VBA üzerinden yapabiliyorum:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B1:B1048576]) Is Nothing Then Cells(Target.Row, "A") = Format(Now, "dd.mm.yyyy hh:mm")
End Sub

ancak sorunum buradan sonra, buradan çıkan tarihi excelde başka bir formülde kullanmak istiyorum. o formülüm de şu:

=MAK(EĞER(I:I<=A1;I:I))

ancak bu formül VBA dan gelen tarihi tanımıyor. anlamıyor. bu sorunu nasıl çözerim."

Yardımcı olacaklara şimdiden çok teşekkürler.

 

[apocalyt]

Merhaba..eğer dosyanızı yüklerseniz daha hızlı yardım alabilirsiniz..ki ben sorduğunuz bu soruna baktım..formülün çalışmasında bir sorun göremedim..

 

[YUSUF44]

Ordaki format kodu nedeniyle metin olarak biçimlendirildiği için sorun oluşuyor. Aşağıdaki gibi kullanın. A sütununu kendiniz istediğiniz tarih biçiminde biçimlendirebilirsiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B1:B1048576]) Is Nothing Then Cells(Target.Row, "A") = Now
End Sub

 

[Muzaffer Ali]

Aşağıdaki kodu kullanın

If Not Intersect(Target, [B1:B1048576]) Is Nothing Then Cells(Target.Row, "A") = Now

 

[queandoredo]

çok çok çok teşekkür ederim.