Este fórum está sendo desativado

[SandroLima]

Boa noite, pessoal

Como faço para que ao executar esse código ele selecione o conteúdo da TextBox txt_Cel_Paciente (que tem um conteúdo padrão)

Código: Selecionar todos

Private Sub txt_Tel_Cliente_Change() 

    If Len(txt_Tel_Cliente.Text) = 14 Then Me.txt_Cel_Cliente.SetFocus
                        
End Sub

Tentei ao final do código com:

Código: Selecionar todos

SendKeys "{HOME} + {END}" 'Seleciona o conteúdo da Textbox

Mas ele desabilita a tecla NumLock e isso não pode acontecer

Também tentei ao final do código com:

Código: Selecionar todos

Me.txt_Cel_Cliente.SelStart = 0
        Me.txt_Cel_Cliente.SelLength = VBA.Len(Frm_Cadastro.txt_Cel_Cliente.Text)
        Me.txt_Cel_Cliente.SetFocus

Mas ele insere o cursor logo após o conteúdo... Precisava que ele selecionasse o conteúdo.

Como resolvo isso?

[ExcelFlex]

Sandro, esta sequencia de comandos funciona muito bem pra mim:

Código: Selecionar todos

Private Sub CommandButton1_Click()
  TextBox1.SetFocus
  TextBox1.SelStart = 0
  TextBox1.SelLength = Len(TextBox1.Text)
End Sub

[babdallas]

Tenta isso

Código: Selecionar todos

Private Sub txt_Tel_Cliente_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    With Me.txt_Cel_Cliente
        .SetFocus
        .SelStart = 0
        .SelLength = VBA.Len(.Text)
    End With
End Sub

[SandroLima]

Bom dia, ExcelFlex.... Bom dia, babdallas.

Obrigado pela intenção de ajudar.

Adequei a sua solução ao código, ExcelFlex... funcionou direitinho.

A do babdallas só não muda automaticamente a textbox ao terminar de preencher mas seleciona o conteúdo.

Outra alternativa levantada aqui foi:

Código: Selecionar todos

If Len(txt_Tel_Cliente.Text) = 14 Then
        SendKeys "{TAB}"
    End If

Também funciona.

Muito obrigado e tenham um bom dia.