Sayfa üzerindeki textbox'ta hatırlatıcı not

Katılım
21 Mart 2013
Mesajlar
78
Excel Vers. ve Dili
Plus 2010
Altın Üyelik Bitiş Tarihi
27.05.2022
2 tane textbox var. Daha veri girilmeden yani textbox'lar boşken içinde soluk renkte hatırlatıcı notlar olsun. "Arama Yapınız!" gibi. Üzerine tıklanınca (arama yapınca) hatırlatıcı not yok olsun! Textbox'lar boşalınca (Temizleme butonu var) hatırlatıcı not geri gelsin! Bir türlü yapamadım. Teşekkürler

Sitede bir örnek var ama sayfama uyarlayamadım.
http://www.excel.web.tr/f48/textbox-da-gecici-metin-olu-turma-t96016.html
 

Ekli dosyalar

Katılım
21 Mart 2013
Mesajlar
78
Excel Vers. ve Dili
Plus 2010
Altın Üyelik Bitiş Tarihi
27.05.2022
Görüntüleme 29 Yanıt 0 hımm!
 
Katılım
26 Mayıs 2005
Mesajlar
608
Excel Vers. ve Dili
Office 2022 - Türkçe
Altın Üyelik Bitiş Tarihi
16-03-2025
Aşağıdaki Kodları Kendi Çalışmanıza Uyarlayınız.

Kod:
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Sayfa1.TextBox1.ForeColor = &H0&
Sayfa1.TextBox1.Value = ""
End Sub

Private Sub Worksheet_Activate()
Sayfa1.TextBox1.ForeColor = &HE0E0E0
Sayfa1.TextBox1.Value = "Arama Yapınız!"
End Sub
 
Katılım
21 Mart 2013
Mesajlar
78
Excel Vers. ve Dili
Plus 2010
Altın Üyelik Bitiş Tarihi
27.05.2022
Hocam yapamadım örneğe uyarlayabilir misiniz?
 
Katılım
26 Mayıs 2005
Mesajlar
608
Excel Vers. ve Dili
Office 2022 - Türkçe
Altın Üyelik Bitiş Tarihi
16-03-2025
Altın üyeliğim olmadığı için dosyayı indiremiyorum. Biraz daha açıklayısı söylerseniz nerede takıldığınızı yardımcı omaya çalışayım.
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,652
Excel Vers. ve Dili
Excel : 2010
Silmek için çift tıklama yapınız.
Kod:
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox1.Value = Empty
End Sub

Private Sub UserForm_Activate()
Me.TextBox1.Value = "Arama Yapınız!"
Me.TextBox1.ForeColor = &H80000010
End Sub
 
Katılım
26 Mayıs 2005
Mesajlar
608
Excel Vers. ve Dili
Office 2022 - Türkçe
Altın Üyelik Bitiş Tarihi
16-03-2025
Seyit Hocam cevap vermiş ama bende yazayım

kodları aşağıdaki gibi değiştirip denermisiniz.

Kod:
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Sheets("2013").TextBox1.ForeColor = &H0&
Sheets("2013").TextBox1.Value = ""
End Sub


Private Sub Worksheet_Activate()
Sheets("2013").TextBox1.ForeColor = &HE0E0E0
Sheets("2013").TextBox1.Value = "Arama Yapınız!"
End Sub
 
Katılım
21 Mart 2013
Mesajlar
78
Excel Vers. ve Dili
Plus 2010
Altın Üyelik Bitiş Tarihi
27.05.2022
İlgileriniz için öncelikle teşekkür ediyorum. Kodları çalıştırdıktan sonra textbox'a bilgi notunu yazıyor ama sütunlar boş geliyor. Textbox'ta "Arama Yapınız!" yazısı belirdiğinde sütunlarda "Arama" veya "Yapınız" veya her ikisini içeren sözcükler olsaydı bu ifadelere karşılık gelen satırlar listelenmiş olurdu. Çünkü filtreleme (Süzgeç) var bunun düzeltilmesi gerek. Daha da önemlisi -temizleme düğmesi var farketmediniz galiba- textbox'ların içi boşalınca yine "Arama Yapınız!" yazısı geri gelsin! Yani tıklandığında ve doğal olarak veri girişi yapıldığında boşalsın, aksi halde textbox'lar yeni aramalar için hazır beklerken bilgi notu geri gelsin.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,520
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Örnek dosyayı inceleyiniz.
 

Ekli dosyalar

Katılım
21 Mart 2013
Mesajlar
78
Excel Vers. ve Dili
Plus 2010
Altın Üyelik Bitiş Tarihi
27.05.2022
Zaman ayırdığınız ve ilgilendiğiniz için çok teşekkürler. Elleriniz dert görmesin Korhan Bey.
 
Katılım
21 Mart 2013
Mesajlar
78
Excel Vers. ve Dili
Plus 2010
Altın Üyelik Bitiş Tarihi
27.05.2022
Ufak bir sorun daha var. "Filtre Temizle" düğmesine tıkladığımda textboxlar ve excel sayfası yardımıyla yapılan filtrelemeyi tek tıkla silemiyor (3 Kez tıklayınca). Yani iki türlü filtreleme var. Bir de sütun başlıklarında hem evet hem hayırlar var. Bir değişken aynı zamanda iki değer alamayacağına göre bunları tek sütunda birleştirdim. Böyle olunca "Filtre Temizle" düğmesi iyice işlevsizleşti. Anlayamadım değişen ne?
 
Üst