Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Botão Ctrl + C
 
Notifications
Clear all

Botão Ctrl + C

 
2024 - VBA & Macros
Post Recente por Trindade 9 anos atrás
4 Posts
2 Usuários
0 Reactions
870 Visualizações
RSS
Trindade
 Trindade
(@trindade)
Posts: 278
Reputable 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.

Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.

 
Postado : 08/01/2016 9:45 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Posso estar maluco mas

sub copiar

textbox1.copy

end sub

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

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 08/01/2016 10:29 am
Trindade
 Trindade
(@trindade)
Posts: 278
Reputable Member
Topic starter
 

Boa tarde, MPrudencio.

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

Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.

 
Postado : 08/01/2016 10:58 am
Trindade
 Trindade
(@trindade)
Posts: 278
Reputable 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

Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.

 
Postado : 08/01/2016 11:20 am
Forum Jump:
  Tópico Anterior
Próximo Tópico