Hücreye bağlı otomatik tarih verme, makrosu var yapamadım

[cyperin]

Sayın Hocalarım merhaba;

40 sayfalı ve yaklaşık 250 satırda 7 sütun bilgili bir gelen kişi kayıt listesi yapmaya çalışıyorum, bu 40 sayfanın ilk sütunu başlıklardan oluşuyor 2. satırdan itibaren B sütununa bir değer girdiğimde karşısındaki G sütununa o günün tarihini otomatik atsın istiyorum. Başka bir gün exel'i açtığımda geçmiş günde verdiği değerin değişmesini istemiyorum. İnternette bir makro buldum fakat yapamadım yardımcı olursanız sevinirim.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
Cells(ActiveCell.Row - 1, "g") = Now
son:
End Sub

 

[Necdet]

Merhaba,

Verdiğiniz kodlar ilgili sayfanın kod bölümünde olmalı.
Fakat siz 40 sayfanın tümünde çalışsın istiyorsanız, Aşağıdaki kodları BuÇalışmaKitabının kod bölümüne aşağıdaki kodları yapıştırmanız gerek.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    On Error GoTo Son
    
    If Intersect(Target, [B:B]) Is Nothing Or Target.Row < 2 Then Exit Sub
    Cells(Target.Row, "G") = Date
    
Son:

End Sub

Çalışmaması gereken sayfaları da kontrol edebilirsiniz.

 

[cyperin]

Bu kodları nasıl ve nereye yapıştıracağımı bilemedim alt + F11 den insert ve modul'e yazdım yine olmadı yukarıda da belirttiğim gibi kodu internetten buldum, nereye yazacağımı belirtirseniz sevinirim.

 

[turist]

Necdet Bey'in bu konuda daha önce vermiş olduğu bilgi için:
http://www.excel.web.tr/f50/thisworbook-kod-bolumu-t37006.html

bakınız.

 

[cyperin]

Yardımınız için çok teşekkür ederim oldu, Kodda belirtildiği şekilde tarih yazdı fakat saat kısmınıda yazıyor ve 00:00 olarak ben saat istemiyorum mümkünmüdür.

 

[turist]

Kod'da yazılı

Cells(Target.Row, "G") = Date

satırını

Cells(Target.Row, "G") =[B] Format(Date, "dd.mm.yyyy")[/B]

şeklinde uygulayın.

 

[cyperin]

Verdiğiniz bilgiler ve emeğiniz için teşekkür ederim. Selam ve saygılarımla.