Otomatik işlem tarihi

[iceman20]

Arkadaşlar,
Userformda bir kayıtta değişiklik yaptığımda veya yeni kayıt yaptığımda "R" sütununa işlam tarihinin otomatik gelmesi sağlanabilir mi?
Teşekkür ederim.

 

[Ömer BARAN]

http://www.excel.web.tr/f60/tarih-zaman-saat-fonksiyonlary-uygulamalary-t18175.html
1 no'lu mesaj ekindeki
Tarih&Zaman Fonksiyon Örnekleri.zip belgesinde
Hücre değişimi&tarih sayfasına bakınız.

 

[orange4609]

kodu deyebilirmisiniz.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Intersect(Target, [A:A]) Is Nothing Then Exit Sub

Cells(Target.Row, "R") = Now

End Sub

 

[bedri41]

Sn. iceman20
Başka bir konuda benzer dosyanın formülleri koruma ile ilgili bir sorusu vardı.
Ekteki dosyada bu sorunuza farklı bir çözüm uyguladım ancak "ana" sayfasında şifreli koruma olduğu için deneme şansım olmadı.

Ekteki dosyanızı inceleyiniz.
Kolay Gelsin

 

[iceman20]

Arkadaşlar öncelikle ilginiz için teşekkür ederim. Ekteki sayfa korumasını kaldırdım. Konuları incelerken bir yerde otomatik tarih ile ilgili istediğim formülü buldum ve uyguladım. Orange 4609'da sağolsun göndermiş. Şu an tarih excel sayfasına sorunsuz geliyor ancak userformda ilgili label'a tarih olarak değil sayısal karşılığı olarak geliyor.
Private Sub Label25_Change()
Label25 = Format(Label25, "dd.mm.yyyy")
End Sub
Şeklinde yazdım olmadı.
User formda textboxdan girersem düzeltme için listboxdan satırı tıklayınca doğru geliyor, excele manuel yazıp, listbox'dan çağırınca yine tarih yerine sayısal değer veriyor. Maalesef bu iki durumu çözemiyorum

 

[iceman20]

yardım lütfen

Labeldaki tarih formatını düzeletemiyorum lütfen yardımlarınız

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Dosyanız Ektedir.

 

[iceman20]

Emekleriniz ve ilginiz için çok teşekkürler