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

[RogerioTop]

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.

 

 

[ArthurS]

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?

[RogerioTop]

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.

[Erik Wesley]

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.

[RogerioTop]

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.

[Erik Wesley]

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.