Visual Basic VBA Excel setfocus textbox

[Douglas ianes]

Bom dia caros amigos.

 

estou com dificuldade em colocar o setfocus na caixa textbox que preciso ao final do código.

 

Private Sub Log_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If Len(Log) = 9 Then

Sheets("BD").Select
Range("B3").Select
    Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
     
    ActiveCell = Log.Value

Log = Empty
Sheets("plano").Select

Else

MsgBox "SN Incorreto!!!"

Log = Empty

End If

End Sub

 

podem me ajudar por favor.

[Douglas ianes]

Em 17/07/2021 às 10:17, Douglas ianes disse:

Bom dia caros amigos.

 

estou com dificuldade em colocar o setfocus na caixa textbox que preciso ao final do código.

 

Private Sub Log_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If Len(Log) = 9 Then

Sheets("BD").Select
Range("B3").Select
    Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
     
    ActiveCell = Log.Value

Log = Empty
Sheets("plano").Select

Else

MsgBox "SN Incorreto!!!"

Log = Empty

End If

End Sub

 

podem me ajudar por favor.

@Midoriconsegue me ajudar, por favor.

[Midori]

@Douglas ianes Em que parte do código você quer usar SetFocus? Só tem que definir um critério e evento (exit do controle Log?) e fazer referência ao controle que deseja usar com esse método, p.ex: TextBox1.SetFocus.

[Douglas ianes]

@Midori no caso o setfocus seria logo abaixo do log = empty

 

Private Sub Log_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If Len(Log) = 9 Then

Sheets("BD").Select
Range("B3").Select
    Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
     
    ActiveCell = Log.Value

Log = Empty

Log.SetFocus
Sheets("plano").Select

Else

MsgBox "SN Incorreto!!!"

Log = Empty

End If

End Sub