none
Deletando linhas de células q não são números RRS feed

  • Pergunta

  • Olá, gostaria de saber como implemento uma Macro que leia as células de uma coluna e apague a linha toda quando o valor dessa célula não for um número?

    obs: Entretando tem que fazer isso com  um limite de parada. Ou seja não pode executar isso até q apague todas as linhas da planilha. Só as que estão preenchidas mas não são números.

     

    Muito obrigado

    terça-feira, 29 de agosto de 2006 16:38

Respostas

  • Oi Marlon,

     

    experimente este procedimento:

    Sub EliminaLinhas()
    'Apaga a linha se a coluna A não for numérica
    Dim Linha As Long
    Dim rng As Range

    For Linha = 1 To Worksheets(1).UsedRange.Rows.Count
        Set rng = Worksheets(1).Cells(Linha, 1)
        If IsNumeric(rng.Value) = False Then
            rng.EntireRow.Delete
            Linha = Linha - 1
        End If
    Next Linha
    End Sub

     

    quarta-feira, 30 de agosto de 2006 00:00
    Moderador