EXCLUIR LINHAS E PREENCHIMENTO AUTOMATICO DE FÓRMULA

[Andrade6854]

Boa noite.

 

 

Tenho uma planilha com mais de 100.000 itens para analise e gostaria de saber se tem como fazer um macro para o caso:

 

 - Para a coluna A, ele excluísse as linha que não contém números (letras e caracteres) e excluísse o que estivesse em branco.

 

- Na coluna D, tem uma fórmula (=SE(C2="Agosto";"encerrar contabil";"analise de BOM"), gostaria que ele executasse em toda a linha, até não ter mais dados, e logo após  ele  tipo copia-se e cola o valor da analise na coluna E sem formula.

 

Apenas faço uma ressalva que o arquivo em anexo foi resumido (exclui parte da informação), pois ele deu 10 MB de tamanho, mas os procedimentos são os mesmo.

 

Desde já, grato.

 

LIVRO CONTABIL - INVENTÁRIO.xlsx

[AlysonR]

Vou só trocar de sistema operacional aqui e volto com a sua resposta.

[Visitante]

Sub ExcluiLinhas()

 Dim LR As Long, i As Long

  LR = Cells(Rows.Count, 2).End(xlUp).Row

   For i = LR To 2 Step -1

    If Not IsNumeric(Cells(i, 1)) Or Cells(i, 1) = "" Then Rows(i).Delete

  Next i

  LR = Cells(Rows.Count, 2).End(xlUp).Row

  Cells(2, 4) = "=IF(C2=""Agosto"",""encerrar contabil"",""analise de BOM"")"

  Cells(2, 4).AutoFill Cells(2, 4).Resize(LR - 1)

  Range("D2:D" & LR).Copy

  [E2].PasteSpecial Paste:=xlPasteValues

  Application.CutCopyMode = False

End Sub

[Andrade6854]

Sub ExcluiLinhas() Dim LR As Long, i As Long  LR = Cells(Rows.Count, 2).End(xlUp).Row   For i = LR To 2 Step -1    If Not IsNumeric(Cells(i, 1)) Or Cells(i, 1) = "" Then Rows(i).Delete  Next i  LR = Cells(Rows.Count, 2).End(xlUp).Row  Cells(2, 4) = "=IF(C2=""Agosto"",""encerrar contabil"",""analise de BOM"")"  Cells(2, 4).AutoFill Cells(2, 4).Resize(LR - 1)  Range("D2:D" & LR).Copy  [E2].PasteSpecial Paste:=xlPasteValues  Application.CutCopyMode = FalseEnd Sub

Obrigado Osvaldomp, funcionou perfeitamente