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

No se puede subir archivos al foro, favor de hacerlo en servidor externo (Dropbox, Drive...) y dejan link. "Sin archivo no hay respuestas"

Favor de leer "Todos los temas" Click aquí.

No estás conectado. Conéctate o registrate

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

1RESUELTO Recortar Derecha el 07/12/17, 01:32 pm

edwinjo


Buenos días Estimados,
Solicitando de su ayuda, con el siguiente código que debo cambiar para elegir con un imputbox el rango de donde quiero eliminar los caracteres a la derecha y elegir el rango donde quiero  pegar el texto recortado con un imputbox. Por su fina ayuda Muchas Gracias
Edwinjo
Sub RecortarDerecha()
NCaracteres = InputBox(Chr(13) & Chr(13) & Chr(13) & Chr(13) & "Introduce el número de caracteres a recortar", "Nº caracteres a recortar", "Nº caracteres a recortar", 1000, 1000)
Final = Range("A65536").End(xlUp).Row
For x = 2 To Final
Cells(x, 2) = Right(Cells(x, 1), NCaracteres)
Next
End Sub
Archivos
DERECHA.zip
No tienes los permisos para descargar los archivos.
(11 KB)

2RESUELTO Re: Recortar Derecha el 08/12/17, 03:00 am

Igtelo

avatar
Hola Edwin.

Prueba el adjunto.

Saludos
Ignacio Téllez
Archivos
Edwinjo-Derecha.xls
No tienes los permisos para descargar los archivos.
(51 KB)

3RESUELTO Consulta el 08/12/17, 10:50 am

edwinjo


Buenos días Ignacio,
No me permite elegir donde pegar, he tratado digitando D1, por ejemplo y no me da resultado, por otro lado disculpas por no explicarme bien tan bien deseo poder escoger el rango que recortare con un imputbox y con imputbox elegir donde pegar el recorte, Gracias por vuestra ayuda


Edwinjo

4RESUELTO Re: Recortar Derecha el 08/12/17, 01:51 pm

Igtelo

avatar
Hola Edwin.

En el archivo anterior se debe poner el número de columna, no la la referencia de celda.

Como quieres rangos, debes tener cuidado en que ambos sean iguales, es decir, si seleccionas 5 celdas, para el rango de resultados también deben ser 5.

Saludos
Ignacio Téllez
Archivos
Edwinjo-Derecha2.xls
No tienes los permisos para descargar los archivos.
(57 KB)

5RESUELTO Excelente el 09/12/17, 01:20 pm

edwinjo


Excelente, trabaja muy bien, muchas gracias

Edwinjo

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.