Excel - VBA - Limpar Conteúdo

Sub Org()



    'importa dados

   Workbooks.Open("\\vsboffice\AAL\Documentacao_administrativa\AAL1\Gestão de Estoque\Dados\Base.xls&quot _

   .Worksheets("Base&quot.Copy Before:=Workbooks("Executando.xlsm&quot.Sheets(1)

    Workbooks("Base.xls&quot.Activate

   ActiveWorkbook.Close False



    'organiza a planilha ativa; exclui as linhas 1,2 e 4 e a coluna 'A'

    [L3] = [L2]: [K3] = [K2]: [E3] = [E2] ': [G2] = ""

    Union(Rows("1:2&quot, Rows(4)).Delete: Columns(1).Delete



    'muda textos com formato dd.mm.aaa para data dd/mm/aaaa na coluna 'G'

  Columns("G:G&quot.TextToColumns Destination:=Range("G1&quot, DataType:=xlDelimited, _

  TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _

    Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _

     :=Array(1, 4), TrailingMinusNumbers:=True

  

  'exclui as linhas cujas células estejam vazias na coluna 'A'; limpa o conteúdo *Total na coluna 'A'

Columns("A:A&quot.SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Cells(Rows.Count, 1).End(3) = ""

    'exclui as linhas com valores negativos na coluna 'I'

    With ActiveSheet

     .Range("A1:T1&quot.AutoFilter Field:=9, Criteria1:="<0"

     .Range("A3:T" & .Cells(Rows.Count, 1).End(3).Row).SpecialCells(xlCellTypeVisible).EntireRow.Delete

     .AutoFilterMode = False

    End With



    'ajusta a largura das colunas, centraliza conteúdos

    With Columns("A:T&quot

     .AutoFit

     .HorizontalAlignment = xlCenter

     .VerticalAlignment = xlCenter

    End With



    'deleta a planilha Base (2)

  Application.DisplayAlerts = False

   Sheets("Base (2)&quot.Delete

  Application.DisplayAlerts = True



End Sub