Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Selecionar
 
Notifications
Clear all

Selecionar

 
2024 - VBA & Macros
Post Recente por SandroLima 6 anos atrás
3 Posts
2 Usuários
0 Reactions
1,273 Visualizações
RSS
 SandroLima
(@sandrolima)
Posts: 0
Estimable Member
Topic starter
 

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)

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:

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:

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?

 
Postado : 15/10/2018 5:30 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

SandroLima

Bom dia!

Tente assim:

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

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 16/10/2018 5:30 am
 SandroLima
(@sandrolima)
Posts: 0
Estimable Member
Topic starter
 

Obrigado, Wagner.

Atende perfeitamente.

Outra solução apresentada foi :

If Len(txt_Tel_Cliente.Text) = 14 Then
        txt_Cel_Cliente.SetFocus
        txt_Cel_Cliente.SelStart = 0
        txt_Cel_Cliente.SelLength = Len(txt_Cel_Paciente.Text)
    End If

A título de colaboração.

Obrigado e tenha um bom dia.

 
Postado : 16/10/2018 8:46 am
Forum Jump:
  Tópico Anterior
Próximo Tópico