• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

yandaki hücre dolduğunda hücreye tarih atmak

O

osmanak

Katılım
6 Ekim 2005
Mesajlar
44
Excel Vers. ve Dili
Excel 2003 Türkçe
yandaki hücreye birşeyler yazıldığında bu hücreye tarihi nasıl yazdırırım.
 
Ekli dosayay inceleyiniz.
Kodlar çalışma sayfası modülünde.:cool:
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
Target.Offset(0, 1).Value = Date
Target.Offset(0, 1).NumberFormat = "dd.mm.yyyy"
Application.EnableEvents = True
End Sub
 

Ekli dosyalar

Evren Hocam bu çalışmayı şöyle yapmamız mümkün müdür?

Bir hücre değiştiğinde o hücreye açıklama olarak değiştirilmeden önceki son değeri ve değiştirildiği tarih ve saati eklense..

Ne zamandır aklımdaydı yoğunluktan konusunu açmaya fırsat bulamadım.Bu soru vesilesiyle burada soruyorum.Umarım ilgilenirsiniz.
 
Cümleyi net yazmamışım özür dilerim.Hücre değiştiğinde;değişmeden önceki en son değer ve bu değerin değiştirildiği tarih ve saat o hücreye açıklama (comment) olarak eklenebilir mi?
 
öncelikle teşekkürler
ben tüm sayfada değilde E sütunundaki hücrelere birşeyler girildiğinde D sütunundaki hücrelere tarih atamak istiyorum.yani E1 girildimi D1 e, E2 ye girildimi D2 ye gibi. ayrıca fonksiyonlarla bu yapılabilir mi?
 
Ben tüm sayfada olsun istiyorum.Ama gerçekten bu kadarcık ve net hocam:)
Kendimi dondurmacı önünde çocuklardan biri gibi hissettim:)
 
Selamlar,

Sn. peleryn aşağıdaki kodu denermisiniz.

Sayfanın kod bölümüne uygulayınız.

Kod: 
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Hücre As Range, Açıklama As String, WF As WorksheetFunction
    
    Set WF = WorksheetFunction
    Set Hücre = Target
    
    On Error GoTo Son
    
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
    
    With Hücre
        If .Value = "" Then
            Açıklama = "Hücre Boş !" & WF.Rept(" ", 35 - Len("Hücre Boş !"))
        Else
            Açıklama = .Value & WF.Rept(" ", 35 - Len(.Value))
        End If
        
        If Not .Comment Is Nothing Then
            .Comment.Text Text:=.Comment.Text & Chr(10) & Açıklama & Now
            With .Comment.Shape
                 .Left = .Left
                 .Top = .Top
                 .Width = 250
                 .Height = .Height + 12.5
            End With
        Else
            .AddComment
            .Comment.Text Text:=.Comment.Text & Açıklama & Now
            With .Comment.Shape
                 .Left = .Left
                 .Top = .Top
                 .Width = 250
                 .Height = 12.5
            End With
        End If
        
        .Comment.Visible = True
    End With
Son:
    Set WF = Nothing
    Set Hücre = Nothing
End Sub
 
Selamlar,

Sn. osmanak,

Formülle yapılabilir fakat tarih hücrede kalıcı olmaz. Sistem tarihiniz değiştikçe formülün ürettiği tarihte değişecektir.
 
osmanak' Alıntı:
öncelikle teşekkürler
ben tüm sayfada değilde E sütunundaki hücrelere birşeyler girildiğinde D sütunundaki hücrelere tarih atamak istiyorum.yani E1 girildimi D1 e, E2 ye girildimi D2 ye gibi. ayrıca fonksiyonlarla bu yapılabilir mi?
Genişletmek için tıkla ...
Dosya ektedir.:cool:
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E:E]) Is Nothing Then Exit Sub
On Error Resume Next
Application.EnableEvents = False
Target.Offset(0, 1).Value = Date
Target.Offset(0, 1).NumberFormat = "dd.mm.yyyy"
Application.EnableEvents = True
End Sub
 

Ekli dosyalar

Korhan Hocam ellerinize sağlık kodlar harika olmuş.İlk etapta sorumu tam ifade edememişim sandım.Hücreye yazdığım değeri comment'e aktarıyor diye.Ama sonra her değişikliği tarih ve saati ile kaydettiğini farkedince düşündüğümden daha da güzeli olduğunu farkettim.Ben her seferinde comment temizlenecek ve son değişikliğe göre bir önceki değer kaydedilecek diye düşünmüştüm.Bu haliyle bir çok dosyama katabilecek işlevsel bir çalışma edinmiş oldum.Çok teşekkür ediyorum.

Buna ek olarak bir ricam daha var.Commentin ölçüsü her comment için içindeki veri kadar olabilir mi ve son değişiklik yapılmış olan hücrenin commenti açıklamayı göster modunda durabilir mi?
 
Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.
 
Korhan Bey her yönüyle mükemmel oldu.Emeğiniz ve yardımlarınız için ne kadar teşekkür etsem az.Ellerinize sağlık çok teşekkür ediyorum.
 
korhan bey verdiğiniz kodları denedim çalışıyor ama hücreyi doldurup tarih geliyor ancak ilgili hücreleri işaretleyip sildiğinizde işaretleyip sildiğiniz bölgeye tarihler atıyor bakabilirmisiniz
 

Ekli dosyalar

Selamlar,

Silme işlemini yaptığınızda ne gibi bir işlem yapılmasını istiyorsunuz?
 
bahsettiğim kodları Evren bey hazırlamıştı karıştırmışım pardon...

tarih atanmış yerleri ve civarını işaretleyip sildiğinizde o bölgeye tarih atıyor ekte dosyada örneği var.

sildiğimiz zaman o bölgede birşey kalmasın istiyorum..tarihler çıkmasın..
 

Ekli dosyalar

Selamlar,

Aşağıdaki kodu denermisiniz.

Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [E:E]) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then GoTo Son
    On Error Resume Next
    If Target <> Empty Then
    Application.EnableEvents = False
    Target.Offset(0, 1).Value = Date
    Target.Offset(0, 1).NumberFormat = "dd.mm.yyyy"
    End If
Son: Application.EnableEvents = True
End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst