Macro para contar caracteres de una celda hasta encontrar un espacio.
Lo que ocurre es que necesito contar la cantidad de caracteres que tiene la primera palabra de cada celda(por lo mismo me imagino que seria mas sencillo hacerlo al encontrar un espacio). La necesito como macro puesto que al tener esto lo debo agregar a otra rutina diseñada.
1 Respuesta
Respuesta de Luis_P
1
4c7569735f50
private sub contar()
dim c as string
dim i as integer
c=selection
if len(trim(c))=0 then exit sub
for i=1 to len(c)
if mid(c,i,1)=chr(32) then exit for
next
selection.offset(0,1)=(i-1)
El ejemplo funciona asi
Te posicionas sobre la celda que contiene la cadena, corres el macro y el resultado lo obtienes en la celda a la derecha de donde esta la cadena a evaluar
