Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Colar - Duas opções...
 
Notifications
Clear all

Colar - Duas opções.

 
2024 - VBA & Macros
Post Recente por carlosrgs 9 anos atrás
6 Posts
2 Usuários
0 Reactions
1,023 Visualizações
RSS
carlosrgs
 carlosrgs
(@carlosrgs)
Posts: 631
Prominent Member
Topic starter
 

Bom dia galera.

o código abaixo está apresentando erro.

Sub Colar()
'
    Range("F10").Select
    
    On Error GoTo Proxima

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    
Proxima:
    ActiveSheet.PasteSpecial Format:="Texto", Link:=False, DisplayAsIcon:= _
        False
End Sub

O Erro é que quando a primeira opção da certo na segunda aparece o Erro de execução '1004':
O método PasteSpecial da classe Worksheet falhou.

Motivo do código:
Estou copiando dados de um relatório gerado pelo sistema que gera em excel na versão Planilha XML 2003.

Se o arquivo onde vou colar os dados estiver aberto na maquina antes de gerar o relatório do sistema para colar com macro tenho que utilizar o:

    Range("F10").Select
    ActiveSheet.PasteSpecial Format:="Texto", Link:=False, DisplayAsIcon:= _
        False

Se eu abrir o arquivo onde vou colar os dados depois que eu gerar o relatório do sistema tenho que utilizar o:

    Range("F10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Eu queria deixar os dois métodos juntos, mas ocorreu este problema.

Essa opção do On Error Goto utilizei como base a resposta que o Wagner me deu neste tópico.
viewtopic.php?f=10&t=18025

Obrigado!

_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.

 
Postado : 14/12/2015 5:40 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

carlos, o ideal seria colocar o código completo que está utilizando, só por este não temos como verificar o erro pelo fato de não ocorrer, veja que no link que indicou a situação é um pouco diferente, lá a instrução :

On Error GoTo Proxima
Windows("Razão V - 1.0").Activate

é referente a verificação se o arquivo está aberto, se sim ele é ativado

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 14/12/2015 6:36 am
carlosrgs
 carlosrgs
(@carlosrgs)
Posts: 631
Prominent Member
Topic starter
 

Bom dia Mauro.

Obrigado pelo retorno, mas eu não fiz nenhuma continuação após colar os dados, eu só queria testar de inicio as opções de colar para depois continuar.

Na aba Dados tem oque eu quero copiar, como está no mesmo arquivo, eu copio e colo valores.

A minha intenção é que se o colar valores não de certo o excel cole texto.

_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.

 
Postado : 14/12/2015 7:01 am
carlosrgs
 carlosrgs
(@carlosrgs)
Posts: 631
Prominent Member
Topic starter
 

Eu quero que a macro tente uma das opções se uma não rodar execute a outra.

_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.

 
Postado : 14/12/2015 7:02 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia Mauro.

Obrigado pelo retorno, mas eu não fiz nenhuma continuação após colar os dados, eu só queria testar de inicio as opções de colar para depois continuar.

Na aba Dados tem oque eu quero copiar, como está no mesmo arquivo, eu copio e colo valores.

A minha intenção é que se o colar valores não de certo o excel cole texto.

Carlos, acontece que o erro se dá pelo fato da rotina estar incompleta, veja que na rotina só temos as instruções para "COLAR - PasteSpecial " sem ter a instrução de "COPIAR - COPY", ou seja, ao ser executada não temos nada armazenado em memória, e no primeiro post você disse:
"Estou copiando dados de um relatório gerado pelo sistema que gera em excel na versão Planilha XML 2003"

Então a pergunta principal é, como está efetuando a cópia dos dados a serem colados ?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/12/2015 6:14 am
carlosrgs
 carlosrgs
(@carlosrgs)
Posts: 631
Prominent Member
Topic starter
 

Hum entendi, desculpe a demora.

Eu Copio dando CTRL+C mesmo, e colo no arquivo que estou desenvolvendo com a Macro.

Por quê colar com macro ?

Funciona assim eu não sei o porque, mas quando abro o excel, ele executa na versão padrão do windows 2007 e quando termina de gerar o relatório do sistema gera com XML 2003, ou seja, versões diferentes.

Se eu simplesmente copiar (CTRL+C) os dados do arquivo gerado pelo sistema e colar (CTRL+V) no meu arquivo as datas perdem o formato.

De 01/12/2015 fica 12/01/2015
De 05/12/2015 fica 12/05/2015
De 13/12/2015 fica 13/12/2015

Perde a formatação somente para os dias que são menores que o mês, também não sei o motivo.

E a planilha que estou desenvolvendo será utilizada por outras pessoas, e posso falar 456 vezes para colar especial texto, que a pessoa vai e da CTRL+V.

_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.

 
Postado : 16/12/2015 12:25 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico