Macro para ordenar filas por palabra dentro de una cadena
Solicito su apoyo por favor para un código de VBA para la creación de una macro que ordene filas que contengan una palabra en específica ya sea al inicio o al final de una cadena y las mantenga en la parte superior, con 3 criterios. Intenté usando una macros que realiza el orden personalizado pero lo hace por orden alfabético y no por palabra dentro de la cadena.
1 Respuesta
Dante muchas gracias por responder, comentarte que te comparto las imágenes al correo ya que no me permite pegar imágenes o tal ves no encuentro la opción.
Para subir una foto o una imagen, tienes que guardar la imagen con formato jpg
Ya que tienes tu imagen en un archivo, presiona el icono de añadir imagen:
En la siguiente ventana que te aparece:
Presiona el botón Subir imagen. Selecciona el archivo con tu imagen y presiona Abrir.
O envíame tu archivo de excel con ejemplos.
En el asunto del correo pon tu nombre de usuario: "Antony Estrada Delgado"
Te anexo la macro
Sub Ordenar_Colores()
' Por Dante Amor
u = Range("B" & Rows.Count).End(xlUp).Row
'
Range("D1") = "COLOR"
colores = Array("AMARILL", "AZUL", "FRE")
For i = 2 To u
For j = LBound(colores) To UBound(colores)
If Cells(i, "B").Value Like "*" & colores(j) & "*" Then
Cells(i, "D").Value = colores(j)
Exit For
End If
Next
Next
'
With ActiveSheet.Sort
.SortFields.Clear
.SortFields.Add Key:=Range("D2:D" & u), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange Range("A1:D" & u)
.Header = xlYes: .MatchCase = False: .Orientation = xlTopToBottom
.SortMethod = xlPinYin: .Apply
End With
MsgBox "Fin"
End Sub.
.
