Notifications
Clear all

Colar "Texto" vs "Valores"

2 Posts
1 Usuários
0 Reactions
548 Visualizações
(@carlosrgs)
Posts: 0
New Member
Topic starter
 

Bom dia.

Estou tendo um problema que varia de Micro para Micro no meu trabalho.

Tem uma planilha, que nesta incluo dados gerados por um ERP (Sistema) em excel.

Quando copio os dados da planilha gerada pelo sistema e vou copia-los na planilha para executar o serviço tenho duas possibilidades para colar.

Em alguns casos eu clico com o botão direito do mouse e aparece a tela de colar especial comum com Tudo, Fórmulas, Valores, etc...

Em outros casos aparece outra janela de colar especial com Objeto Planilha Microsoft Office Excel (cód.), e nas ultimas linhas "texto" que é o que utilizo.

Se eu utilizar a macro.

*1 ActiveSheet.PasteSpecial Format:="Texto", Link:=False, DisplayAsIcon:= _
False

Vai dar certo para a minha segunda hipotese.

E se ao clicar com o direito aparecer a janela normal do colar especial vai dar erro.

E se eu utilizar na Macro.

*2 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Vai dar certo na primeira hipótese.

Eu não entendo muito dos códigos de VBA.

Mas tem algum código para que cole em ambas situações sem que de erro ?

Exemplo:
Se hipótese *1 = erro; então utilizar hipótese *2.

 
Postado : 24/04/2015 5:24 am
(@carlosrgs)
Posts: 0
New Member
Topic starter
 

Eu sempre abro um tópico e depois consigo por conta me resolver :D

Se alguem precisar utilizei o seguinte código

On Error Resume Next
ActiveSheet.PasteSpecial Format:="Texto", Link:=False, DisplayAsIcon:= _
False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Valeu moçada!

 
Postado : 24/04/2015 9:59 am