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
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 RespostaAndré L. Meloquinta-feira, 7 de janeiro de 2010 15:28
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 RespostaAndré L. Meloquinta-feira, 7 de janeiro de 2010 15:28