Deletar linha deferente de números (diferente 0 e "vazio")

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Deletar linha deferente de números (diferente 0 e "vazio")

Mensagem por alexandrevba em Ter Out 15, 2013 8:13 am

Bom dia!!
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
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum