Saltar al contenido

Separar letras de celda


kanll

Recommended Posts

publicado

Buenas tardes, aquí con un trabajo que no he conseguido realizar.

Tengo una fila con datos, de los cuales tengo que separar las letras en la columnas contiguas.

De este problema tengo que realizar lo siguiente:

Hoja 01

1) Tengo que separar solo las consonantes y unir las tres primeras consonantes de las letras separadas. Ejemplo:

CAMISA=CMS

Pero si existe otro valor igual le asigne una secuencia numérica.

(CAMISETA=CMS)), pero como se repite debería pasar a (CMS001) y sucesivamente.

Hoja 02

2) Separar letras y unir las tres primeras. Ejemplo:

CAMISA=CAM

Pero si existe otro valor igual le asigne una secuencia numérica. (CAMARA=CAM), pero como se repite debería pasar a (CAM001) y sucesivamente.

Hoja 03

3) Existen Valores con tres o mas palabras, debe quedar así:

CAMISA POLO 38=CAMP38

Ojala me haya explicado bien, por su valiosa ayuda y tiempo, Muchas Gracias.

Adjunto Archivo.

Separar Letras.xls

publicado

Wow... muy buen reto!

Mi solucion no requirio de programar simplemente usar funciones y listo! Hago uso de la funcion "ExtraerPatron" la cual me permite hacer uso de expresiones regualares en Excel sin necesidad de tener que programar, el unico requisito para tener diponible la funcion y ver como funciona mi solucion es descargarse el complemento que puse en el area de aportes, instalarlo y listo, cualquier problema de este tipo puede ser facilmente resuelto sin necesidad de programar!

aqui el link del complemento:

https://www.ayudaexcel.com/foro/threads/mx-utilities-el-complemento-de-excel-que-hace-el-trabajo-mas-facil.36961/

Saludos!

P.D.

Por cierto me he dado cuenta que puedo mejorar mi funcion de ExtraerPatron, en este caso me llevo mas pasos ya que debo poner un separador (en este caso "|") para que me devuelva todas las coincidencias. No se por que microsoft no permite usar expresiones regulares en la interfaz de usuario? en fin,,, no necesito esperar a que MS decida implementar dicha funcionalidad.

Separar Letras.xls

publicado

Buena la Solución de @digitalboy, pero en el trabajo me obligan a trabajar con VBA, entonces la solución que me brinda [uSER=46507]@Macro Antonio[/uSER] se adapta a lo que realizo, pero como se lo puedo realizar para que no tenga que ser fija la fila, es decir; puedo encontrarme en otra fila ya la operación ya no me la realiza.

Gracias.

Separar Letras01.xls

publicado

Buena la Solución de @digitalboy, pero en el trabajo me obligan a trabajar con VBA, entonces la solución que me brinda [uSER=46507]@Macro Antonio[/uSER] se adapta a lo que realizo

Es una pena... :( aun asi fue divertido e interesante poder probar la funcionalidad de mi complemento en este problema. Si logro disponer de algo de tiempo lo que resta del fin de semana y aun no cierran el tema... quizas pueda brinda la solucion empleando VBA!

Aun que la verdad creo que ya la solucion del colega MacroAntonio resolvera sin duda tu problema!

Saludos!

publicado

En mi intento lo estaba realizando, pero me demoraba ("Con decir que aun no terminaba con la tarea"), ahora veo que no se nada en comparación de los MAESTROS en VBA, la verdad estoy muy agradecido de formar parte de este foro aunque sea solo para hacer consultas.

Algún día, espero llegar a ser la mitad de los MAESTROS.

Muchas Gracias, por la ayuda.

Tema Solucionado.

publicado

Hola! aqui esta mi aportacion haciendo uso de la clase clsString... la verdad debo reconocer que me sorprendio la simplicidad con la que [uSER=46507]@Macro Antonio[/uSER] resolvió el problema (ya estuve estudiando el codigo, primero extrae los caracteres y luego hace el conteo,,, ja quien lo hubiera pensado). Me gusta esa simplicidad, he aprendido mas de lo pensaba de este tema!

Saludos!

Separar Letras.xls

publicado

[uSER=128107]@kanll[/uSER]

Aunque ya diste por solucionado el tema, con posterioridad has recibido una nueva respuesta.

¿Te sirvió la ayuda? ¿Cerramos el tema?

Saludos

publicado

Muy buenas amigos @digitalboy y [uSER=46507]@Macro Antonio[/uSER], la solución es muy útil a las necesidades que tengo, pero al ejecutar el código note;

1) Que no enumera desde el principio, es decir;

