Notifications
Clear all

excluir linhas que contenham células com "..."

2 Posts
1 Usuários
0 Reactions
764 Visualizações
(@juliowd)
Posts: 149
Estimable Member
Topic starter
 

Olá.
Na coluna J, tenho em algumas células a informação "...". Isso significa que eu não preciso desta linha.
Eu usei a seguinte programação para excluir as linhas onde essa informação "..." aparece.
Dim i As Long
For i = 1 To 1000
If Plan7.Range("J" & i).Value = "..." Then
Rows(i & ":" & i).Select
Selection.Delete Shift:=xlUp
End If
Next
Range("A1").Select

e tambem usei esta:

Sub deletar_linha_com_pontos()

Application.ScreenUpdating = False

For i = 8 To 1000

If Plan7.Range("j" & i) = "..." Then

Rows(i).Select

Selection.EntireRow.Delete

End If

Next

End Sub

Porém nenhuma delas apaga TODAS as linhas onde tenha essa informação....
Como devo escrever o código?

Obrigado!!!

 
Postado : 18/06/2014 12:23 pm
(@juliowd)
Posts: 149
Estimable Member
Topic starter
 

encontrei uma que funcionasse:

Sub DeleteRowsWithWord()
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

Deu ok.

 
Postado : 18/06/2014 12:37 pm