• 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

e sutununa birseyler girdigimde tarih atamiyor
 
Selamlar,

Üstteki mesajımdaki koda ufak bir ekleme yaptım. Denermisiniz.
 
tamam çok teşekkürler.. çalışıyor...

ayrıca bu başlık altında "peleryn" arkadaşımız güzel bir şey istedi sizde güzel bir kod yazdınız ben de denedim çok güzel..
ancak bir hücreye girip çıksanız ve birşey değiştirmesenizde açıklamaya kayıt atıyor. acaba bu durumda kayıt atmasa daha güzel olmazmı sonuçta hücrede değişiklik olmuyor..kodları bu şekilde düzenleyebilirmisiniz desek çok şey mi istemiş oluruz...
 
Selamlar,

Önerdiğim kodu aşağıdaki şekilde değiştirip denermisiniz.

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 GoTo Son
 
        Açıklama = .Value & WF.Rept(" ", 35 - Len(.Value))
 
        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
 
korhan bey denedim;

boş bir hücreye girip çıktığınızda açıklamaya birşey atamıyor ancak dolu bir hücreye hiçbir değişiklik yapmadan girip çıksanız yine açıklamaya bilgi ekliyor..
Ayrıca hücre değiştiğinde o hücreye açıklama olarak değiştirilmeden önceki son değeri gelmesi gerekirken değiştirdiğiniz değer geliyor...
 
son mesajımda bahsettiğim ve düzeltilmesini beklediğim dosya ise kitap.xls olarak ekliyorum. konu başlığında bahsettiğim konu ile ilgili dosya ise o da tarih_59.xls olarak ekliyorum..
 

Ekli dosyalar

osmanak' Alıntı:
korhan bey denedim;

boş bir hücreye girip çıktığınızda açıklamaya birşey atamıyor ancak dolu bir hücreye hiçbir değişiklik yapmadan girip çıksanız yine açıklamaya bilgi ekliyor..
Ayrıca hücre değiştiğinde o hücreye açıklama olarak değiştirilmeden önceki son değeri gelmesi gerekirken değiştirdiğiniz değer geliyor...
Genişletmek için tıkla ...

korhan bey yine sizden cevap bekliyorum...
 
osmanak' Alıntı:
korhan bey denedim;

boş bir hücreye girip çıktığınızda açıklamaya birşey atamıyor ancak dolu bir hücreye hiçbir değişiklik yapmadan girip çıksanız yine açıklamaya bilgi ekliyor..
Ayrıca hücre değiştiğinde o hücreye açıklama olarak değiştirilmeden önceki son değeri gelmesi gerekirken değiştirdiğiniz değer geliyor...
Genişletmek için tıkla ...

bu konuda cevap bekliyorum..
 
x (bizim belirlediğimiz sütun e:e yerine biz yazabiliriz)sütun doluysa istediğimiz hücreye tarih istediğimiz hücreye saati nasıl ekliyebiliriz. açıklama yerine bu konuda yardımcı olabilirmisiniz. Birde bunu bütün sayfalarda olması için nereye yazmamız lazım fonksiyonu
teşekkür ederim.

ben aynı hücreye tarih ve saati yaptım(Sadece Evren beyin kodunda ufak bir değişiklik yaparak) ama yinede üsteki şekli nasıl yapabilirim.
Not: Evren beyden özür dilerim farkında olmadan sizin kodu korhan bey demişim. Düzelttim. Dosyada da o yüzden korhan beyi ismini yazmışım.
Sayın osmanak ekteki örnek işinizi görür mü?
 

Ekli dosyalar

Son düzenleme:
Selamlar,

Sn. osmanak,

Aşağıdaki kodu denermisiniz.

Kod: 
Option Explicit
Dim Eski_Veri As Variant
 
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 GoTo Son
        If .Value = Eski_Veri Then GoTo Son
 
        If Eski_Veri = Empty Then
            Açıklama = "Boş Hücre !" & WF.Rept(" ", 35 - Len("Boş Hücre !"))
        Else
            Açıklama = Eski_Veri & WF.Rept(" ", 35 - Len(Eski_Veri))
        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
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Eski_Veri = Target.Value
End Sub
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst