Bom dia,
Gostaria de ajuda para resolver um problema de demora para o Excel processar uma macro. O arquivo está salvo como .xlsb.
Ao inserir células, o Excel está levando um certo tempo para realizar a ação. Esta planilha está trabalhando com no máximo 300 linhas e mesmo assim demora. Ao executar a etapa: Selection.Insert Shift:=xlDown o Excel chega a travar e aparece a msg: "(Não está respondendo)" mas depois volta ao normal.
Quando tempo
Criei esta macro para inserir uma linha de cadastro de informações e carregar a formatação condicional. Tentei retirar a formatação condicional e mesmo assim a demora continua a mesma.
Não entendo quase nada de programação e peço auxilio de vocês. Obrigado!!
A macro que montei:
Public Sub inserir_linha()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
ActiveSheet.Unprotect "senha"
Range("B3:v3").Select
Selection.Copy
Selection.Insert Shift:=xlDown
Range("B3").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("c3").Select
Selection.ClearContents
Range("f3:J3").Select
Selection.ClearContents
Range("k3").Select
Selection.ClearContents
Range("l3").Select
Selection.ClearContents
Range("m3").Select
Selection.ClearContents
Range("n3").Select
Selection.ClearContents
Range("o3:r3").Select
Selection.ClearContents
Range("B3").Select
ActiveSheet.Protect "senha", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowDeletingRows:=True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub