Metin kutusuna varsayılan yazı ekleme

[klop01]

Arkadaşlar konu aşağıdaki gibidir.
Yardımlarınızı rica ederim.
Dosya ektedir.

 

[Necdet]

Merhaba,
Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayın.
Kendinize göre de değişiklik yapabilirsiniz.
Bence textbox kullanmak çok da gerekli değil, aynı işlemi daha bildik kodlarla doğrudan D1 hücresinde de yapabilirsiniz, Koşullu Biçimlendirme ile.

Private Sub TextBox1_Change()

If TextBox1.Text <> "ÖĞRENCİ ARA" Then Sayfa1.TextBox1.ForeColor = &H80000001

End Sub

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Sayfa1.TextBox1.Text = ""

End Sub

Private Sub Worksheet_Activate()

Sayfa1.TextBox1.Text = "ÖĞRENCİ ARA"
Sayfa1.TextBox1.ForeColor = &H8000000C

End Sub

 

[klop01]

Necdet Bey,
Kodlar ve öneriniz için teşekkürler.
Yol gösterici oldular. Kendim biraz geliştirip farklı durumlara uyarlayabilirim diye düşünüyorum.

 

[Necdet]

Merhaba,
Zaten öyle olmalı, yoksa gelişme olmuyor.
İyi günler.