Tengo una macro que resalta el texto de dos listas según similitudes y diferencias, a continuación la comparto:
Sub highlight()
Dim xRg1 As Range
Dim xRg2 As Range
Dim xTxt As String
Dim xCell1 As Range
Dim xCell2 As Range
Dim I As Long
Dim J As Integer
Dim xLen As Integer
Dim xDiffs As Boolean
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
lOne:
Set xRg1 = Application.InputBox("Range A:", "ML1", xTxt, , , , , 8)
If xRg1 Is Nothing Then Exit Sub
If xRg1.Columns.Count > 1 Or xRg1.Areas.Count > 1 Then
MsgBox "Multiple ranges or columns have been selected ", vbInformation, "ML1"
GoTo lOne
End If
lTwo:
Set xRg2 = Application.InputBox("Range B:", "ML1", "", , , , , 8)
If xRg2 Is Nothing Then Exit Sub
If xRg2.Columns.Count > 1 Or xRg2.Areas.Count > 1 Then
MsgBox "Multiple ranges or columns have been selected ", vbInformation, "ML1"
GoTo lTwo
End If
If xRg1.CountLarge <> xRg2.CountLarge Then
MsgBox "Two selected ranges must have the same numbers of cells ", vbInformation, "ML1"
GoTo lTwo
End If
xDiffs = (MsgBox("Click Yes to highlight similarities, click No to highlight differences ", vbYesNo + vbQuestion, "ML1") = vbNo)
Application.ScreenUpdating = False
xRg2.Font.ColorIndex = xlAutomatic
For I = 1 To xRg1.Count
Set xCell1 = xRg1.Cells(I)
Set xCell2 = xRg2.Cells(I)
If xCell1.Value2 = xCell2.Value2 Then
If Not xDiffs Then xCell2.Font.Color = vbRed
Else
xLen = Len(xCell1.Value2)
For J = 1 To xLen
If Not xCell1.Characters(J, 1).Text = xCell2.Characters(J, 1).Text Then Exit For
Next J
If Not xDiffs Then
If J <= Len(xCell2.Value2) And J > 1 Then
xCell2.Characters(1, J - 1).Font.Color = vbRed
End If
Else
If J <= Len(xCell2.Value2) Then
xCell2.Characters(J, Len(xCell2.Value2) - J + 1).Font.Color = vbRed
End If
End If
End If
Next
Application.ScreenUpdating = True
End Sub
Estoy pidiendo su ayuda para que en la comparación no tenga en cuenta tildes, mayúsculas o minúsculas; esta macro compara dos listas (Lista - BD) según la celda correspondiente pero lo que quiero es que compare el primer valor de la hoja Lista con todos los valores de la hoja BD y así sucesivamente buscando similitudes y según esto devuelva el valor Código en la hoja Lista en el rango correspondiente A2:A.
Ejemplo,
Este valor dispuesto en la hoja Lista en la celda B2 lo debe comparar con todo el rango B2:B de la hoja BD y así sucesivamente con todos los valores de la columna Descripción dispuestos en la hoja Lista.
En el caso de que encuentre similitudes concretas en el valor comparado del rango dispuesto en la hoja Lista tales como:
Lista BD devolver el valor del Código de la hoja BD a la hoja Lista.
Les dejo el archivo ejemplo.xlsx agradeciendo enormemente la ayuda que me puedan brindar en este caso.
https://drive.google.com/file/d/1YQqFLDT9aes4Avze-nzASlPZjeMOnkbb/view?usp=sharing
Nota: Vale aclarar que el texto de la lista de la hoja BD usualmente esta formulado.
Saludos.
string
en la misma posición? o ¿Buscar dentro de todas las palabras de losstrings
y marcar las palabras que son iguales sin importar la posición?