UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

Sólo por unos días suban sus archivos a Dropbox y dejan link en sus consultas. Gracias.

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

alberto sierra


Buenas a tod@s!

Lo primero pedir disculpas por no haber subido archivo, ahora sí esta subido, muchas gracias por el control. Dicho esto paso a la consulta:

Tengo una celda (A109) de la hoja "DATOS" con el siguiente texto:

3 New Vo... Healthy No No 29 GB 19 GB 34,48

Y lo que me gustaría hacer es una macro que me quite el espacio que hay entre New Vo... para que quede de la siguiente manera:

3 NewVo... Healthy No No 29 GB 19 GB 34,48

NewVo... todo junto, pero solo quitar ese espacio, lo demás dejarlo como esta. 

Muchas gracias por la ayuda!!
Un saludo Alberto
Archivos
PRUEBA_TE (1) - copia - copia.xlsm
No tienes los permisos para descargar los archivos.
(69 KB)

wibly

avatar
Hola Alberto Sierra,


Puedes lograrlo reemplazando las cadenas de caracteres "New Vo" por "NewVo"... y para lograglo puedes hacerlo con:
1-  CTRL+L o
2-  Yendo a INICIO >>> BUSCAR Y SELECCIONAR >>> REEMPLAZAR

Y esto luego lo puedes llevar a macro con el GRABADOR DE MACROS.

Saludos


_________________
Adrián Wibly

Mi canal de YOUTUBE

Tutorial: IMPRIMIR TODO EN UNA SOLA PAGINA

alberto sierra


Buenos días Wibly:

Lo primero darte las gracias por la ayuda y ser tan rápido. Lo que me dices está muy bien pero si lo hago grabando macro, luego la macro me servirá si estoy en la misma celda que la he gravado ¿no?. Por eso lo he hecho de la siguiente manera, creo que está bien si falta algo o hay que modificar me dices.

Sub QUITAR_ESPACIO500()

Dim Celda As Range
Dim PALABRA As String
PALABRA = "*" & "??????New Vo...????????" & "*"
For Each Celda In Range("A1:A999")
If Celda.Value Like PALABRA Then

Celda.Value = "3 NewVo... Healthy No No 29 GB 18 GB 37,93"

End If
Next Celda

End Sub


Un saludo y muchas gracias
Alberto

4RESUELTO Muy buenas a todos!! el 28/12/16, 10:31 am

alberto sierra


Ya he resuelto este problema, muchas gracias por todo!!

Un fuerte abrazo 
Alberto

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.