TextBox içeriğine göre renk

[Altay3555]

Selamlar,
Textbox içeriğinde E yazarsa Mavi
K yazarsa Kırmızı
renk kodu olabilirmi.
Teşekkürler.

 

[Orion1]

Selamlar,
Textbox içeriğinde E yazarsa Mavi
K yazarsa Kırmızı
renk kodu olabilirmi.
Teşekkürler.

Private Sub TextBox1_Change()
TextBox1.BackColor = vbWhite
If UCase(TextBox1.Text) = "E" Then TextBox1.BackColor = vbBlue
If UCase(TextBox1.Text) = "K" Then TextBox1.BackColor = vbRed
End Sub

 

[Altay3555]

Hocam teşekkürler,
Aynı kod içerisine yada textbox a açılır kutu ivs içinden E ve K değerini seçtirebilirmiyiz.

 

[İhsan Tank]

Hocam teşekkürler,
Aynı kod içerisine yada textbox a açılır kutu ivs içinden E ve K değerini seçtirebilirmiyiz.

merhaba
eğer ki sayfa üzerinde kullanıyorsunuz

Private Sub ComboBox1_Change()
TextBox1 = ComboBox1.Text
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ComboBox1.Clear
ComboBox1.AddItem "e"
ComboBox1.AddItem "k"
End Sub
Private Sub TextBox1_Change()
If TextBox1 = "" Then
TextBox1.BackColor = &H80000005
ElseIf ComboBox1 = "k" Then
TextBox1.BackColor = &HFF&
ElseIf ComboBox1 = "e" Then
TextBox1.BackColor = &H80000002
End If
End Sub

bu kodu sayfanın kod bölümüne giriniz.
herhangi bir hücreyi seçtiğiniz kod otomatik combobox'a verileri aktarır.
userform'da ise

Private Sub ComboBox1_Change()
TextBox1 = ComboBox1.Text
End Sub
Private Sub TextBox1_Change()
If TextBox1 = "" Then
TextBox1.BackColor = &H80000005
ElseIf ComboBox1 = "k" Then
TextBox1.BackColor = &HFF&
ElseIf ComboBox1 = "e" Then
TextBox1.BackColor = &H80000002
End If
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem "k"
ComboBox1.AddItem "e"
End Sub

bu kodu kullanabilirsiniz

 

[Orion1]

Hocam teşekkürler,
Aynı kod içerisine yada textbox a açılır kutu ivs içinden E ve K değerini seçtirebilirmiyiz.

Denemeye değer.

 

[Altay3555]

Hocam çok teşekkürler,
Her ikiside uygun ve güzel.
emeğinize sağlık.

 

[İhsan Tank]

Hocam çok teşekkürler,
Her ikiside uygun ve güzel.
emeğinize sağlık.

rica ederim
ayrıca Syn : Evren Gizlen Hocam'ada çok teşekkür ederim. onlar olmasa tek kelime yazamazdım.
:yazici:

 

[kan-nas]

teşekkürler

 

[İhsan Tank]

teşekkürler

rica ederim
:yazici:

 

[Altay3555]

Private Sub ComboBox1_Change()
TextBox1 = ComboBox1.Text
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ComboBox1.Clear
ComboBox1.AddItem "e"
ComboBox1.AddItem "k"
End Sub
Private Sub TextBox1_Change()
If TextBox1 = "" Then
TextBox1.BackColor = &H80000005
ElseIf ComboBox1 = "k" Then
TextBox1.BackColor = &HFF&
ElseIf ComboBox1 = "e" Then
TextBox1.BackColor = &H80000002
End If
End Sub


Sevgili Hocam,
Burada sayfa adı- adresi nasıl belirteceğiz.

 

[İhsan Tank]

anlayamadım sayfa adı belirlemenize gerek var mı_?
direk kabul eder zaten.
yada siz bir örnek dosya ekleyin onun üzerinden daha kolay çözüme ulaşırız

 

[Altay3555]

Hocam dosyayı ekledim.

 

[İhsan Tank]

Hocam dosyayı ekledim.

renk probleminizi hallettim eki inceleyin.
boş'u seçerek renksiz kalmasını sağlayabilirsiniz

 

[Altay3555]

Selam Hocam,
Ben mi çalıştıramadım yoksa.Listbox daki isimleri çağırdığımda "Durumu" gelmiyor nedense.

 

[İhsan Tank]

sanırım yanlış anladınız
ben sadece renk olayını yaptım diğerlerinin bu konu ile alakası yok o yüzden hiç bakmadım.

 

[Altay3555]

Selam hocam,
Mesajınızı görememişim.Konuyu da başka başlık altında açayım bari.
Teşekkürler.

 

[İhsan Tank]

Selam hocam,
Mesajınızı görememişim.Konuyu da başka başlık altında açayım bari.
Teşekkürler.

rica ederim
konuları birbirlerine karıştırmadığımız için cevap vermedim.
:yazici:

 

[Altay3555]

Bende fazla konu ile server'ı doldurmak istememiştim.

 

[ahizarci]

TextBox içeriğine göre renk değiştirme

Private Sub TextBox1_Change()
TextBox1.BackColor = vbWhite
If UCase(TextBox1.Text) = "E" Then TextBox1.BackColor = vbBlue
If UCase(TextBox1.Text) = "K" Then TextBox1.BackColor = vbRed
End Sub

merhaba
yukarıdaki kodlamaya göre örnek dosya var mıdır.

 

[Orion1]

merhaba
yukarıdaki kodlamaya göre örnek dosya var mıdır.

Ekli dosyayı inceleyiniz.