CAMISA=CAM

CAMISETA=CAM-001

Cuando debería se así;

CAMISA=CAM-001

CAMISETA=CAM-002

2) También me genera un nuevo libro cuando debería crear la secuencia al lado de donde se selecciona los datos y respetando los espacios vacíos. ya que el orden debe ser igual.

Muy agradecido por la ayuda, pero si es posible ayudar con esas observaciones....

Mientras, Voy a intentar generar una combinación de las dos respuestas.

Muchas Gracias y disculpen las molestias.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      188
    • Comentarios
      98
    • Revisiones
      29

    Más información sobre "Cambios en el Control Horario"
    Última descarga
    Por pegones1

    3    1

  • Crear macros Excel

  • Mensajes

    • Saludos amigos espero estén bien  En la actualidad utilizo la siguiente macro para generar un código alfanumérico continuo que al guardar los datos se copia en la Celdas “B5” de las Hojas 58 (MATRIZ1) y Hojas59 (MATRIZ2) Private Sub CommandButton3_Click()     If Hoja58.Range("B5").Value < 9999 Then Hoja58.Range("B5").Value Hoja58.Range("B6").Value + 1     Else        Hoja58.Range("B5").Value = 1     End If If Hoja59.Range("B5").Value < 9999 Then Hoja59.Range("B5").Value = Hoja59.Range("B6").Value + 1 Else        Hoja59.Range("B5").Value = 1     End If End Sub El código se genera normalmente sin embargo no se copia inmediatamente en las Celdas “B5” sino que aparece en las Celdas “B6” mientras que las Celdas “B5” siempre permanecen en blanco, actualmente el código consta de tres letras y cuatro dígitos (RCI-0000) pero me interesa poderle concatenar el mes y año en formato mm-yy para que el código finalmente quede expresado de la siguiente forma RCI-0000-00-00 Mucho les sabre agradecer la ayuda que me puedan dar RCI PRUEBA..xlsm
    • Saludos amigos espero estén bien  En la actualidad cuando introduzco texto en los TextBox 5, 6 y 7 y dicho texto es mas largo que el ancho de los Texbox el texto se copia en una misma línea lo que dificulta verificar la redacción, así como visualizar cualquier error por lo cual necesito me ayuden con una macro que justifique el texto dentro de los Textbox, he probado usar la función Multiline sin obtener el resultado esperado. Mucho les sabre agradecer la ayuda que me puedan dar RCI PRUEBA..xlsm
    • Saludos amigos espero estén bien  En la actualidad utilizo los datos provenientes de los TextBox 5, 6 y 7 se guardan en las Columnas H, I y O de las Hojas 58 (MATRIZ1) y Hojas59 (MATRIZ2) sin embargo cuando el texto es abundante no se visualiza completamente en las celdas correspondientes de allí que necesito que cada fila se ajuste al tamaño de la celda que contenga mayor cantidad de texto para lo cual he probado con la siguiente macro: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.EntireRow.AutoFit End Sub Sin embargo, dicha macro coloca todas las filas del tamaño del texto que contengan y lo que en realidad necesito es que dicha macro solo se aplique desde la Fila 5 en adelante. Mucho les sabre agradecer la ayuda que me puedan dar RCI PRUEBA..xlsm
    • Saludos amigos espero estén bien  En la actualidad utilizo la siguiente macro para que la fecha aparezca en el Textbox2: Private Sub UserForm_activate() Me.TextBox2.Value = VBA.Date End Sub Sin embargo, una vez guardo los datos la fecha cambia de formato y se guarda en formato mm/dd/yyyy en vez de dd/mm/yyyy y este cambio de fecha me distorsiona los resultados de las fórmulas en las Columnas J en las Hojas 58 (MATRIZ1) y Hojas59 (MATRIZ2) Mucho les sabre agradecer la ayuda que me puedan dar RCI PRUEBA..xlsm
    • ¡Hola! Después de un buen tiempo ausente...  @Gabriela hg ya que veo que tienes Excel 365, te dejo mi solución para piezas y gramos.   Extraer piezas - gramos 365_GP.xlsx
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.