Ir ao conteúdo
  • Cadastre-se

Vars

Membro Júnior
  • Posts

    3
  • Cadastrado em

  • Última visita

posts postados por Vars

  1. 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

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!