Notifications
Clear all

Botão Ctrl + C

4 Posts
2 Usuários
0 Reactions
857 Visualizações
(@trindade)
Posts: 0
New Member
Topic starter
 

Bom dia, Srs.

Gostaria de saber como eu faço para inserir em um botão no UserForm a função de copiar (Ctrl + C).

Meu UserForm terá o TextBox1 onde será preenchido automaticamente e para evitar que o usuário mude valor está bloqueado.
No botão teria a função Ctrl + C do valor do TextBox1, onde em seguida eu colaria em outro lugar qualquer aperta no teclado o Ctrl + V.

Toda ideia sempre é bem vinda.

 
Postado : 08/01/2016 9:45 am
(@mprudencio)
Posts: 0
New Member
 

Posso estar maluco mas

sub copiar

textbox1.copy

end sub

Mas mesmo com a celula bloqueada o ctrl+c funciona.

 
Postado : 08/01/2016 10:29 am
(@trindade)
Posts: 0
New Member
Topic starter
 

Boa tarde, MPrudencio.

Realizei o teste conforme escrito acima, mas não deu certo não.

 
Postado : 08/01/2016 10:58 am
(@trindade)
Posts: 0
New Member
Topic starter
 

Boa tarde, Srs.

Consegui realizar o Ctrl + C, segue código:

Private Sub CommandButton1_Click()

    TextBox1.SelStart = 0
    TextBox1.SelLength = Len(TextBox1.Value)
    
    TextBox1.Copy

End Sub
 
Postado : 08/01/2016 11:20 am