Notifications
Clear all

Converter texto em zero

3 Posts
2 Usuários
0 Reactions
1,053 Visualizações
(@dlhunsil)
Posts: 21
Eminent Member
Topic starter
 

Boa Noite,

to com um problema q é o seguinte
fiz uma função pra copiar e colar numeros só q em determinados campos possui textos
gostaria q quando tivesse textos ele me retornasse vazio ou zero

if a = texto them
a=""
else
a=a
end if

algo mais ou menos assim
desde ja agradeço

 
Postado : 19/01/2012 4:04 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Use as funções do VBA, neste caso IsNumeric.

If Not IsNumeric.......

Veja mais sobre as funções de Tipos do excel no VBA :
Funções do VBA - Funções de Tipo
http://www.juliobattisti.com.br/cursos/ ... icao14.asp

IsNumeric Function (VBA only)
http://www.techonthenet.com/excel/formu ... umeric.php

Formulas/Functions (By Category)
http://www.techonthenet.com/excel/formulas/index.php

[]s

 
Postado : 19/01/2012 5:08 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Mauro,

Ele pode usar também o VarType(NomeDaVariável) para checar

If VarType(NomeDaVariável) = 8 Then ...
End If

ref.: http://www.juliobattisti.com.br/excel120avancado/modulo5/licao14.htm

[]s

 
Postado : 24/01/2012 10:42 am