Otomatik not oluşturmak

[kneehot]

Arkadaşlar merhaba. Elimde sağa doğru uzunca bir tablo var ve bazı bilgileri görebilmek için sürekli yana kaydırmak zorunda kalıyorum. Yapmak istediğim belli hücrelerdeki metinleri otomatik not oluşturup belli bir hücre üzerine geldiğim zaman görebilmek. Anlatması biraz zor olduğu için bir örnek ekledim. Yardımcı olursanız çok sevinirim. Tüm yardımlara şimdiden çok teşekkürler.

 

[Necdet]

Merhaba,
Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp dener misiniz?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Intersect(Target, [F:F]) Is Nothing Then Exit Sub
    On Error Resume Next
    
    With Target
        .ClearComments
        .AddComment
        .Visible = False
        .Comment.Text Text:=Target.Offset(0, 9).Value & ", " & Target.Offset(0, 10).Value
    End With

End Sub

 

[kneehot]

Merhaba,
Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp dener misiniz?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Intersect(Target, [F:F]) Is Nothing Then Exit Sub
    On Error Resume Next
   
    With Target
        .ClearComments
        .AddComment
        .Visible = False
        .Comment.Text Text:=Target.Offset(0, 9).Value & ", " & Target.Offset(0, 10).Value
    End With

End Sub

Çok teşekkürler, size bir soru daha sormak istiyorum aşağıya yapıştırdığım formül süslü parantezle de yapılabiliyor sanırım daha kolay bir şekilde. Nasıl formüllenebilir yardımcı olursanız çok sevinirim.

=EĞER(H1="nisan";30;EĞER(H1="mayıs";31;EĞER(H1="haziran";32;EĞER(H1="temmuz";33;EĞER(H1="AĞUSTOS";34;EĞER(H1="EYLÜL";35;EĞER(H1="EKİM";36;EĞER(H1="KASIM";37;""))))))))

 

[Korhan Ayhan]

Merhaba,

Farklı içerikteki sorularınızı ayrı başlık açarak sormalısınız.