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

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.