TextBox'ların rengini "Bul" düğmesi çalıştığında değiştirmek

[Altay3555]

Selamlar
Private Sub CommandButton13_Click() 'Bul düğmesi
Bul = ComboBox2.ListIndex + 6
TextBox8.Text = Sheets("Sayfa1").Range("A" & Bul).Value
TextBox9.Text = Sheets("Sayfa1").Range("B" & Bul).Value
TextBox10.Text = Sheets("Sayfa1").Range("C" & Bul).Value
TextBox11.Text = Sheets("Sayfa1").Range("D" & Bul).Value
TextBox28.Text = Sheets("Sayfa1").Range("E" & Bul).Value
TextBox12.Text = Sheets("Sayfa1").Range("F" & Bul).Value
TextBox13.Text = Sheets("Sayfa1").Range("G" & Bul).Value
TextBox15.Text = Sheets("Sayfa1").Range("I" & Bul).Value
TextBox16.Text = Sheets("Sayfa1").Range("J" & Bul).Value
TextBox17.Text = Sheets("Sayfa1").Range("K" & Bul).Value
TextBox18.Text = Sheets("Sayfa1").Range("L" & Bul).Value
TextBox19.Text = Sheets("Sayfa1").Range("M" & Bul).Value
TextBox20.Text = Sheets("Sayfa1").Range("N" & Bul).Value
TextBox21.Text = Sheets("Sayfa1").Range("O" & Bul).Value
TextBox5.Text = Sheets("Sayfa1").Range("P" & Bul).Value
'ComboBox1.Text = Sheets("Sayfa1").Range("H" & Bul).Value
End Sub

**"Bul" olarak kullandığım bu kodlara daha önce uygulamaların birinde gördüğüm renk ekleme kodlarını uygulamak isterim."Bul" a bastığımızda veriler aktarılıyor ama bu sefer TextBoxlar başka renk oluyordu,kayıt,sil ekle düzelt düğmelerinde karışıklık olmasın diye "Bul" makrosuna renk uygulamak istiyorum.
**Birde TextBox13 deki veri birleştirilmiş veri.yani 21.02.2009-23:25 tarih ve saat var.Tarihi txb13 e, saati txb23 giriyorum ama daha sonra Bul dediğimde txb13 de birleştirilmiş olarak gösteriyor.Ayrılması mümkün mü.
**Bu da problemmidir bilmiyorum ama cmbx a gelen veriyi Bul düğmesi ile arıyorum,ama cmbx boş iken yanlışlıkla "Bul" düğmesine basıldığında Ana adı,Baba Adı gibi verileri geliyor.

Yol gösterirseniz sevinirim.
Sevgilerimle..

 

[Orion1]

Textbox8 de back color yeşil yapar.

TextBox8.BackColor = vbGreen

textbox13 te tarih biçiminde formatlar.

textbox13.Text = Format(Sheets("Sayfa1").Range("G" & Bul).Value, "dd.mm.yyyy")

 

[Altay3555]

Teşekkür Ederim...