Excel Macro para deletar linha segundo critério

[fabiola teixeira]

Olá. Atualmente trabalho com planilhas com 2000 linhas e quando necessito excluir um cadastro utilizo o código abaixo, o problema e que cada exclusão irá usar esse código 3 vezes pois o item está cadastrado em 3 planilhas distintas e isso está demorando muito. Gostaria de sugestões onde esse processo ficasse um pouco mais rápido.

 

Sub excluir_registro_ativo()
'
' excluir_registro_ativo Macro
'
    Range("bz27").Select
    Dim nome
    nome = ActiveCell.Value
    Sheets("REGISTRO ATIVOS").Select
    Dim Intervalo As Range
    Dim Célula As Range
    Set Intervalo = [a6:a2006]
    For Each Célula In Intervalo
    If Célula = nome Then
    Célula.EntireRow.Delete
    Else
    End If
    Next Célula
  
End Sub

 

[CasaDoHardware]

Nao da pra ter um cadastro unico?

 

Tente este codigo:

 

Sub excluir_registro_ativo()
'
' excluir_registro_ativo Macro
'
  
    Dim nome As String
    Dim linha As Long
    Dim W As Worksheet
    
    Set W = Sheets("REGISTRO ATIVOS")
        nome = Range("BZ27").Value2
        W.Select
        linha = Range("A" & Rows.Count).End(xlUp).Row
    
    For A = 6 To linha
    
    If Cells(A, 1).Value2 = nome Then
    Rows(A).Delete
    End If
    
    Next A
  
End Sub

 

[fabiola teixeira]

Em 26/11/2017 às 17:28, CasaDoHardware disse:

Nao da pra ter um cadastro unico?

 

Tente este codigo:

 

Sub excluir_registro_ativo()
'
' excluir_registro_ativo Macro
'
  
    Dim nome As String
    Dim linha As Long
    Dim W As Worksheet
    
    Set W = Sheets("REGISTRO ATIVOS")
        nome = Range("BZ27").Value2
        W.Select
        linha = Range("A" & Rows.Count).End(xlUp).Row
    
    For A = 6 To linha
    
    If Cells(A, 1).Value2 = nome Then
    Rows(A).Delete
    End If
    
    Next A
  
End Sub

 

Bom dia, tentei usar mar está dando erro

 Rows(A).Delete

O depurador para aqui.

 

adicionado 0 minutos depois

 

[CasaDoHardware]

Sua planilha esta protegida?