Soru Hücrelerin üzerine gelince görüntüleme

NADİR YILDIZ

Altın Üye
Katılım
7 Ocak 2006
Mesajlar
1,322
Excel Vers. ve Dili
2016 Türkçe
Altın Üyelik Bitiş Tarihi
09-02-2026
arkadaşlar bu konuda yardımcı olabilirmisiniz
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,171
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Verilerin kırmızı hücrelerin içinde mi görünmesini istiyorsunuz?
 

NADİR YILDIZ

Altın Üye
Katılım
7 Ocak 2006
Mesajlar
1,322
Excel Vers. ve Dili
2016 Türkçe
Altın Üyelik Bitiş Tarihi
09-02-2026
üstad buradaki gibi
kırmızı hücrenin üstüne geldiğimde Z sütundaki ft numarasını görüntülesin istiyorum
hücrenin içine bişey yazmayacak
araştırdım ama bulamadım API ile yapılabiliyormu bilmiyorum
teşekürler
 

Ekli dosyalar

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,171
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Sayfanın Mouse_Move eventi yok. Bu sebeple istediğiniz işlem dolaylı yöntemlerle yapılabilir.

Hücre seçiminde veri doğrulamadaki giriş mesajı bölümü kullanılabilir. (Forumda InputMessage ifadesi ile arama yapabilirsiniz.)

Hücre seçiminde hücreye açıklama kutusu eklenebilir. (Bunun içinde forumda Comment ifadesi ile arama yapabilirsiniz.)
 

NADİR YILDIZ

Altın Üye
Katılım
7 Ocak 2006
Mesajlar
1,322
Excel Vers. ve Dili
2016 Türkçe
Altın Üyelik Bitiş Tarihi
09-02-2026
sayın korhan ayhan
sayın emir hüseyin çoban

yönlendirmeleriniz için teşekkür ederim

iyi çalışmalar
 

NADİR YILDIZ

Altın Üye
Katılım
7 Ocak 2006
Mesajlar
1,322
Excel Vers. ve Dili
2016 Türkçe
Altın Üyelik Bitiş Tarihi
09-02-2026
evet üstad teşekkürler
iyi çalışmalar
 
Katılım
12 Aralık 2015
Mesajlar
1,207
Excel Vers. ve Dili
Türkçe Ofis 2007
Alternatif makro ile Açıklamayla.
Not: Döngüdeki 50 sayısı afakidir, kırmızı zeminli hücre sayısına göre değiştirile bilinir.
Kod:
Sub Makro1()
On Error Resume Next
 Cells.SpecialCells(xlCellTypeComments).ClearComments
For i = 1 To 50
    Application.FindFormat.Clear
    Application.FindFormat.Interior.Color = 255
    Cells.Find(What:="", After:=ActiveCell, SearchFormat:=True).Activate
    ActiveCell.AddComment
    ActiveCell.Comment.Visible = False
    ActiveCell.Comment.Text Text:=Range("Z" & ActiveCell.Row).Value
        Next
End Sub
 
Üst