none
Rotina para copiar de plan para plan trava as duas plan RRS feed

  • 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
    

    sexta-feira, 12 de junho de 2015 19:57

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

    segunda-feira, 15 de junho de 2015 19:35

Todas as Respostas

  • Em qual linha esse erro acontece ?
    segunda-feira, 15 de junho de 2015 12:45
  • 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.

    segunda-feira, 15 de junho de 2015 18:54
  • 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

    segunda-feira, 15 de junho de 2015 18:56
  • 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

    segunda-feira, 15 de junho de 2015 19:35
  • 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.
    quarta-feira, 17 de junho de 2015 12:36
  • Se quiser postar o arquivo eu tento rodar da minha máquina 
    sexta-feira, 19 de junho de 2015 12:08