setfocus

[acar6783]

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

ListBox1.AddItem TextBox1.Value
  
Cancel = True
Me.TextBox1 = ""
     Me.TextBox1.SetFocus
End Sub

Yukarıdaki kodda textbox 1 e sürekli veri girişi için setfocus yaptırıyorum fakat.
userformun hangi butpnuna basarsam basayım

ListBox1.AddItem TextBox1.Value

Bu kod işliyor.
Muhtemel sorun
Cancel = True
olduğu için

Alternatif olarak Textbox1'i sürekli nasıl seçtirebilirim?

 

[PLİNT]

Merhaba
Aşağıdaki gibi olabilir.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value <> "" Then
ListBox1.AddItem TextBox1.Value
Cancel = True
End If
TextBox1 = ""
Me.TextBox1.SetFocus
End Sub

 

[acar6783]

Merhaba
Aşağıdaki gibi olabilir.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value <> "" Then
ListBox1.AddItem TextBox1.Value
Cancel = True
End If
TextBox1 = ""
Me.TextBox1.SetFocus
End Sub

Evet aynı ihtimali düşünmüştüm..
Teşekkürler