satır renklendirmek

[Barons]

Merhabalar

Ekli dosyada daha önce 12 rakamdan oluşan bir numarayı girme işlemini "Inputbox" ile yapıyor ve ilk 4 rakam girilince bulunan verinin olduğu satırı renklendiriyordum.Þimdi ise numara girme işlemini bankalardaki gibi kutucuklar halinde userform olarak yaptım ancak kodlarda sanırım bir sorun oldu...şöyleki
mydata=Inputbox...... kodunda şöyle değişiklik yaptım.

mydata=Textbox6.value

Kırmızı renkli arama yazılan dikdörtgene userformu bağladım.(userform8)
Ancak işlem yapmıyor.İster ilk 4 rakam isterse tamamını girdiğimde veri bulunabilmeli ancak ben başaramadım.

Yardımcı olacak arkadaşlara sevgi ve içtenlik dolu teşekkürler

 

[Barons]

özür dilerim dosyayı göndermeyi unutmuşum.

 

[Barons]

Mavi renkli sıralı arama tuşunun yaptığı işlemi kırmızı renkli kutudaki userform ile yapmak istiyorum.Ancak bir türlü olmuyor.

tekrar teşekkürler

 

[Levent Menteşoğlu]

Ã?ncelikle textbox6 yı kaldırın bence gerek yok. Daha sonra arama butonundaki kod içindeki mydata=Textbox6.value satırını silerek yerine aşağıdaki satırları ilave edin. Böylece aramayı sadece dolu olan textboxlar için yapacaktır.

[vb:1:e2cf2c0811]For a = 1 To 5
b = "."
If Controls("textbox" & a + 1) = "" And a < 5 Or a = 5 Then b = ""
MyData = MyData & Controls("TextBox" & a) & b
Next
[/vb:1:e2cf2c0811]

Ayrıca bir öneri olarakta Textbox5 e aşağıdaki koduda yazabilirsiniz.

[vb:1:e2cf2c0811]Private Sub TextBox5_Change()
If Len(TextBox5) = 2 Then CommandButton3.SetFocus
End Sub
[/vb:1:e2cf2c0811]

 

[Barons]

Sn LeventM

Gerçekten bizlere çok fazla emeğiniz geçiyor...Herşey için çok teşekkürler...Herzamanki gibi yine tam 12'den...mükemmel olmuş...elinize sağlık

Her işiniz rast gelsin...