Extraer palabras segun color

[juanfl]

Cordial saludo

Amigos(as) necesito de su colaboracion por favor, la macro me separa en celda B2 las palabras que tienen un color pero el problema es que no deja espacios entre estas, les...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[jbsanchezr]

Hola @juanfl
Una opción es que cambies el IF por

If pRange.Characters(i, 1).Font.Color = vbRed Or pRange.Characters(i, 1).Text = " " Then

Y cuando llames a la función la...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Goldfinger]

porque extraer letra por letra cuando puedes hacerlo palabra por palabra?, te paso la siguiente funcion que hace eso, separa las palabras de la celda, luego busca cuales estan en rojo, como vi que...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[juanfl]

Hola @juanfl
Una opción es que cambies el IF por

If pRange.Characters(i, 1).Font.Color = vbRed Or pRange.Characters(i...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[juanfl]

porque extraer letra por letra cuando puedes hacerlo palabra por palabra?, te paso la siguiente funcion que hace eso, separa las palabras de la...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí