Usuários do Excel
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

Ir para baixo

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

Mensagem por alexandrevba 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
alexandrevba
alexandrevba
Intermediário
Intermediário

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

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos