Vba

[feioisrael]

Boa tarde 

Estou precisando de ajuda, fiz um userform que precisa utilizar um leitor óptico para coletar um código de barras, porém ao coletar o código que ontem não mantém as informações do textbox selecionadas, assim toda vez que eu preciso coletar novamente outro código de barras dá erro. Alguém poderia me ajudar?

 

Estou usando o código abaixo:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    
    Range("I2") = Tela_principal.TextBox1.Text
    
    TextBox1.SelStart = 0
    TextBox1.SelLength = Len(TextBox1.Text)
    TextBox1.SetFocus
    
   


End Sub

 

[Basole]

Experimente alterar a propriedade TabStop = False,  para todos os componentes do seu Userform