Como ordenar información con coincidencia parcial?

publicado el 29 de noviembre2 años

Estimados!!! buenas tardes.

Tengo el siguiente problema y no se como resolverlo.

Dispongo de una base de datos con muchos emails. Muchos de estos emails, que son de distintos destinatarios son sí de la misma empresa. Entonces me gustaría poder ordenar esa información por empresa. Por ejemplo tengo esta información:

aaaa@fp.com

bbbb@hg.com

cccc@ml.com

dddd@fp.com

eeee@hg.com

fffff@ml.com

Querría poder ordenarlos de la siguiente manera (así con sus respectivas filas, pues tiene información de contacto, nombre, detalles, etc)

aaaa@fp.com

dddd@fp.com

cccc@ml.com

fffff@ml.com

eeee@hg.com

bbbb@hg.com

Les agradezco de antemano!!!

muchas gracias!!!

publicado el 29 de noviembre2 años

Hace 1 hora, nikotesla dijo:

Querría poder ordenarlos de la siguiente manera (así con sus respectivas filas, pues tiene información de contacto, nombre, detalles, etc)

aaaa@fp.com

dddd@fp.com

cccc@ml.com

fffff@ml.com

eeee@hg.com

bbbb@hg.com

Nos puedes explicar cuál es la lógica que implica este orden

publicado el 29 de noviembre2 años

Hola @Gerson Pineda. Parece que se ordenan por el dominio del correo y a continuación por el nombre de usuario.

publicado el 29 de noviembre2 años

Lo único que se me ocurre es dividir la columna por delimitador usando el caracter @.

A continuación ordena la columna que contiene los dominios.

Para finalizar usa la función CONCATENAR (veo que tienes Excel 2016) para volver a unir las cadenas de texto ya ordenadas.

publicado el 30 de noviembre2 años

Hola @nikotesla,

Como bien indica Sergio, una solución sencilla (sin macros) puede ser una Tabla en la que extraes el dominio en una columna, concatenas en otra y ordenas por la columna de dominios.

image.png.72700f7de454d2c4ba5c402d0b97e9ef.png

Correos ordenados por dominio.xlsx

Editado el el 30 de noviembre2 años por FGV

publicado el 30 de noviembre2 años

Hola a todos,

Una solución para M365 podría ser, suponiendo que el rango a evaluar sea A1:A6 :

=ORDENARPOR(A1:A6;TEXTODESPUES(A1:A6;"@"))

que desplegará una matriz con los resultados deseados........ pero eso sí, por orden estrictamente alfabético de dominio; es decir:

aaaa@fp.com

dddd@fp.com

bbbb@hg.com

eeee@hg.com

cccc@ml.com

fffff@ml.com

Saludos,

publicado el 30 de noviembre2 años

Que tal a todos, considerando la versión de Excel de la consulta, me permito aportar otra posible solución con fórmula matricial.

Espero les sea útil.

Ordenar correos (Ayuda Excel).xlsx

publicado el 30 de noviembre2 años

Autor

Estimados!! Impecable!!! Lo hice con la primer respuesta.. separe por el @ y luego concatené. No soy ni cerca usuario de excel.. lo uso muy poco.

Muchas gracias!!!

Archivado

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

Ir al listado de temas

Domina Excel, de Cero a Experto

¿Atascado? Deja de buscar soluciones puntuales. Aprende a dominar Excel para siempre con nuestro curso online. Más de 115 lecciones y soporte directo.

Ver el Curso Completo

192 Archivos
99 Comentarios
30 Revisiones
Última descarga

Cómo conservar la función AHORA()
- 1

Error en Macro

Saludos Profesor Sergio, de ante mano gracias por responder, realice lo que me sugirió coloque el código donde me indicó, sin embargo me sigue arrojando el mismo error.
' Restaurar formato de fuente
With wsHistorico.Rows("2:2").Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
' Incrementar automáticamente el número de recibo
wsRecibo.Range("J2").Value = wsRecibo.Range("J2").Value + 1
'Corrección de Error en impresión
Application.Wait (Now + TimeValue("0:00:01"))
' Imprimir
wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

