AddComment, oto açıklama eklemek

[sadece_erhan]

Tekrar merhaba,

m1:m8000 hücreleri arasında değeri 1 olan hücreler için r sutunda karşılık gelen hücreye nasıl açıklama ekleyebilirz. açıklama hepsi için aynı olacak.
mesela
m3 hücresinin değeri 1 ise r3 hücresine açıklama ekleyecek.
m9 hücresinin değeri 1 ise r9 hücresine açıklama ekleyecek.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Aciklama()
    
    Dim i As Long
    
    Range("R1:R800").ClearComments
    
    For i = 1 To 800
        If Cells(i, "M") = 1 Then
            With Cells(i, "R")
                .AddComment
                .Comment.Visible = False
                .Comment.Text "Deneme"
            End With
        End If
    Next i
    
End Sub

.

 

[sadece_erhan]

Merhaba,

Bu şekilde deneyin.

Sub Aciklama()
    
    Dim i As Long
    
    Range("R1:R8000").ClearComments
    
    For i = 1 To 8000
        If Cells(i, "M") = 1 Then
            With Cells(i, "R")
                .AddComment
                .Comment.Visible = False
                .Comment.Text "Deneme"
            End With
        End If
    Next i
    
End Sub

.

elinize sağlık, peki aşağıdaki kodu yazığınız komuta nasıl ekleyebiliriz, önce açıklama yazacak ardından da aşağıdaki kodu çalıştıracak

Range("r1:r8000").SpecialCells(xlCellTypeComments).EntireRow.Hidden = True

 

[sadece_erhan]

yazığınız kodu da kullanarak şu şekilde hallettim, teşekkür ederim

Sub Düğme12_Tıklat()
Call Aciklama
Call satirgizle
End Sub

Sub Düğme13_Tıklat()
[r1:r8000].SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = False
Range("a1").Select
End Sub

Sub Aciklama()

Dim i As Long

Range("R1:R8000").ClearComments

For i = 1 To 8000
If Cells(i, "M") = 1 Then
With Cells(i, "R")
.AddComment
.Comment.Visible = False
.Comment.Text "Gizlenecek"
End With
End If
Next i

End Sub

Sub satirgizle()
[r1:r8000].SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
[r1:r8000].SpecialCells(xlCellTypeComments).EntireRow.Hidden = False
Range("a1").Select
End Sub

 

[marimar]

Merhaba arkadaşlar yeni konu açmak istemedim buraya yazıyorum...

If Cells(51, ActiveCell(1, 1).Column) <> "" Then
                    Sheets("ayar").Range("H26").AddComment
                    Sheets("ayar").Range("H26").Comment.Visible = False
                    Sheets("ayar").Range("H26").Comment.Text Text:="Ödenen :" & Chr(10) & Cells(51, ActiveCell(1, 1).Column)
                   End If

kodlarıyla ayar sayfasında h26 hücresine açıklama ekliyorum.
bu açıklamanın fontunu ve açıklama kutusunun boyutlarını değiştirmek istiyorum, nasıl bir kod yazmam gerekli.
Teşekkür ederim

 

[Murat OSMA]

Ek'teki dosyada açıklama ile ilgili birkaç örnek bulabilirsiniz...

 

[baydeniro]

Sayın Ömer çok teşekkürler.