Hücreye otomatik not eklemek

[muratgunay48]

Arkadaşlar, sayın hocalarım, bir bağışçılar dosyası var. İçinde 50 kişi var diyelim. Ama adları aşırı çok yerde geçiyor. Hatta farklı sayfalarda.
Ben her ismin altına T.C. Ve telefon yazarsam dosya çok kalabalık olacak diye düşündüm.
Bunun yerine ismin üstüne gelince NOT gözüksün.
Ama hepsine tek tek NOT yazmak gerekir. Ya da gerekir mi?
Bunun kısa bir yöntemi yok mu acaba? Çok araştırdım bulamadım.
Mesela bir sayfaya bağışçılar diye liste yazsam, yanında T.C. Ve telefon yazsam. Bundan sonra herhangi bir hücreye Murat Günay yazınca hücreye Murat Günay'ın NOT'u da gelsin.
Şimdiden teşekkür ederim.
Saygılarımla.

 

[Muzaffer Ali]

Dosyada Liste adlı sayfanın A sütununda yazan isimlerden hangi sayfa ve hücreye yazarsanız yazın açıklama ekleyip T.C. ve Tel No yu ekler.

 

[muratgunay48]

Dosyada Liste adlı sayfanın A sütununda yazan isimlerden hangi sayfa ve hücreye yazarsanız yazın açıklama ekleyip T.C. ve Tel No yu ekler.

Hocam elinize emeğinize sağlık. Güzel bile olmamış, olağanüstü olmuş. Gerçekten çok teşekkür ederim.

 

[Muzaffer Ali]

İsmi sildiğinizde açıklamanın da silinmesi için bu dosyadaki kodu silin yerine bunu kopyalayın.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim Bul As Range
    If Not Target.Comment Is Nothing Then
        Target.Comment.Delete
    End If
    With Worksheets("Liste")
        Set Bul = .Range("A:A").Find(what:=Target.Text, lookat:=xlWhole)
        If Not Bul Is Nothing And Target.Cells.Count = 1 And Not IsEmpty(Target) Then
            If Target.Comment Is Nothing Then
                Target.AddComment
            End If
            Target.Comment.Text .Cells(Bul.Row, "B") & Chr(10) & .Cells(Bul.Row, "C")
        End If
    End With
End Sub

 

[muratgunay48]

İsmi sildiğinizde açıklamanın da silinmesi için bu dosyadaki kodu silin yerine bunu kopyalayın.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim Bul As Range
    If Not Target.Comment Is Nothing Then
        Target.Comment.Delete
    End If
    With Worksheets("Liste")
        Set Bul = .Range("A:A").Find(what:=Target.Text, lookat:=xlWhole)
        If Not Bul Is Nothing And Target.Cells.Count = 1 And Not IsEmpty(Target) Then
            If Target.Comment Is Nothing Then
                Target.AddComment
            End If
            Target.Comment.Text .Cells(Bul.Row, "B") & Chr(10) & .Cells(Bul.Row, "C")
        End If
    End With
End Sub

Evet hocam fark etmemişim, ismi silince açıklama kalıyor.
Teşekkür ederim. Çok güzel oldu. Emeğinize sağlık.

 

[muratgunay48]

İsmi sildiğinizde açıklamanın da silinmesi için bu dosyadaki kodu silin yerine bunu kopyalayın.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim Bul As Range
    If Not Target.Comment Is Nothing Then
        Target.Comment.Delete
    End If
    With Worksheets("Liste")
        Set Bul = .Range("A:A").Find(what:=Target.Text, lookat:=xlWhole)
        If Not Bul Is Nothing And Target.Cells.Count = 1 And Not IsEmpty(Target) Then
            If Target.Comment Is Nothing Then
                Target.AddComment
            End If
            Target.Comment.Text .Cells(Bul.Row, "B") & Chr(10) & .Cells(Bul.Row, "C")
        End If
    End With
End Sub

Hocam aynı cevabınıza ikinci cevap oldu ama kusura bakmayın. Dediğim gibi ben fark etmemişim bile sizin öngörünüzle silince yorumun silinmesi oldu.
Çok güzel ve faydalı ama size bir şey danışsam. Normal "Murat1" yazınca silersem açıklama siliniyor.
Ancak Veri Doğrulama ile listeden getirince ve silince açıklama gitmiyor. Nasıl bir yol izlemek gerekir acaba.
Teşekkür ederim.

 

[Muzaffer Ali]

E sütunundaki hücrelerde listeden bir seçim yaptığımda açıklama ekleniyor, değiştirdiğimde açıklama da değişiyor ve sildiğimde açıklamalar siliniyor. Ekran görüntüsü ekte.
Yani dediğiniz gibi listeden seçim ile manuel yazma arasında hiçbir fark yok kodlar çalışıyor.

muratgunay48.mp4 dosyasını indir - download

muratgunay48.mp4 dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[muratgunay48]

E sütunundaki hücrelerde listeden bir seçim yaptığımda açıklama ekleniyor, değiştirdiğimde açıklama da değişiyor ve sildiğimde açıklamalar siliniyor. Ekran görüntüsü ekte.
Yani dediğiniz gibi listeden seçim ile manuel yazma arasında hiçbir fark yok kodlar çalışıyor.

muratgunay48.mp4 dosyasını indir - download

muratgunay48.mp4 dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

Hocam boştan yere vaktinizi aldım kusura bakmayın. Sanırım Mandela sendromu oldum. Şaka bir yana dün silinmediğine yemin edebilirim. Şu an siliniyor.
Tekrar özür dilerim.