Função que verifica se contem numeros


#1

Boa tarde, pessoal!

Estou precisando de ajuda para criar um funçao em vba, que verifique se dentro de um texto, que esta em uma celula, se contem numeros de 0 a 9. Logo Criei esta função:

Function isnum(celula As Range)
Dim i As Integer
For i = 0 To 9
If InStr(celula, i) = True Then
isnum = True
Exit For
Next i
End Function

Mas aparece esse erro: “next sem for”

Alguem pode sugerir algo?


#2

Boa tarde Moises…
Faltou o endif

Function isnum(celula As Range)
Dim i As Integer
For i = 0 To 9
If InStr(celula, i) = True Then
isnum = True
Exit For
ENDIF
Next i
End Function

procure escrever usando o tab… ajuda nestas horas, assim:

image

abs