Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Detectar que nada e...
 
Notifications
Clear all

Detectar que nada está selecionado

 
2024 - VBA & Macros
5 Posts
3 Usuários
0 Reactions
860 Visualizações
RSS
 jalexm
(@jalexm)
Posts: 77
Estimable Member
Topic starter
 

Olá.
As macros a seguir (gentilmente criadas pelo amigo do fórum GTSALIKIS, a quem agradeço) estão associadas a Ctrl-C e Ctrl-V e simulam o copiar/colar.
Funcionam muito bem. O problema é que se uso o Ctrl-V sem selecionar nada antes com Ctrl-C, ocorre um erro porque nada foi selecionado.
O que eu preciso é detectar que não há nada selecionado em ColarDados e sair dela antes que o erro seja gerado.
Alguém pode ajudar?
Obrigado.

Public Sub CopiarDados()
   Application.EnableEvents = False
   Selection.Copy
End Sub

Private Sub ColarDados()
   Selection.PasteSpecial Paste:=xlPasteValues
   Application.EnableEvents = True
End Sub
 
Postado : 27/02/2014 7:42 am
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

tente dessa forma:

Private Sub ColarDados()
If Application.CutCopyMode = True Then Selection.PasteSpecial Paste:=xlPasteValues
Application.EnableEvents = True
End Sub
 
Postado : 27/02/2014 8:15 am
 jalexm
(@jalexm)
Posts: 77
Estimable Member
Topic starter
 

tente dessa forma:

Private Sub ColarDados()
If Application.CutCopyMode = True Then Selection.PasteSpecial Paste:=xlPasteValues
Application.EnableEvents = True
End Sub

Funcionou perfeitamente!

Abusando de sua paciência, qual o comando para desfazer uma seleção já marcada?
Acho que vou precisar disso.

Agradeço mais uma vez.

 
Postado : 27/02/2014 9:00 am
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

É o comando que já usei:

Application.CutCopyMode

Coloque como falso para desfazer:

Application.CutCopyMode = False

 
Postado : 27/02/2014 10:47 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

 
Postado : 28/02/2014 10:31 am
Forum Jump:
  Tópico Anterior
Próximo Tópico