Sayfa1 Dekİ Verİlerİ, Sayfa2 De Mouse İle GÖrebİlmek

[karakayalı]

sayfa1 de A sutununda sicil numaram, B sutununda ise isimler var. sayfa2 de A sutununda SADECE SİCİLLER VAR...Ben ise sayfa2 de yer alan sicillerin üzerine moese ile geldiğimde, sayfa1 de sicilin karşısında hangi isim bulunuyorsa onu görmek istiyorum...yardımcı olacak olan arkadaşlara şimdiden teşekkürler...

 

[Levent Menteşoğlu]

Bu istediğiniz ancak hücreye bir açıklama eklerseniz fare hücre üzerine geldiğinde ismi görebilirsiniz. Aksi takdirde imleçi hücreye getirip bir kere tıklayarak çalıştıracağınız bir kodda ile işlem yapmak gerekir. Aşağıdaki kodu sayfa2 nin kod sayfasına kopyalayın. A sütunundaki hücrelere tıkladığınızda sicilnoya karşılık gelen ismi hücre içindeki açıklamada görebilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Column <> 1 Then Exit Sub
[a:a].ClearComments
sat = Sheets("sayfa1").[a1:a65536].Find(ActiveCell).Row
ActiveCell.AddComment
ActiveCell.Comment.Text Text:="Kişi Adı: " & Sheets("sayfa1").Cells(sat, "b")
End Sub

 

[karakayalı]

KOD u yazdın ancak çalışmadı.....makrosu bulunamadı hatası verdi..Run-time Error '28' hatası..kolay gelsin

 

[Necdet]

Ofisiniz ingilizce sürüm ise "Sayfa1" geçen yerleri "Sheet1" yapın

 

[karakayalı]

maalesef yine error hatası verdi..