Por dorgelis, · publicado hace 2 horas 2 hr
Libro de excel lento

Ahora sí, aquí lo dejo por si a alguien le viene bien.
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim celda As Range
    Dim imgNombre As String
    Dim imgOriginal As Shape
    Dim imgCopia As Shape
    Dim nombreImagenCelda As String

    ' Solo actuar si el cambio es en una celda individual
    If Target.CountLarge > 1 Then Exit Sub

    Set celda = Target
    nombreImagenCelda = "Imagen_" & celda.Address(False, False)

    ' Eliminar imagen existente en esa celda (si existe con ese nombre)
    On Error Resume Next
    Me.Shapes(nombreImagenCelda).Delete
    On Error GoTo 0

    ' Determinar qué imagen usar según el valor
    Select Case celda.Value
        Case 1: imgNombre = "PruebaEuropa"
        Case 2: imgNombre = "PruebaAsia"
        Case 3: imgNombre = "PruebaÁfrica"
        Case 4: imgNombre = "PruebaAmérica"
        Case 5: imgNombre = "PruebaOceanía"
        Case 6: imgNombre = "PruebaMarrón"
        Case Else: Exit Sub ' No hacer nada si el valor no es válido
    End Select

    ' Buscar la imagen original
    On Error Resume Next
    Set imgOriginal = Me.Shapes(imgNombre)
    On Error GoTo 0

    If imgOriginal Is Nothing Then
        MsgBox "No se encontró la imagen '" & imgNombre & "'.", vbExclamation
        Exit Sub
    End If

    ' Copiar la imagen y colocarla sobre la celda
    imgOriginal.Copy
    Me.Paste
    Set imgCopia = Me.Shapes(Me.Shapes.Count)

    With imgCopia
        .Top = celda.Top
        .Left = celda.Left
        .Height = celda.Height
        .Width = celda.Width
        .LockAspectRatio = msoFalse
        .Name = nombreImagenCelda
    End With
End Sub

Por Maku, · publicado hace 8 horas 8 hr
Libro de excel lento

Creo que he encontrado la solución dando nombre a las imágenes y haciendo una macro con la que me pone encima esa imagen, dependiendo del número.
No, no me funciona porque no me cambia las imágenes al cambiar el número

Por Maku, · publicado hace 10 horas 10 hr
Libro de excel lento

He comprobado que al eliminar ese listado de nombres, con sus correspondientes fórmulas (aunque INDICE y COINCIDIR no creo que son volátiles), el archivo vuelve a la normalidad. No pierde apenas peso en Kb pero si gana ligereza.
Me pregunto si hay otro modo de hacerlo o simplemente me tengo que dar por vencida.

La idea es que dependiendo del número que consigo en la celda me cambia a una imagen u otra. El recuadro tapa la celda con el número.
¿Alguna idea?

Por Maku, · publicado hace 13 horas 13 hr
Libro de excel lento

Hola Maku,
Parece que tu problema se encuentra en las fórmulas. Un exceso de fórmulas en la hoja (sobre todo si usas funciones volátiles) puede ralentizar mucho el archivo.
Presta atención también a las macros, que no realicen acciones que no tengan que hacer.
También puedes eliminar las filas y columnas que no uses.
Estas acciones pueden mejorar mucho tu archivo.
Espero que se solucione. Si no es así, aquí estamos para ayudarte.

Por Sergio, · publicado hace 16 horas 16 hr

No hay usuarios registrado para ver esta página.

Conéctate a Ayuda Excel

Como ordenar información con coincidencia parcial?

Featured Replies

Archivado

Archivos

Cómo conservar la función AHORA()

Agenda v01

Gráficos de aranceles con colores difusos

Cómo crear hipervínculos inteligentes con fórmulas

Cambios en el Control Horario

Estadísticas de descargas

Mensajes

Error en Macro

Libro de excel lento

Libro de excel lento

Libro de excel lento

Libro de excel lento

Visualizado recientemente 0

Account

Navigation

Buscar