hücre dolu ise tarih atsın

[reelabuzer]

Selam arkadaşlar.
İstediğim basit belki ama benim bilgim buraya kadar.Yapmak istediğm bir hücreye bilgi girildiğinde başka bir hücreye tarih atması. Ben şu şekilde formül yazdım
" =EĞER(A2=0;" ";BUGÜN()) " istediğim gibi de çalışıyor ama tarih değiştiğinde hücrede ki tarihte değişiyor. Benim istediğim bilgi girilen tarih sabit kalsın. Mümkün ise yardım lütfen. İlgilenen arkadaşlara şimdiden teşekkürler.

 

[hamitcan]

A sütununa bir veri girildiğinde yanındaki hücreye tarih atar.

Private Sub Worksheet_Change(ByVal Target As Range)
   if target.column <> 1 then    exit sub
   cells(Target.Row, 2) = Date
End Sub