Excluir linhas

[salvir]

Prezados,

 

Tenho uma plan com mais de dez mil linhas e gostaria de um código que eliminasse linhas que fosse diferente de um determinado código (ex. A44).

Por exemplo: os códigos estão na coluna B, linha 8 até 10000 e todas as linhas em que não tiver o código A44 na coluna B devem ser excluídas. 

 

Sds

Salvir

[Visitante]

Sub DeletaLinhas()

  Dim LR As Long, k As Long

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

      For k = LR To 8 Step -1

        If Cells(k, 2) <> "A44" Then Rows(k).Delete

      Next k

End Sub

 

 

[salvir]

Obrigado pela ajuda.

Porém tenho um problema, a plan tem umas 10 mil linhas e 320 colunas com dados, daí demora demais para fazer o processo.

Será que ao invés de excluir a linha, poderia excluir os dados das colunas que tem dados? Ou teria outra forma para agilizar o processo?

 

Muito Obrigado!

Salvir

[Visitante]

Disponibilize uma amostra do seu arquivo, com cerca de 200 linhas de dados.

[salvir]

Anx arquivo exemplo.

Exemplo.xlsx

[DJunqueira]

porque você não simplesmente ordena pelo código e elimina todo o resto com um comando?

Ou ainda, copia as linhas com o código p/ outra planilha e apaga a anterior...

[salvir]

Pode ser, mas teria alguma forma de automatizar uma destas alternativas, haja vista que são vários códigos diferentes para separar em várias planilhas?

[DJunqueira]

Na minha opinião, se for p/ fazer isso apenas uma vez é melhor sem código.

Se for fazer todo mês aí use macro...

[Visitante]

#Salvir, experimente o código abaixo.

Sub DeletaLinhas() Dim LR As Long, cRIT As Variant  If ActiveCell.Column <> 4 Or ActiveCell.Row < 8 Or ActiveCell.Value = "" Then Exit Sub  Application.ScreenUpdating = False  LR = Cells(Rows.Count, 2).End(xlUp).Row  cRIT = ActiveCell.Value    With [Z1]     .ClearContents       With .Font        .Name = "Calibri"        .Size = 10       End With       With .Borders        .LineStyle = xlContinuous        .Weight = xlThin        .ColorIndex = xlAutomatic       End With     .Copy    End With  Range("D8:D" & LR).PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd  With ActiveSheet    .AutoFilterMode = False    .Range("B7:LC" & LR).AutoFilter Field:=3, Criteria1:="<>" & cRIT    .Range("B8:LC" & LR).SpecialCells(xlCellTypeVisible).EntireRow.Delete    .AutoFilterMode = False  Application.ScreenUpdating = True    .[D8].Select  End WithEnd Sub

funcionamento - selecione uma célula que contenha o "código" que deseja manter na planilha (selecione na coluna "D" a partir da linha 8) e rode o código acima; os demais "códigos" serão excluídos da planilha.