Otomatik tarih yazdırmak

[Failimechul]

Merhaba

Gerekli açıklamayı dosyada yazdım. Buraya da yazayım belki direkt cevabı biliyosunuzdur.

Otomatik olarak tarih yazdırmak için =bugün() formülünü kullanıyorum. Fakat bu tarih excel i her açtığımda yenileniyor ve dün yapılmış işlemi bugün yapılmış gibi gösteriyor. Benim ihtiyacım olan ise bugün yapmış olduğum işleme yarın baktığım zaman bugünün (işlemi yaptığım) tarihi kalsın. O tarih hiç bir şekilde değişmesin istiyorum. Yardımlarınız için şimdiden çok teşekkür ederim

 

[Ali]

Otomatik olarak tarih yazdırmak için =bugün() formülünü kullanıyorum. Fakat bu tarih excel i her açtığımda yenileniyor ve dün yapılmış işlemi bugün yapılmış gibi gösteriyor.

Bunun için makro kullanmalısınız.

Aşağıdaki linkteki çalışmanın hücre değişimi & tarih adlı sayfasını inceleyiniz.

Tarih & Zaman & Saat Fonksiyonları Uygulamaları

.

 

[Failimechul]

Bunun için makro kullanmalısınız.

Aşağıdaki linkteki çalışmanın hücre değişimi & tarih adlı sayfasını inceleyiniz.

Tarih & Zaman & Saat Fonksiyonları Uygulamaları

.

Teşekkürler
Evet ben de tam olarak bunu istiyorum fakat bunu nasıl yapabilirim? Orada girilmiş hiç bir formül yok malesef

 

[Ali]

Sağ tuş kod görüntüle kısmını tıklayınız.Kodları kopyalayıp kendi sayfanıza yapıştırın.Deneme yanılma yaparak kodların çalışmasını kendinize adapte edebilirsiniz.

 

[Failimechul]

Sağ tuş kod görüntüle kısmını tıklayınız.Kodları kopyalayıp kendi sayfanıza yapıştırın.Deneme yanılma yaparak kodların çalışmasını kendinize adapte edebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Aralik As Range, ilk As Range
Set Aralik = Range("a2:a10")
Application.EnableEvents = False
For Each ilk In Range(Target.Address)
If Not Intersect(ilk, Aralik) Is Nothing Then ilk.Offset(0, 1) = Date
Next ilk
Application.EnableEvents = True
Set Aralik = Nothing
End Sub


Kod kısmında bu kodları buldum. Bu kodlarda anladığım tek şey Range("a2:a10") kısmı. "Aralik" ve "ilk" diye tabir edilen kodların ne anlama geldiğini anlayamadım. Dolayısıyla kendime uyarlayamıyorum. Yardım edebilir misiniz bana lütfen?

 

[Ali]

Sürekli olarak aynı aralıkları yazmamak için o şekilde bir ad tanımlıyoruz. Siz istediğiniz bir isimlede tanımlayabilirsiniz.

Aralık ile A2:A10 aralığında bu kod geçerli olsun dedik.

.Offset(0, 1)=Date ile bu A2:A10 aralığına bir veri girildiğinde hemen sağındaki sütuna B sütununa Date=Tarih yaz dedik.

Eğer C sütununa yaz demek isteseydik Offset(0, 1) kısmını Offset(0, 2) olarak değişecekti.

 

[Failimechul]

Sürekli olarak aynı aralıkları yazmamak için o şekilde bir ad tanımlıyoruz. Siz istediğiniz bir isimlede tanımlayabilirsiniz.

Aralık ile A2:A10 aralığında bu kod geçerli olsun dedik.

.Offset(0, 1)=Date ile bu A2:A10 aralığına bir veri girildiğinde hemen sağındaki sütuna B sütununa Date=Tarih yaz dedik.

Eğer C sütununa yaz demek isteseydik Offset(0, 1) kısmını Offset(0, 2) olarak değişecekti.

Süpersiniz çok teşekkür ederim

 

[dipterus]

Ben Hücre Değişimi / Tarih sekmesi ile ilgileniyorum ama sağ tuş kod görüntüle kısmını bir türlü bulamadım. Ayrıca o sayfada nereye sağ tıklarsam tıklayayım tarih girişi için hazırlanmış bölüm karşıma geliyor.

Daha detaylı bilgi rica edebilir miyim ?

(tamam hallettim)