Ir ao conteúdo
  • Cadastre-se
Diego 1988

Importar_contagem()

Recommended Posts

Após rodar a primeira vez tudo corre ok, porém quando tento rodar novamente ele dá o erro:

 

Erro em tempo de execução 1004:

A celula ou grafico esta em uma planilha protegida.

Para fazer aletração cliqu em desproteger....

 

Minha pergunta é porque na primeira roda tudo bem e depois não consigo mesmo.

 

Quando vou depurar após o erro, o problema apresenta aqui.

 

   ActiveCell.FormulaR1C1 = _
   "=SumIf('" & caminho & "'!R2C1:R1353C1,RC[-76],'" & caminho & "'!R2C2:R1353C2)"

 

 

Sub IMPORTAR_CONTAGEM()

   Dim lngCount As Long
   Dim caminho As String
   Dim arquivo1, arquivo2 As String
   Dim coluna As String
   

coluna = InputBox("Digite a coluna: ")

arquivo1 = ActiveWorkbook.Name
   caminho = Application.GetOpenFilename()
   If caminho = "Falso" Then
       Exit Sub
   Else
     Workbooks.Open Filename:=caminho
     arquivo2 = ActiveWorkbook.Name
       
   End If


   Application.ScreenUpdating = False
   Workbooks(arquivo1).Activate
   Range("BY12").Select
   ActiveCell.FormulaR1C1 = _
   "=SumIf('" & caminho & "'!R2C1:R1353C1,RC[-76],'" & caminho & "'!R2C2:R1353C2)"
   Selection.Copy
   Range("A12").Select
   Selection.End(xlDown).Select
   ActiveCell.Offset(0, 76).Select
   Range(Selection, Selection.End(xlUp)).Select
   ActiveSheet.Paste
   Selection.Copy
   Range(coluna & "12").Select
   Selection.PasteSpecial Paste:=xlPasteValues, _
   Operation:=xlNone, SkipBlanks:=False, _
   Transpose:=False
   Application.CutCopyMode = False
   Range(coluna & "12").Select
   Selection.End(xlDown).Select
   ActiveCell.Offset(0, 76).Select
   Range(Selection, Selection.End(xlUp)).Select
   Range("BY12:BY1353").Clear
   Workbooks(arquivo2).Close
   Workbooks(arquivo1).Activate
   Range("A12").Select
   Application.ScreenUpdating = True
   
End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

Não posso desproteger, são diferentes planilhas que são restritas pelo cliente.

 

Minha duvida é que a primeira vez que roda a rotina tudo corre ok, porém depois começa o erro.

Compartilhar este post


Link para o post
Compartilhar em outros sites

você pode desproteger e proteger novamente se o nao desproteger gera o erro 

 

O que você pode tentar e ignorar o erro mas nao é garantia de funcionar

 

Antes de:

 

Application.ScreenUpdating = False

 

Cole 

 

On Error Resume Next

 

Se nao funcionar so deprotegendo.

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×