Bom dia Pessoal,
Neste fim de ano jogaram um BO na minha mão, zerar todas as planilhas da empresa para o ano que vem, para isso eu precisei de um código que realizasse a limpeza de todas as células desbloqueadas da planilha. Em todos os fóruns que pesquisei eu só achava a rotina que varre um range da planilha célula por célula e realiza a limpeza, mas como minhas planilhas são muito grandes e tem muitas abas eu levava quase uma hora para zerar cada planilha.
Por isso dei uma pesquisada em fóruns gringos e encontrei uma rotina que faz o mesmo trabalho quase que instantaneamente, por isso resolvi compartilhar aqui no fórum para facilitar a vida de que tem o mesmo problema que eu.
Sub LimparTudo() Dim wkb As Workbook Dim wks As Worksheet Set wkb = ThisWorkbook For Each wks In ThisWorkbook.Worksheets wks.Protect 'se a planilha não estiver protegida todas as células e formulas serão zeradas! On Error Resume Next wks.UsedRange = "" On Error GoTo 0 Next wks End Sub
Espero ter ajudado de alguma forma.
Att, Carlos
Ja estou usando
Marcelo Prudencio
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
MPrudencio
Muito útil também estou usando
Décio
Marque o tópico como Resolvido se foi solucionado seu problema.
Brasil, São Paulo - SP
Décio Gassi