Excelde hücredeki nota otomatik bilgi kaydetmek mümkün mü?

[besen]

Soru başlıkta
Teşekkür ederim.

 

[YUSUF44]

Aşağıdaki makro A1 hücresine

Bu hücrede
3 satır
açıklama var

şeklinde açıklama eklemektedir:

Sub açıklama()
    Range("A1").AddComment
    Range("A1").Comment.Text Text:="Bu hücrede " & Chr(10) & "3 satır" & Chr(10) & "açıklama var"
End Sub

 

[besen]

Yusuf Bey merhaba ben fikir olarak sormuştum, olabildiğini anladım. Esas istediğim çözüm ektedir.

Selam, sevgi, saygı.

 

[YUSUF44]

Aşağıdaki gibi deneyiniz:

Sub açıklamaekle()
On Error Resume Next
For i = 3 To 5
    açıklama = ""
    Cells(1, i).AddComment
    For j = 3 To Cells(Rows.Count, i).End(3).Row
        açıklama = açıklama & Chr(10) & Cells(j, "B") & " " & Cells(j, i)
    Next
    Cells(1, i).Comment.Text Text:=açıklama
Next
End Sub

 

[besen]

Harikasınız.

Makronun işleyişini anlamak istiyorum.
Yazdığınız makroda, not B3- B10 aralığındaki bilgileri sabit alıp, C3-C10 arasındaki bilgileri
C1'e, D3-D10 arasındaki bilgileri D1'e, E3-E10 rasındaki bilgileri E1'e yazıyor.

Şimdi referanslarımı şöyle değiştirirsem makro böyle mi olmalı.
Teşekkür ederim, Saygılar.

Notun yazılacağı hücereler, C5 - J5
Sabit bilgilerin okunacağı alan, A10 - A20 arası,


Sub açıklamaekle()
On Error Resume Next
For i = 3 To 10
açıklama = ""
Cells(5, i).AddComment
For j = 10 To Cells(Rows.Count, i).End(10).Row
açıklama = açıklama & Chr(20) & Cells(j, "A") & " " & Cells(j, i)
Next
Cells(5, i).Comment.Text Text:=açıklama
Next
End Sub

 

[YUSUF44]

Verdiğiniz kodu inceleyelim:

For i = 3 to 10 ==> 3. Sütun ile 10. Sütun arasına bak
Cells(5,i).addcomment ==> o sütunun 5. Satırına açıklama ekle
For j = 10 to... ==> 10. Satırdan son dolu satıra kadar kontrol et
Mevcut açıklama verisine chr(10) kodlu karakter ve o satırın bilgilerini ekle
İşlemleri bitir
Hücrenin açıklamasını son duruma göre güncelle

Burda gördüğüm kadarıyla tek sorun chr(20) kısmı. Benim verdiğim koddaki chr(10) karakteri excelde DAMGA(10) anlamına geliyor. Bu kod alt satıra geçmeye yarıyor yani bir nevi hücre içinde Alt+ENTER yapılmış oluyor. Şu anda cepten baktığımdan chr(20) kodu hangi karakter bilemiyorum. Bir karşılığı muhtemelen vardır ama istediğimiz gibi alt satıra geçmek değildir.

20 yerine 10 kullanırsanız olur muhtemelen.

Ayrıca aklınızda bulunsun, örnek dosyanız asıl dosyanızla aynı yapıda olursa düzenlemek için çok uğraşmazsınız. Öğrenme açısından yaptığınız güzel ancak çoğunlukla uyarlaması yapamıyor maalesef farklı dosya gönderen arkadaşlar.