Tenho uma rotina que vou excluindo as linhas de acordo com a palavra digita.
Sub ExcluirLinha()
Dim Col As Variant, Word As String
Let Col = InputBox("Em qual coluna devo manter o foco da busca da palavra?")
If Len(Col) > 0 And Not Col Like "*[!0-9]*" Then Col = Val(Col)
Let Word = InputBox("Que palavra devo encontrar nas Linhas para apagá-las?")
With Columns(Col)
.Replace Word, "#N/A", xlWhole
.SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete
End With
End Sub
Encontrei uma outra rotina mais dinâmica, mas estou apanhando para adaptá-la as minhas necessidades. Quero incluir na rotina, abaixo, os seguintes critérios.
Sub ExcluirLinha2()
Dim vDeletaValor As String
Dim vRange As Range
Dim vModoCalcular As Long
With Application
vModoCalcular = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
vDeletaValor = "Assistidos"
With ActiveSheet
.AutoFilterMode = False
.Range("N2:N" & .Rows.Count).AutoFilter Field:=1, Criteria1:=vDeletaValor
With ..AutoFilter.Range
On Error Resume Next
Set vRange = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If Not vRange Is Nothing Then vRange.EntireRow.Delete
End With
.AutoFilterMode = False
End With
With Application
.ScreenUpdating = True
.Calculation = vModoCalcular
End With
End Sub
Alguém poderia me ajudar?
Agradeço antecipadamente,
jlvfrança