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.]

1RESUELTO Extraer Derecha 2 el 03/03/17, 10:57 am

edwinjo


Buenos Días,
Ioyama, 
Consultándote como agregarle un imputbox, si quiero separar mas de dos caracteres al final o talvez solo uno  o mas 

Sub Separa()
On Error Resume Next
    Set rango = Application.InputBox(Prompt:="Elige un rango", Type:=Cool
    If rango Is Nothing Then Exit Sub
    For Each cell In rango
        cell.Select
        For i = 1 To Len(cell)
            If IsNumeric(Mid(cell, i, 1)) Then
                cell.Value = Left(cell, i - 1) & " " & Right(cell, Len(cell) - i + 1)
                GoTo Salto
            End If
        Next
Salto:
    Next
End Sub
Gracias de Antemana
Edwinjo
Archivos
Separarcodigo_io_170301 (1).zip
No tienes los permisos para descargar los archivos.
(11 KB)

2RESUELTO Re: Extraer Derecha 2 el 06/03/17, 04:28 am

ioyama

avatar
Hola

La macro está preparada para separar los caracteres numéricos que haya al final del texto.

Da igual si hay uno dos o los que sean.

Si quieres separar letras y números o siempre un determinado número de caracteres del final hay que cambiar la macro.

Pon un ejemplo con lo que necesitas.

Un saludo desde Vitoria

3RESUELTO Gracias Entendido el 06/03/17, 10:12 am

edwinjo


Buenos días ioyama,
Esta bien así, entiendo no importa cuantos sean si son números los separara,
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.