Deletar linha deferente de números (diferente 0 e "vazio")
Página 1 de 1
Deletar linha deferente de números (diferente 0 e "vazio")
Bom dia!!
Caso queira deletar linhas que não sejam números e que sejam deferente de vazio e zero
Caso queira deletar linhas que não sejam números e que sejam deferente de vazio e zero
- Código:
Public Sub DeletLinhasNumeros()
'Válido somente para numeros
'Deletar linhas baseado em 4 colunas caso estejam igual a vazio ou zero e diferente de números.
Dim lngRowNumber As Long
With ThisWorkbook.Worksheets("Plan2")
For lngRowNumber = .UsedRange.Rows.Count To 2 Step -1
If (Val(.Cells(lngRowNumber, "L").Value) = 0 Or Len(.Cells(lngRowNumber, "L").Value & "") = 0) And _
(Val(.Cells(lngRowNumber, "M").Value) = 0 Or Len(.Cells(lngRowNumber, "M").Value & "") = 0) And _
(Val(.Cells(lngRowNumber, "N").Value) = 0 Or Len(.Cells(lngRowNumber, "N").Value & "") = 0) And _
(Val(.Cells(lngRowNumber, "O").Value) = 0 Or Len(.Cells(lngRowNumber, "O").Value & "") = 0) Then
.Rows(lngRowNumber).Delete
End If
Next lngRowNumber
End With
End Sub
alexandrevba- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Tópicos semelhantes
» NÚMEROS QUE FALTAM EM UMA SEQUÊNCIA ENTRE DOIS NÚMEROS
» Como comparar Duas colunas e deletar dados II
» Deletar Linahs Baseado em criterios
» Deletar Guias VBA (criando CheckBox)
» Deletar TODOS dados que estão duplicados.
» Como comparar Duas colunas e deletar dados II
» Deletar Linahs Baseado em criterios
» Deletar Guias VBA (criando CheckBox)
» Deletar TODOS dados que estão duplicados.
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|