Ayuda para realizar un macro Unir

[Fernando Lemus]

Amigos de exceluciones alguien me puede dar una mano con mi siguiente peticion en el archivo adjunto.

slds,

 

[Tavo77]

Hola Fernando, creo que en este caso con una fórmula es suficiente:

=SUSTITUIR(SUSTITUIR(E7;" ";"";1);" ";"-";1)

 

[Fernando Lemus]

Gracias tavo quedo excelente, por otra me gustaria tambien realizarlo con algun macro... se puede....esto para tenerlo presente con formula y con macro..

 

[Tavo77]

Bueno, pues con esta UDF obtendrí­as el mismo resultado (debe ir copiado en un módulo):

<i>
</i>Public Function unir(valor As String)
   pos = InStr(1, valor, " ", vbTextCompare)
   unir =...

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í

 

[Fernando Lemus]

Amigo y maestro, gracias muchas pero muchas gracias tienes algun manual de como realizar estas obras de arte....

slds,

 

[Tavo77]

Muchas gracias. La verdad no tengo un tutorial al respecto, pero si utilizas este foro y haces preguntas y ves las que hace otra gente de seguro vas a aprender muy rápido...