Jump to content
Fórum Script Brasil
  • 0

NÃO COLA O CONTEÚDO DAS CÉLULAS


RogerioTop

Question

Boa noite.

Estou com uma dificuldade extrema. Tenho uma macro que funcionou por vários anos. De uma hora para outra, ela não consegue colar os dados e dá a famigerada mensagem:

Erro 1004 - o método pastespecial da classe range falhou

O problema é que se eu fizer manual (ctrl+c - crtl+v), também não funciona, só não dá mensagem nenhuma.

Porém, se eu escrever manualmente na planilha ela aceita.

Eis a parte do código que dá problema.

   Plan8.Select
      
      
        
        ActiveSheet.Unprotect
        
        Range("b505:H505").Select
            Selection.Copy
            Range("a18").Select
            
            Plan1.Select
            ActiveSheet.Unprotect
            
              Range("b100000").End(xlUp).Offset(1, 0).Select
              
      
            
               Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
               Application.CutCopyMode = False
            
             
            ActiveSheet.Protect
                

quando chega no selection.pastespecial trava e não vai de jeito nenhum.

Já tentei em dois computadores, já fiz manual, não funciona. Não sei mais o que fazer. O problema é que é um arquivo importante para mim.

Se alguém puder me ajudar eu agradeço.

 

 

Link to comment
Share on other sites

5 answers to this question

Recommended Posts

  • 0

Olá, ArthurS!

Não é questão de estar protegida.

Em outros arquivos, inclusive em outros locais na mesma pasta de trabalho funciona normalmente.

O problema está somente nessa planilha, inclusive não cola nem com a execução manual dos comandos.

Em 11/10/2017 at 18:56, ArthurS disse:

Um dos possíveis motivos é que a planilha ou a celular esteja protegida

Verifica em Revisão/ proteger(desproteger) planilha ou a pasta.

 

O copy e cole funciona normalmente no pc, em outros arquivos?

Olá, ArthurS!

Não é questão de estar protegida.

Em outros arquivos, inclusive em outros locais na mesma pasta de trabalho funciona normalmente.

O problema está somente nessa planilha, inclusive não cola nem com a execução manual dos comandos.

Em 11/10/2017 at 18:56, ArthurS disse:

Um dos possíveis motivos é que a planilha ou a celular esteja protegida

Verifica em Revisão/ proteger(desproteger) planilha ou a pasta.

 

O copy e cole funciona normalmente no pc, em outros arquivos?

Olá, ArthurS!

Não é questão de estar protegida.

Em outros arquivos, inclusive em outros locais na mesma pasta de trabalho funciona normalmente.

O problema está somente nessa planilha, inclusive não cola nem com a execução manual dos comandos.

Link to comment
Share on other sites

  • 0

Esse é o único código de sua planilha? Pois existem alguns códigos que impedem a função do excel de "Copiar e Colar", seja manual ou automática.

 

Exemplo: 

Dim oCtrl As Office.CommandBarControl
For Each oCtrl In Application.CommandBars.FindControls(ID:=19)
                oCtrl.Enabled = False
          Next oCtrl

 Procure algo parecido em sua planilha.

Link to comment
Share on other sites

  • 0
3 horas atrás, Erik Wesley disse:

Esse é o único código de sua planilha? Pois existem alguns códigos que impedem a função do excel de "Copiar e Colar", seja manual ou automática.

 

Exemplo: 


Dim oCtrl As Office.CommandBarControl
For Each oCtrl In Application.CommandBars.FindControls(ID:=19)
                oCtrl.Enabled = False
          Next oCtrl

 Procure algo parecido em sua planilha.

Ok, vou procurar. 

Tenho 99% de certeza que não tem esse código, pois eu construí essa planilha do zero.

Caso eu encontre, o que suguere que eu faça?

Grato!

Em 11/10/2017 at 18:56, ArthurS disse:

Um dos possíveis motivos é que a planilha ou a celular esteja protegida

Verifica em Revisão/ proteger(desproteger) planilha ou a pasta.

 

O copy e cole funciona normalmente no pc, em outros arquivos?

Olá, ArthurS!

Não é questão de estar protegida.

Em outros arquivos, inclusive em outros locais na mesma pasta de trabalho funciona normalmente.

O problema está somente nessa planilha, inclusive não cola nem com a execução manual dos comandos.

Link to comment
Share on other sites

  • 0
2 horas atrás, RogerioTop disse:

Ok, vou procurar. 

Tenho 99% de certeza que não tem esse código, pois eu construí essa planilha do zero.

Caso eu encontre, o que suguere que eu faça?

Grato!

Olá, ArthurS!

Não é questão de estar protegida.

Em outros arquivos, inclusive em outros locais na mesma pasta de trabalho funciona normalmente.

O problema está somente nessa planilha, inclusive não cola nem com a execução manual dos comandos.

 

 

 

Caso seu problema não seja o código que lhe mostrei, talvez a opção de copiar e colar do próprio excel esteja apenas desativada.

Veja a imagem em anexo.

Siga os passos abaixo:

1º Arquivo

2º Opção

3º Avançado

e por fim, marque as três opção exibidas na imagem.

 

Sem título.png

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.1k
    • Total Posts
      652k
×
×
  • Create New...