textboxlarda gezinme

[muhammet_öztürk]

selam herkese....
ekteki tabloda ben stok tutuyorum...textboxlara girdiğim veriye göre listemde arama yapıyorum...yukarıda oto öztürk ün üstüne basınca liste başa dönüyor...
sorunum şu...
1...textboxlar arasında tab tuşu ile gezinebilirmiyim
2...oto öztürk ün üztüne bastığımda..liste başa döndüğünde...imlecin textbox1 de yanıp sönmesini sağlayabilirmiyim....

saygılar...

 

[Seyit Tiken]

Private Sub TEMİZLE_Click()
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox9.Text = ""
TextBox8.Text = ""
TextBox1.Text = ""
Sayfa1.TextBox1.Activate
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=13
Selection.AutoFilter Field:=18
End Sub

Şeklinde deneyiniz.

 

[muhammet_öztürk]

Seyit Bey çok saolun...
yazdığınız kodla imleç işi halloldu...
texboxlar arasında tab ile gezinme yapabilirmiyiz peki..??
birde...oto öztürk ün üstüne mause ile tıklamak gerekiyor....bunu klavyede bir tuş ile yapmak mümkün mü..??
saygılar....iyi geceler...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodları kullanabilirsiniz. Enter yada Tab tuşlarına bastığınızda otomatik olarak bir sonraki textboxa geçer.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Application.ScreenUpdating = False
    If KeyCode = 9 Or KeyCode = 13 Then
    TextBox2.Activate
    TextBox2 = " "
    TextBox2 = Empty
    End If
End Sub

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Application.ScreenUpdating = False
    If KeyCode = 9 Or KeyCode = 13 Then
    TextBox3.Activate
    TextBox3 = " "
    TextBox3 = Empty
    End If
End Sub

Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Application.ScreenUpdating = False
    If KeyCode = 9 Or KeyCode = 13 Then
    TextBox4.Activate
    TextBox4 = " "
    TextBox4 = Empty
    End If
End Sub

Private Sub TextBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Application.ScreenUpdating = False
    If KeyCode = 9 Or KeyCode = 13 Then
    TextBox5.Activate
    TextBox5 = " "
    TextBox5 = Empty
    End If
End Sub

Private Sub TextBox5_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Application.ScreenUpdating = False
    If KeyCode = 9 Or KeyCode = 13 Then
    TextBox8.Activate
    TextBox8 = " "
    TextBox8 = Empty
    End If
End Sub

Private Sub TextBox6_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Application.ScreenUpdating = False
    If KeyCode = 9 Or KeyCode = 13 Then
    TextBox1.Activate
    TextBox1 = " "
    TextBox1 = Empty
    End If
End Sub

Private Sub TextBox8_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Application.ScreenUpdating = False
    If KeyCode = 9 Or KeyCode = 13 Then
    TextBox9.Activate
    TextBox9 = " "
    TextBox9 = Empty
    End If
End Sub

Private Sub TextBox9_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Application.ScreenUpdating = False
    If KeyCode = 9 Or KeyCode = 13 Then
    TextBox6.Activate
    TextBox6 = " "
    TextBox6 = Empty
    End If
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki linki incelemenizi öneririm.

Sayfa üzerindeki textboxlara class module ile ortak özellik kazandırma