If verificando se tem ou não String na célula com VBA


#1

Bom dia pessoal,

gostaria de saber como poderia checar se uma célula tem ou não uma String escrita nela para entrar no IF.

Obrigado.


#2

Colega @felipejlinhares

Use a função VarType para isso.

A função VarType verificar o tipo de dados contido em uma célula de referência, retornando um valor numérico correspondente à cada um desses tipos.

Segue a tabela:
0 – Vazio (não inicializado)

1 – Nulo (dados não válidos)

2 – Inteiro

3 – Inteiro longo

4 – Número de precisão simples

5 – Número de precisão dupla

6 – Monetário

7 – Data

8 – Texto

9 – Objeto de automação

10 – Erro

11 – Boleano (Verdadeiro ou Falso)

12 – Variant (somente utilizado com Arrays de variantes)

13 – Objeto para acesso a dados

17 – Byte

8192 – Array

Um exemplo para saber se a célula A1 possui texto:

If VarType(Range("A1")) = 8 Then
Msgbox "É texto!"
End if

Mais iformações em:

Agora se quer saber por exemplo se uma célula possui um texto em específico tente:

Ex. Você quer saber se na célula possui a palavra “Excel” então:

If Range("A1").text like "*" & "Excel" & "*" Then
Msgbox "Possui"
Else
Msgbox "Não Possui"
End If

#3

Obrigado, deu certo!!!