kayıttan sonra Textbox

[igultekin2000]

iyi günler; formsuz activeX elemanları ile yapılan çalışmada Tab ve Enter tuşları ile geçiş yapıp D4 hücresinde kayıt makrosunu tetikleyip kayıp yapıyorum. D4 hücresindeki kayıt işleminden sonra Cursorün tekrar Textbox1' e gitmesini sağlayamadım. kullandığım makro ve tetikleme

Sub kayit()
On Error Resume Next
Dim son

son = Cells(Rows.Count, "b").End(3).Row
Cells(son + 1, "b").Value = TextBox1.Value
Cells(son + 1, "c").Value = TextBox2.Value
Cells(son + 1, "d").Value = TextBox3.Value
Cells(son + 1, "e").Value = TextBox4.Value

End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
 If Intersect(Target, Range("D4:D5")) Is Nothing Then Exit Sub
kayit

End Sub

teşekkürler.

 

[Muzaffer Ali]

Aşağıdaki kodu hangi kod satırından sonra TextBox1 seçili olmasını istiyorsanız altına kopyalayın.

TextBox1.SetFocus

 

[igultekin2000]

işlem olmadı

Aşağıdaki kodu hangi kod satırından sonra TextBox1 seçili olmasını istiyorsanız altına kopyalayın.

TextBox1.SetFocus

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
 If Intersect(Target, Range("D4:D5")) Is Nothing Then Exit Sub
kayit
TextBox1.SetFocus
End Sub

Cursor hücreye geldiğinde makroyu tetikliyor ve makro çalışıyor.

Sub kayit()
On Error Resume Next
Dim son

son = Cells(Rows.Count, "b").End(3).Row
Cells(son + 1, "b").Value = TextBox1.Value
Cells(son + 1, "c").Value = TextBox2.Value
Cells(son + 1, "d").Value = TextBox3.Value
Cells(son + 1, "e").Value = TextBox4.Value
 
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty

End Sub

sonuç değişmedi. Yani Textbox1' e kursor otomatik gitmedi.

 

[igultekin2000]

sorunsuz çalışıyor

Aşağıdaki kodu hangi kod satırından sonra TextBox1 seçili olmasını istiyorsanız altına kopyalayın.

TextBox1.SetFocus

Teşekkürler, sorunsuz çalışıyor. Yanlış uygulamışım

 

[Muzaffer Ali]

Şu kodu kullan.

TextBox1.Activate

 

[igultekin2000]

açıklama

Şu kodu kullan.

TextBox1.Activate

siz söyleyince kontrol ettim işlem gereği

If KeyCode = 9 Or KeyCode = 13 Then TextBox1.Activate

kullanmışım. yani farkında olmadan işlem doğru olmuş. Teşekkürler.