locked
Ajuda com Macro RRS feed

  • Pergunta

  • Pessoal poderiam me ajudar com essa macro simples, estou estudando, e ao criar essa macro, a editei, só que sua execução está lenta. Ela é simples, só quero apagar campos determinados em várias abas de uma planilha.

    Segue a macro. Desde já obrigado.

    Sub Limpar()
    '
    ' Limpar Macro
    ' Macro gravada em 12/11/2009 por CPU112
    '
    ' Atalho do teclado: Ctrl+l
    '
        Range("A3,A3:B49,E3:F49,L15,M18,K8").Select
        Selection.ClearContents
        Sheets("MVA  2").Select
        Range("A3,A3:B49,E3:F49,K8").Select
        Selection.ClearContents
        Sheets("MVA  3").Select
        Range("A3,A3:B49,E3:F49,K8").Select
        Selection.ClearContents
        Sheets("MVA  4").Select
        Range("A3,A3:B49,E3:F49,K8").Select
        Selection.ClearContents
        Sheets("MVA  5").Select
        Range("A3,A3:B49,E3:F49,K8").Select
        Selection.ClearContents
        Sheets("MVA  6").Select
        Range("A3,A3:B49,E3:F49,K8").Select
        Selection.ClearContents
        Sheets("MVA  7").Select
        Range("A3,A3:B49,E3:F49,K8").Select
        Selection.ClearContents
        Sheets("MVA  8").Select
        Range("A3,A3:B49,E3:F49,K8").Select
        Selection.ClearContents
        Sheets("MVA  9").Select
        Range("A3,A3:B49,E3:F49,K8").Select
        Selection.ClearContents
        Sheets("MVA  10").Select
        Range("A3,A3:B49,E3:F49,K8").Select
        Selection.ClearContents
        Sheets("ICMS ST Total").Select
        Range("C2").Select
        Selection.ClearContents
        Sheets("MVA  1").Select
        Range("A3").Select
    End Sub
    quinta-feira, 7 de janeiro de 2010 12:39

Respostas

  • Tente fazer assim

        Sheets("MVA  2").Range("A3,A3:B49,E3:F49,L15,M18,K8").ClearContents
        Sheets("MVA  2").Range("A3,A3:B49,E3:F49,K8").ClearContents
        Sheets("MVA  3")....
    Assim por diante
    Talvez fique mais rapido



    Wesley
    • Marcado como Resposta André L. Melo quinta-feira, 7 de janeiro de 2010 15:28
    quinta-feira, 7 de janeiro de 2010 13:23

Todas as Respostas

  • Tente fazer assim

        Sheets("MVA  2").Range("A3,A3:B49,E3:F49,L15,M18,K8").ClearContents
        Sheets("MVA  2").Range("A3,A3:B49,E3:F49,K8").ClearContents
        Sheets("MVA  3")....
    Assim por diante
    Talvez fique mais rapido



    Wesley
    • Marcado como Resposta André L. Melo quinta-feira, 7 de janeiro de 2010 15:28
    quinta-feira, 7 de janeiro de 2010 13:23
  • Obrigado amigo, ficou realmente mais rapido e eu entendi bem a lógico pra programá-las, já arrumei outras que tenho aqui simplificando-as.


    Abraços
    quinta-feira, 7 de janeiro de 2010 15:28