d1 hücresine yazılan açıklama a1 hücresinin açıklaması olsun

[imdatsaral]

Selam Arkadaşlar,

Benim Sorum D1 Hücresine yazılan değer A1 hücresinin Açıklaması olması yapılabilirmi? Daha iyi anlatmak için excel dosyası ilave ediyorum.

İmdat Saral
İzmir

 

[hamitcan]

Sayfanın kod kısmına aşağıdaki kodu ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$A$1" Then Exit Sub
    [d1] = Target.Comment.Text
End Sub

 

[imdatsaral]

Sayın hamitcan,

Verdiğin cevap için teşekkür ederim ben istediğimi anlatamadım örnek dosyayı incelermisiniz

İmdat Saral
İzmir

 

[uzmanamele]

merhaba
bu işinize yarar mı

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Range("A1").AddComment
Range("A1").Comment.Visible = False
Range("A1").Comment.Text Text:="admin:" & [d1]
End Sub

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 1 Then Exit Sub
    Target.Offset(0, 3) = WorksheetFunction.Clean(Target.Comment.Text)
End Sub

 

[imdatsaral]

uzmanamele, hamitcan,

Vermiş olduğunuz koddları denedim hata veriyor. göndermiş olduğum örnek dosya üzerinde denermisiniz

 

[hamitcan]

Hata nedir ?

 

[imdatsaral]

Hata bilgisi ektedir

 

[uzmanamele]

merhaba
bunu denermisiniz

Sub a&#231;&#305;klama_ekle()
s = [a65536].End(3).Row
For i = 1 To s
Cells(i, 1).AddComment
Cells(i, 1).Comment.Visible = False
Cells(i, 1).Comment.Text Text:="admin:" & Cells(i, 4)
Next
MsgBox "a&#231;&#305;klamalar eklendi"
End Sub

 

[imdatsaral]

Emeğiniz için teşekkür ederim arkadaşlar