Rotina para copiar de plan para plan trava as duas plan

Question

Boa noite

Uso essa rotina para abrir outra plan e exportar dados a partir de AES. Depois de aberto Multiplexador, e já trabalhando nessa plan aparece a msg abaixo. Antes de usar essa rotina na plan AES, as duas plan interagiam sem esse problema e não travava. (Uso Processador I3_10GB de Ram) O que pode ser feito para correção do problema?

Sub Exporta_Compact()
Application.DisplayAlerts = 0
Application.ScreenUpdating = 0
'==================Abre o Multiplexador=========================
Dim wksBda As Worksheet
Dim wksAce As Worksheet
Set wksBda = Workbooks("AES.xlsb").Worksheets("BDados")
  strSecondFile = ThisWorkbook.Path & Application.PathSeparator & "Multiplexador.xlsb"
   Set wbk = Workbooks.Open(strSecondFile)
      Dim Cell As Range
      For Each Cell In Range("A80:A84")
     ActiveWorkbook.Worksheets(Cell.Value).Visible = Not ActiveWorkbook.Worksheets(Cell.Value).Visible
    Next Cell
          wbk.Sheets("(A)CE").Activate
'==================Exporta os valores================================
Set wksAce = Workbooks("MULTIPLEXADOR.xlsb").Worksheets("(A)CE")
'==================Copy Sequencia==================================
    wksBda.Range("A151").Copy
    wksAce.Range("R273").PasteSpecial xlPasteValues
    wksBda.Range("B151").Copy
    wksAce.Range("U273").PasteSpecial xlPasteValues
'==================Copy Blocos============================================
    wksBda.Range("H191:AK203").Copy
    wksAce.Range("U274").PasteSpecial xlPasteValues
    Range("F22").Select
    Windows("MULTIPLEXADOR.xlsb").Activate
     Set rng = Range("R1")
Set rng = Range("BT7:BT167")
     If rng.EntireRow.Hidden = True Then
   rng.EntireRow.Hidden = 0
Else
     rng.EntireRow.Hidden = 1
End If
    Range("R1:S1").Select
   Selection.ClearContents
   Application.ScreenUpdating = 1
  Application.DisplayAlerts = 1
End Sub

Answer 1

Em qual linha esse erro acontece ?

Answer 2

Boa noite

A unica coisa que aparece é a mensagem. Apenas trava as duas plan e então tenho que abrir o gerenciador de tarefas e fechar tudo.

Answer 3

Carlito,

é importante indicar em qual linha acontece o erro, mas aproveitando, em VBA a palavra-chave True tem valor igual a -1 e não 1.

Sempre que possível prefira escrever a palavra ao usar o valor da constante. Não creio que seja o motivo do seu erro, mas não dá pra descartar.

Abraço.

---

Filipe Magno

Answer 4

Posicione o cursor dentro do código e aperte o F8, que serve para debugar linha a linha, daí conseguiremos descobrir qual a linha do erro.

Esta planilha tem algum gráfico ?

A Referência abaixo orienta sobre a correção do problema, mas envolvendo gráficos

https://support.microsoft.com/en-us/kb/215573/pt-br

Answer 5

Filipe Magno, grato pela dica. André Santo, Não gráfico envolvido na transferência, apenas números. Em relação ao F8 já debuguei e não aparece erro. A impressão q fica é que não tem memoria suficiente, no entanto as duas plan tem respectivamente 4,6 e 2,5 Mb. Uso processador I3 com 10 GB de Ram. Grato pelas dicas.

Answer 6

Se quiser postar o arquivo eu tento rodar da minha máquina