Hücreye bilgi giriş tarihi **acil**

[cout(h)ane]

Herkese merhaba,

A1 hücresine öyle bir formül yazmak istiyorum ki aşağıdaki şartları sağlasın, ben biraz uğraştım ama beceremedim.

Eğer A2 hücresinin değeri 100 değil ise A1=BUGÜN();
Eğer A2 hücresinin değeri 100 ise A1= "değerin 100 yapıldığı tarih"

 

[Levent Menteşoğlu]

Böyle bir formül oluşturmak için 100 değerini aldığı tarihin başka bir hücrede sabit olarak kayıtlı olması gerekir. Bunuda formüllerle yapamazsınız. Bu durumda vba devreye girer aşağıdaki kodu sayfanın kod sayfasına yazarak deneyin.

[vb:1:cec66a90f5]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$2" Then Exit Sub
If [a2] = 100 And [iv1] = 0 Then [iv1] = Date
If [a2] <> 100 Then [a1] = Date
If [a2] = 100 Then [a1] = [iv1]
End Sub

[/vb:1:cec66a90f5]