Açıklama Kısmına Farklı Hücredeki Yazı

[aoeflatun]

Arkadaşlar şu konuda yardımlarınızı bekliyorum.


D sütunudaki bir hücreye rakam yazdığımda o hücreinin açıklama kısmına j:k sütunundaki rakama karşılık gelen hücredeki metnin yazılmasını istiyorum.

Teşekkürler.

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
    If .Column <> 4 Then Exit Sub
    .ClearComments
    .AddComment Text:="" & Cells(.Row, "k")
    End With
End Sub

 

[aoeflatun]

Hamit bey teşekkür ederim,

Sayfa 1 e vermiş olduğunuz kodları ekledim ama hiçbirşey olmadı.

 

[hamitcan]

Eki inceleyin.

 

[aoeflatun]

Hamit bey,
Veri değiştiğinde açıklama değişmiyor.

 

[hamitcan]

D sütunudaki bir hücreye rakam yazdığımda o hücreinin açıklama kısmına j:k sütunundaki rakama karşılık gelen hücredeki metnin yazılmasını istiyorum.

Sorunuzda D sütununa girildiğinde yazmışsınız. Ozaman kodu, biraz değiştirmek gerekiyor.

 

[hamitcan]

Hamit bey,
Veri değiştiğinde açıklama değişmiyor.

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
    If .Column = 4 Then
        .ClearComments
        .AddComment Text:="" & Cells(.Row, "k")
    ElseIf .Column = 11 Then
        Cells(.Row, "d").ClearComments
        Cells(.Row, "d").AddComment Text:="" & Cells(.Row, "k")
    End If
    End With
End Sub

 

[baydeniro]

süpersiniz sayın hamitcan