VBA para identificar o tipo de dado da célula

Função Somases – Várias condições para soma
13 de outubro de 2010
Comparação de lucros com representação gráfica
Comparação de lucros com representação gráfica
18 de outubro de 2010

Objetivo: Identificar qual o tipo de dado de cada célula na coluna A.

Conforme a dúvida da leitora Magna, criei uma procedure no VBA que faz um loop entre os dados desta lista e identifica se o dado é Texto, Número ou Fórmula, e se for fórmula extrai esta informação.

Abaixo o código fonte da procedure em VBA.

Public Sub lsIdentificaCelulas()
    Dim iTotalLinhas    As Long
    Dim lContador       As Long
    
    lContador = 1
    Range("A1").Select
    Selection.End(xlDown).Select
    iTotalLinhas = Cells(Rows.Count, 1).End(xlUp).Row + 1

    While iTotalLinhas > lContador
        If Left(Cells(lContador, 1).Formula, 1) = "=" Then
            Cells(lContador, 2).Value = "Formula: " & Cells(lContador, 1).Formula
        Else
            If IsNumeric(Cells(lContador, 1)) Then
                Cells(lContador, 2).Value = "Numeric"
            Else
                Cells(lContador, 2).Value = "Text"
            End If
        End If
        lContador = lContador + 1
    Wend
End Sub

Faça o download do exemplo pronto clicando no botão abaixo:

2 Comments

  1. CRIS MEDEIROS disse:

    onde fica o botão desenvolvedor?

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.

Inscreva-se no nosso canal do Youtube!


Junte-se ao nosso canal do Youtube. Começamos em abril de 2016, mas já temos mais de 06:00 h de treinamentos gratuitos e este número irá aumentar. Vídeos novos todos os sábados.