USERFORM DA ENTER SONRASI FOCUS

[atöz]

Herkese merhaba,

Userformda textboxa bir değer girip entera basılınca tekrar karşıma boş olarak aynı userformun gelmesini ve cursorun de aynı textbox üzerinde yeni girişe hazır olarak yanıp sönmesini istiyorum.Aynı textboxa mouse ellenmeden giriş+enter+giriş+enter.... yapılacak. Yani Enter da sonra focus olayını başaramadım. Texboxta enter basılınca çalışabilecek bir kod dizimi belki işimi görebilir.

Yardımcı olacaklara şimdiden teşekkürler.

 

[veyselemre]

[vb:1:e1deaed270]Dim sat As Integer
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = True
sat = sat + 1
Cells(sat, 1) = TextBox1
TextBox1 = ""
TextBox1.SetFocus
End Sub[/vb:1:e1deaed270]

 

[atöz]

tamamdır, çok teşekkürler sn weyselemre...
yalnız bir sorun var, userformda commandbuton u sildiğim zaman makro çalışmıyor gibi geldi bana.. olabilir mi ?

 

[veyselemre]

Formda Textbox1 den başka en az bir tane daha control olması lazım ki textbox1_exit olayı gerçekleşsin.

 

[atöz]

ok ilginizden dolayı çok teşekkürler

 

[mturka]

textbox girildikten sonra enter tuşuna basılınca commandbutton1 e setfocus yaptıramadım. yardımcı olur musunuz?