Usuário com melhor resposta
Rotina para copiar de plan para plan trava as duas plan

Pergunta
-
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
Respostas
-
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
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 11 de julho de 2015 16:54
Todas as Respostas
-
-
-
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
-
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
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 11 de julho de 2015 16:54
-
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.
-