TextBox Ýçine Gelindiðinde Renklendirme

[xxrt]

Arkadaþlar,bende þu kod var,Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static OldRange As Range
On Error Resume Next
Target.Interior.Color = vbRed
Target.Font.Color = vbWhite
OldRange.Interior.ColorIndex = xlColorIndexNone
OldRange.Font.Color = vbBlack
Set OldRange = Target
End Sub
Bununla Aktif Hücrenin içini renklendirebiliyorum..Textbox1 ve TextBox2 olduðunu varsayalým.TextBox2 týklandýðýnda TextBox1 Renklenecek(Açýk Mavi vs..)
Yada Þöyle düþünelim,
Text1>Text2
Text2>Text3
.....
...
devam ediyor.
Text2 ve3 Ýndexleri 1,2,3,... devam ediyor.Maus veya enterle aþaðýdan yukarýya indikçe Her textin solundaki(Text2'in solunda Text1) Renk ile boyanacak..

[ALPEN]

bir örnek dosya gönderebilir misin. þekillendiremedim.

[Haluk]

@xxrt:
Çok matah bir þey deðil ama, aþaðýdakiler þimdilik iþini görür.


Private Sub TextBox2_Enter()
TextBox1.BackColor = &HFFFF00
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.BackColor = vbWhite
End Sub
'
Private Sub TextBox4_Enter()
TextBox3.BackColor = &HFFFF00
End Sub
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3.BackColor = vbWhite
End Sub
'
Private Sub TextBox6_Enter()
TextBox5.BackColor = &HFFFF00
End Sub
Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox5.BackColor = vbWhite
End Sub
'
Private Sub TextBox8_Enter()
TextBox7.BackColor = &HFFFF00
End Sub
Private Sub TextBox8_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox7.BackColor = vbWhite
End Sub

[xxrt]

Benim Ýþimi Hayhayda gördü.Bana yeterlidir.Saðol..Hocam :hey:

[cavci]

Arkadaslar benimde bir sorum var enter ile textboxlarda ilerledikce textboxlarin sari renkte olmasini nasil yapabilirim.Tesekkürler

[Seyit Tiken]

Ekli dosyayý inceleyiniz.

[cavci]

Sayin Seyit Tiken cok Tesekkür ederim .Istedigim buydu

[cavci]

Sayin Seyit Tekin Bende 200 e yakin textbox var bunlari toplu olarak yazabilecegimiz bir kod varmi

[cavci]

Bir tane class modula buldum bunu Formdaki textboxlari nasil ekleyebilirim

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayý incelermisiniz.

[cavci]

Sayin Korhan Aydin Emegin icin cok Tesekkür ederim

[Ýsmail Küçükþengün]

Sayın Seyit Tiken ve Korhan Ayhan;

Paylaşımlarınıza çok teşekkürler.