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

[dragotreis]

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

 

[dragotreis]

Görüntüleme 29 Yanıt 0 hımm!

 

[programer]

Aşağıdaki Kodları Kendi Çalışmanıza Uyarlayınız.

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

 

[dragotreis]

Hocam yapamadım örneğe uyarlayabilir misiniz?

 

[programer]

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.

 

[dragotreis]

Kodları sayfaya uyarlıyorum textbox'a tıklayınca "Compile error: Method or data member not found" hatası veriyor.
Buyrun linki:
http://dosya.co/wk4gwh1xrqvn/TEXTBOX_HATIRLATICI.rar.html

 

[Seyit Tiken]

Silmek için çift tıklama yapınız.

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

 

[programer]

Seyit Hocam cevap vermiş ama bende yazayım

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

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

 

[dragotreis]

İ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]

Örnek dosyayı inceleyiniz.

 

[dragotreis]

Zaman ayırdığınız ve ilgilendiğiniz için çok teşekkürler. Elleriniz dert görmesin Korhan Bey.

 

[dragotreis]

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?