como utilizo la funcion ESTEXTO() de excel desde visual basic

hola, !

quiero determinar el valor de una celda si es texto dejarla igual si es numero modificarlo.
Todo esto desde visual basic.. no encontre un funcion que lo hiciera. no se si la haya...

en vba, las funciones de hoja de calculo se utilizan 'en ingles' [p.e.]

op1: If Application.WorksheetFunction.IsText(ActiveCell) Then ...
puedes sustituir el 'ActiveCell' por referencias al estilo de vba: Worksheets("hoja1").Range("a1") [etc.]

op2: If Evaluate("istext(" & Activcell.Address & ")") Then ...

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

hola para saber si el contenido de la celda activa es numerico prueba
con:

numero = isnum(activecell.value)
if numero then msgbox "Es valor numerico ..."

Saludos!


On 22 jun, 01:11, "Héctor Miguel"
wrote:

hola, !

> quiero determinar el valor de una celda si es texto dejarla igual si es numero modificarlo.
> Todo esto desde visual basic.. no encontre un funcion que lo hiciera. no se si la haya...

en vba, las funciones de hoja de calculo se utilizan 'en ingles' [p.e.]

op1: If Application.WorksheetFunction.IsText(ActiveCell) Then ...
puedes sustituir el 'ActiveCell' por referencias al estilo de vba: Worksheets("hoja1").Range("a1") [etc.]

op2: If Evaluate("istext(" & Activcell.Address & ")") Then ...

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

hola, Francisco 1

para saber si el contenido de la celda activa es numerico prueba con:
numero = isnum(activecell.value)
if numero then msgbox "Es valor numerico ..."

1) de donde has 'sacado' la funcion isnum(...) -?-
probablemente te refieres a la funcion isnumeric(...) -?-

2) la funcion de vba: isnumeric(...) tiene comportamientos diferentes de las funciones de hoja de calculo [p.e.]
si suponemos que la celda activa contiene un valor 'numerico' [p.e. 123] PERO en 3 formatos diferentes...
a) normal: 123
b) precedido por apostrofo: '123
c) la celda con formato de texto

-> las funciones de hoja de calculo, llamadas desde vba [p.e. desde la ventana de inmediato]:
? evaluate("isnumber(" & activecell.address & ")") devuelve: verdadero / falso / falso
? evaluate("istext(" & activecell.address & ")") devuelve: falso / verdadero / verdadero
-> la funcion isnumeric(activecell) devuelve: verdadero -> para las tres posibilidades

3) dependiendo de cual sea la *verdadera evaluacion* que necesite OP -?-

saludos,
hector.

jeje tienes razon lo mencione de memoria

Francisco Parrilla
Operador de Sistemas
News Microsoft:
news.microsoft.com
Comunidad:
http://groups.msn.com/ExcelVbaMacrosOffice
Ayuda y Soporte:
http://support.microsoft.com/search/?adv=1

"Héctor Miguel" escribió en el mensaje
news:

hola, Francisco 1

> para saber si el contenido de la celda activa es numerico prueba con:
> numero = isnum(activecell.value)
> if numero then msgbox "Es valor numerico ..."

1) de donde has 'sacado' la funcion isnum(...) -?-
probablemente te refieres a la funcion isnumeric(...) -?-

2) la funcion de vba: isnumeric(...) tiene comportamientos diferentes de

las funciones de hoja de calculo [p.e.]

si suponemos que la celda activa contiene un valor 'numerico' [p.e.

123] PERO en 3 formatos diferentes...

a) normal: 123
b) precedido por apostrofo: '123
c) la celda con formato de texto

-> las funciones de hoja de calculo, llamadas desde vba [p.e. desde la

ventana de inmediato]:

? evaluate("isnumber(" & activecell.address & ")") devuelve:

verdadero / falso / falso

? evaluate("istext(" & activecell.address & ")") devuelve:

falso / verdadero / verdadero

-> la funcion isnumeric(activecell) devuelve: verdadero -> para las

tres posibilidades

3) dependiendo de cual sea la *verdadera evaluacion* que necesite

-?-

saludos,
hector.