none
Erro ao executar macro para inserir linhas - Excel 2016 RRS feed

  • Pergunta

  • Prezados, 

    Ainda estou aprendendo a mexer com macros e agora que eu estou sozinho no setor os problemas aparecem. Depois de ficar desde quarta passada procurando uma solução resolvi pedir ajuda aqui.

    Tenho uma macro que simplesmente trava na hora de inserir um linha na planilha, aparece a mensagem: "Não há memória suficiente para concluir essa ação. Tente usar menos dados ou fechar outros aplicativos... considere usar uma versão de 64 bits...".

    Antes que digam, pesquisei muito aqui no fórum, inclusive segui varias sugestões apresentadas (instalei uma versão de 64 bits - Office 365 - Excel 2016, usei menos dados na hora de rodar, mexi nas configurações de exibição de modo protegido, rodei com todos os outros programas fechados), rodei até no nosso servidor, enfim, não sei mais o que faço e o desespero vai aumentando.. Podem me dar uma força?  Obrigado. 

    Sheets("__").Activate
    Range("j11").Select
    fff = 11
    lkg:
    If ActiveCell.Value = "GERAL" Then
    Rows(fff & ":" & fff).Select
    Selection.Insert Shift:=xlDown
    Range("j" & fff).Select
    ActiveCell.Offset(1, 0).Select
    fff = fff + 1
    End If
    ActiveCell.Offset(1, 0).Select
    fff = fff + 1
    If ActiveCell.Value = "" Then
    GoTo nbv:
    End If
    GoTo lkg:
    nbv:
    Sheets("DE PARA").Activate
    ActiveWorkbook.RefreshAll
    n = 3
    contador = 1
    Do While contador <= Range("aq1").Value
    esconde = Range("as" & n).Value
    Sheets("__").Activate

            Rows(esconde).Select
        Selection.Rows.Group
    n = n + 1
    contador = contador + 1
    Sheets("DE PARA").Activate
    Loop

    quarta-feira, 13 de setembro de 2017 13:30