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