Hücrede yazanı eçıklama ekde yazmak

[sosorry]

ustalar selam,
ektedi dosya için lütfen yardım.

 

[sosorry]

açıklayıcı olabildim mi?

 

[Ömer]

Merhaba,

Kodları module kopyalayarak çalıştırın.

Sub Açıklama()
For i = 4 To [C65526].End(3).Row
    With Cells(i, "c")
        .AddComment
        .Comment.Visible = False
        .Comment.Text Text:=Cells(i, "c") & Chr(10) & ""
        .Comment.Shape.TextFrame.AutoSize = True
    End With
Next i
End Sub

.

 

[sosorry]

Merhaba,

Kodları module kopyalayarak çalıştırın.

Sub Açıklama()
For i = 4 To [C65526].End(3).Row
    With Cells(i, "c")
        .AddComment
        .Comment.Visible = False
        .Comment.Text Text:=Cells(i, "c") & Chr(10) & ""
        .Comment.Shape.TextFrame.AutoSize = True
    End With
Next i
End Sub

.

eline sağlık ancak hücredeki yazıyı silince açıklama da siliiyor. hücredeki yazıları silince açıklamadaki yazılar silinmesin. :S

 

[Ömer]

Eğer hücredeki veriyi sildikten sonra butona tekrar basarsanız açıklama silinir. Bunun dışında silinmez. İstediğiniz bu değilse detaylı açıklama yapınız.

 

[sosorry]

Eğer hücredeki veriyi sildikten sonra butona tekrar basarsanız açıklama silinir. Bunun dışında silinmez. İstediğiniz bu değilse detaylı açıklama yapınız.

evet evet anladım. eline sağlık çok teşekkür ederim.