Uzerine gelinen hucrede bilgilendirme kutucugu cikartmak

[alphae]

Elimde bir VBA kodu var. Uzerine geldigin hucreye daha once belirledigin bir hucrenin aciklamasini atayabiliyorsun.

Istedigim sey bunu sadece tek bir hucrede uygulayabiliyorum (A2).
A12 ye birsey yazdigimda A2 de gorunuyor. Fakat ben sadece A2 degil A3,A4,A5... vs daha cok hucrede denemek istiyorum. Asagidaki kodu nasil degistirmeliyim?


Private Sub Worksheet_Change(ByVal Target As Range)
a = [A12]

mesaj = a & " "
With ActiveSheet.Range("A2")
.ClearComments
.AddComment
.Comment.Visible = False
.Comment.Text Text:=mesaj
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A12:a15")) Is Nothing Then Exit Sub
    mesaj = Target & " "
    With Target
    .ClearComments
    .AddComment
    .Comment.Visible = False
    .Comment.Text Text:=mesaj
    .Comment.Shape.TextFrame.AutoSize = True
    End With
End Sub

 

[alphae]

Tam istedigim sekilde olmamis.
Istedigim sey;

A1___B1__C1___D1__E1__...

A2___B2__C2___D2__E2__...

Yukaridaki gibi A1 e girilmis veriyi A2 de gostermesi. C1 deki bilgiyi C2 de gostermesi...
Herhangi bir hucredeki degeri istedigim birden fazla hucreye uyarlamak istiyorum.

*Hucre aciklamasina yazi yerine farkli bir hucrenin degerini girebilecegimiz baska bir yol da isimi gorur

 

[alphae]

Yardimci olabilecek kimse yok mu?

 

[Merhum İdris SERDAR]

.

Buradaki örneği inceleyin.

http://www.excelgurusu.com/hucrelere-aciklama-ekleme/


.

 

[alphae]

Farkli bir cozum olmus dugme ile. Fakat hucreler dinamik degil statik.. Hucrenin degeri girildiginde dinamik olarak ayni anda diger hucrede yeni girilen degeri dinamik bir sekilde gosteremezmiyiz?

 

[Korhan Ayhan]

Bir hücrenin değerini başka bir hücrede dinamik olarak göstermek için ilgili hücreye = dedikten sonra hücre adresini yazmaktır.

Yani A1 hücresindeki değeri A2 hücresinde göstermek için;

A2 hücresine =A1 yazmanız yeterli olacaktır.

 

[alphae]

Hucre degerini bir baska hucrede dinamik olarak gostermeyi hucre icerisinde degil o hucrenin aciklamasinda gostermek istiyorum..
Misal;
A1 hucresinde 500 yaziyor ve devamli degisken degerlere sahip.
Bir de A10 hucrem var ki oradada baska bir degerim var. (Gunun tarihi olsun)
Ben simdi A10 hucresine fare ile geldigimde A10 hucresinde A1 hucresine girdigim degerin (500) hucre aciklamasi seklinde gorunmesini istiyorum....

 

[hamitcan]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("A10")) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    With Target
    .ClearComments
    .AddComment
    .Comment.Visible = False
    .Comment.Text Text:=[a1].Text
    .Comment.Shape.TextFrame.AutoSize = True
    End With
End Sub

 

[alphae]

Sanirim kelimelere dokemedim istegimi... Elimde 200 hucre var ve bu 200 hucre bilgisi diger 200 hucrede aciklama olarak dinamik bir sekilde gorunmesi gerekiyor. Yukaridaki kodta sadece A1 e girilen A10 da gorunuyor.
Asagidaki resmi incelerseniz sanirim ne istedigim daha net anlasilacak.

 

[fireman64]

Tek bir hücre için yaptım kodu kendinize göre uyarlayınız. A1 ye yazılanı d1 e açıklama olarak ekler.

Private Sub Worksheet_Change(ByVal Target As Range)
With Range("d1")
           Range("d1").ClearComments
        .AddComment
        .Comment.Visible = False
        .Comment.Text Text:=Range("A1").Value
       
    End With
End Sub

 

[alphae]

A1 den A150 ye kadar yazilanlari sirasiyla D1 den D150 ye siralayacak bir kod yok mu?
Yoksa asagidaki gibi uzunca bir kopyala yapistir mi yapmam gerekiyor?
Coklu hucre secebilecegim bir kod nasil olmali? (orn:A1:A150, D1: D150)

Private Sub Worksheet_Change(ByVal Target As Range)
With Range("d1")
Range("d1").ClearComments
.AddComment
.Comment.Visible = False
.Comment.Text Text:=Range("A1").Value

End With
With Range("d2")
Range("d2").ClearComments
.AddComment
.Comment.Visible = False
.Comment.Text Text:=Range("A2").Value

End With
End Sub

 

[Ömer BARAN]

Merhaba.
7 numaralı cevaptaki resime bakıldığında pek birşey anlaşılmıyor.
A ve D sütununda, her hücredeki değerin kendisinden 9 satır sonraki hücreye açıklama olarak
eklenmesini istediğiniz anlaşılıyor ama J sütununda ise farklı bir durum var;
değer J sütununda ama açıklamayı H sütununda ve ayrıca 9 değil 5 satır sonra istiyorsunuz.

Kuralı tam olarak açıklarsanız daha çabuk ve kesin sonuca ulaşırsınız bence.
.

 

[Korhan Ayhan]

Örnek dosyayı inceleyiniz.