Yalnız Mesajı Göster
Eski 24-11-2012, 16:54  
ynmcan
Altın Üye
 
Giriş: 29/08/2008
Şehir: istanbul
Mesaj: 653
Excel Vers. ve Dili:
2010 türkçe
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Range)

If [C7] = "" Then
   [C7] = ""
Else
   [C7] = Format(Now, "dd.mm.yyyy hh:mm")
End If

End Sub
Şekinde Deneyin.
ynmcan Çevrimdışı   Alıntı Yaparak Cevapla