Otomatik Tarih Yazma

[formentera]

Merhaba, B3 hücresine bir şey yazdığımda A3 hücresinde otomatikman o andaki tarih çıkmakta. Bunu da A3 üzerine şu formülü yazarak yaptım ve aşağıdaki tüm hücrelere uyguladım =IF(B3="";"";TODAY())

Sorunum şu: Hangi gün bir şey yazsam, o günün tarihini yazıyor. Ancak o günden önce yazdığım bilgilere karşılık gelen tarihler de değişiyor. Otomatikman en son ne zaman yazdıysam bir şey tüm tarihler son yazdıgım tarih oluyor.

 

[Orion1]

Yazılan tarih öylece kalsın istiyorsanız,makro kullanmalısınız.

 

[formentera]

Makro bilgim yok maalesef. Yazmaktan ziyade kaydederek yapılabilen bir şeyse ancak yapabilirim.

 

[Muzaffer Ali]

Sayfa adını sağ tıklatıp "Kod Görüntüle" seçin.
Açılan boş sayfaya aşağıdaki kodları yapıştırın.
B sütununda herhangi bir hücreye veri girişi yaptığınızda kodlar otomatik çalışacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Target.Column = 2 Or Target.Value = "" Then Exit Sub
    Target.Offset(0, -1).Value = Date
End Sub

 

[formentera]

Öncelikle yardımınız için teşekkürler. Dediğinizi yaptım. Ancak bir şeyleri eksik mi yapıyorum acaba, çünkü hepsinin tarihi değişiyor hala.

 

[Muzaffer Ali]

Tatihlerin olduğu sütunu seçip kopyalayın. Aynı sütuna sağ tıklatıp "özel yapıştırı" seçin.
Açılan pencerede "Değerler"i seçip tamamı tıklatın.

Böylelikle formüller silinmiş ve sadece tarihler kalmış oldu.

Şimdi aşağıdaki kodları deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Target.Column = 2 Or Target.Value = "" Then
        Target.Offset(0, -1).ClearContents
    Else
        Target.Offset(0, -1).Value = Date
    End If
End Sub

 

[formentera]

Şimdi oldu, ilginize çok teşekkür ederim.

 

[akmlyx]

Otomatik Tarih Yazdırmak aşağıdaki belirttiğim şekilde mümkün müdür?

Merhaba Değerli hocalarım. Otomatik tarih yazdırmak ile alakalı bir sorum olacak. a1 hücresine 2016 yazıyorum, b1 hücresine 05 yazıyorum. c1 hücresine geldiğimde hücre biçimlendirmeyi kullanarak, hücreyi tarih yazılacak formata ayarlıyorum ve c1 hücresine 6 rakamını yazdığım zaman, otomatik olarak 06.01.1900 çıkıyor. Benim istediğim ise c1 hücresine 6 yazdığım zaman tarihin gününü 06, tarihin ayını b1 hücresindeki rakamdan, tarihin yılını da a1 hücresindeki rakamdan otomatik olarak alsın ve c1 hücresinin ekranına 06.05.2016 tarihi çıksın bu mümkün müdür, Eğer makro ile mümkün ise makrosunu yazabilir misiniz. Yardımınız için TEŞEKKÜR EDERİM.

 

[akmlyx]

Yukarıda bahsedilen tarihi yazmak imkansız mı arkadaşlar? Yoksa Mesajım görülmedi mi?

 

[sakman26]

Yukarıda bahsedilen tarihi yazmak imkansız mı arkadaşlar? Yoksa Mesajım görülmedi mi?

selam,
bence mesajın görülmediğinden değil de sorunun net olmamasından kaynaklanıyor olabilir. Şöyle ki;
A1 :2016 B1: 5 C1 : 6 yazdığımızı farz edelim

D1 hücresine =TARİH($A$1;$B$1;$C$1) yazdığınızda ( ve hücre biçimlendirmesini gg.aa.yyyy belirlediğinizde) size 06.05.2016 yazacaktır.

Listeyi ilerlettiniz diyelim. Gün geldi C1 hücresini 6 yerine 8 yaptınız. Eski tarihler de hemen 08.05.2016 olacaktır. Böyle mi istiyorsunuz.

Yok, 6 yazdıklarım 6 kalsın 8 yazılanlar 8 olsun diyorsanız bu formülle değil makro ile olacaktır ki, makro kodları üst mesajlarda zaten mevcuttur.

Sorunuzu örnek dosya ile ve muhtemel sonuçları ile birlikte istediğinizde daha net ve daha kısa sürede yanıt alacağınız muhakkak.

 

[akmlyx]

Örnek dosya

Örnek Dosya ile açıklama, Ekteki Puantaj belgesinin Bilgi Girişi sayfasındaki J4 hücresinin tarih formatını ayarlayarak 6 yazdım ve hücreye otomatik olarak 06.01.1900 yazılıyor. Benim istediğim ise, L4 hücresine 6 yazdığım zaman hücredeki tarih otomatik olarak 06.05.2016 yazılmasıdır.(Tarihin gün kısmı yazdığım 6 rakamından, tarihin ay kısmı b2 hücresinde yazan aydan, tarihin yıl kısmı da b1 hücresindeki yıldan alması gerekiyor.) Yardınız için şimdiden TEŞEKKÜR EDERİM.

 

