Makro ile Düşeyarada (açıklamalarında Gelmesi)

[h.aykol_]

Arkadaşlar Düşeyarada Başvurduğun hücredeki metin ile (açıklamanında) gelmesi makro ile mümkün olmazmı? önemli şimdiden teşekkür ederim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfa1'in kod sayfasına kopyalayın. Sayfa1 deki B9 hücresine isim yazdığınızda çalışacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b9]) Is Nothing Then Exit Sub
If WorksheetFunction.CountIf([m:m], [b9]) > 0 Then
sat = WorksheetFunction.Match([b9], [m:m], 0)
[c9] = RTrim(Cells(sat, "m").Comment.Text)
Else
[c9] = ""
End If
End Sub

 

[h.aykol_]

Yanıt bulamadığım bir konu daha oluştu.

Çok Teşekkür ederim.Ama yanıtını bulamadığım bir konu daha oluştu hafızamda.Açıklama şeklinde resim ekledim. resim gelmedi.
ekte sunuyorum.İlginiz için Teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[h.aykol_]

Çok Teşekkür ederim değerli (MENTEŞOĞLU ve AYHAN).personel işiyle uğran bir çok kişiye kolaylık getirecek.