[sakman26]

Önce şunu söyleyeyim.
Tarihler bir sayıya karşılık gelir. 1900 tarih sisteminde , 01.01.1900 sayısı yani 1.gün 1 sayısına karşılık gelir. Hücreye 6 yazdım 06.01.1900 oldu demek zaten 6 Ocak 1900 tarihinin karşılığı 6 olduğundandır. Veya şöyle diyebiliriz.. Bugün 25 Haziran 2016 ve bunun sayı karşılığı 42546 dır. Diğer bir deyişle 01.01.1900 den bu yana 42546 gün geçmiştir. Hücreye 42546 yazın tarih biçimlendirmesi yapın göreceksiniz.
Şimdi gelelim sorunuza... Hücreye 6 yazayım ve hemen bu aynı hücrede diğer taraftaki bilgileri alarak 06.05.2016 olsun. Bu böyle mümkün değil.
Bence siz forumda Hücrede Takvim şeklinde arama yapın...Hücreye geldiğinizde takvim açılır ve istediğiniz günü seçersiniz...

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [L:L]) Is Nothing Or Target.Row < 4 Then Exit Sub
    
    If Target.Value > 0 And Target.Value < 13 Then
        Application.EnableEvents = False
        Target.Value = Format(Format(Target.Value, "00") & "." & Range("B2") & "." & Range("B1"), "dd.mm.yyyy")
        Application.EnableEvents = True
    End If
    
End Sub

 

[akmlyx]

Merhaba Necdet hocam, yazdığınız makroyu denedim olmadı yada ben çalıştıramadım galiba. Mümkünse çalışır halde bir excel dosyasında buraya yükleyebilir misiniz. Yardımınız için teşekkür ederim.

 

[akmlyx]

Arkadaşlar konu güncel. Yukarıdaki makroyu denedim ama çalıştıramadım acemiyim, çalışır şekilde excel dosyasına atarak buraya yükleyebilecek arkadaş var mı?

 

[YUSUF44]

Kodları kopyalayın
İlgili dosyanızda kodların çalışacağı sayfa sekmesine sağ tıklayın
Kod görüntüle deyin
Çıkan sayfaya kodları yapıştırın
Dosyanızın uzantısının xlsm (makro içerebilen excel dosyası) olmasına dikkat edin. xlsx'te makrolar çalışmaz. xls de olur.

 

[formentera]

Tekrar Merhabalar,

Bu konuyu ben açmışım zamanında Sakman ve diğer herkese geçenki yardımları için tekrar teşekkürler.
Şimdi linkteki dosyamda E sütununa bir şey yazıldığında C sütunununda otomatikman tarihin yazmasını istiyorum ve bunun için aşağıdaki kodu deniyorum ama hiç bir şey olmuyor. Neyi eksik yapıyorum acaba?

Dosya Linki: http://www.filedropper.com/valuebet-takip_1

Bu da yazdığım kod:

Private Sub Worksheet_Change(ByVal target As Range)
If target.Column = 5 Then
Application.EnableEvents = False
Cells(target.Row, 3).Value = Date
Application.EnableEvents = True
End If
End Sub

 

[sakman26]

selam,
verilerinizin E2 den başladığı varsayılarak yazıldı. Kırmızı koyu yazan yeri veri başlangıcına göre değiştirirsiniz.
Kodu ilgili sayfanın kod bölümüne kopyalayın ve deneyin....

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range, bas As Range
      Set c = Range("E[B][COLOR="Red"]2[/COLOR][/B]:E" & [E65536].End(3).Row)
    Application.EnableEvents = False
    For Each bas In Range(Target.Address)
        If Not Intersect(bas, c) Is Nothing Then bas.Offset(0, -2) = Date
    Next bas
    Application.EnableEvents = True
    Set c = Nothing
End Sub

 

[YUSUF44]

Tekrar Merhabalar,

Bu konuyu ben açmışım zamanında Sakman ve diğer herkese geçenki yardımları için tekrar teşekkürler.
Şimdi linkteki dosyamda E sütununa bir şey yazıldığında C sütunununda otomatikman tarihin yazmasını istiyorum ve bunun için aşağıdaki kodu deniyorum ama hiç bir şey olmuyor. Neyi eksik yapıyorum acaba?

Dosya Linki: http://www.filedropper.com/valuebet-takip_1

Bu da yazdığım kod:

Eğer kod çalışmıyorsa daha önce olaya bağlı kod pasiflenmiş olabilir.
Aşağıdaki kodları bir kere çalıştırdıktan sonra kodunuzu tekrar deneyin:

Sub aktif()
Application.enableevents =true
End sub()

 

[formentera]

Sakman ve Yusuf Bey, şurada yazanlar niye çalışmıyor bana problemi söyleyin lütfen. Kopyaladım aynen ama yok gene de bana mısın demiyor.

Linkteki dosyaya bakın lütfen vba ekranına neden çalışmıyor anlamadım.

Not: e6 itibariyle yazmaya baslıyorum Sakman Bey. Formülde verdiğiniz kırmızı kısma 6 yazsam da olmadı.

http://www.filedropper.com/kombinevecanl-takip