Macro que busque coincidencias en excel
Tengo un rango de números de 4 cifras "f1:v40" necesito una macro que me busque las coincidencias de los dos últimos numeros y me marque las casillas de cualquier color
1 respuesta
¡Gracias!
Adjunto macro solicitada. Al final dejo algunos tips. Ya te estoy enviando tu libro de muestra.
Sub coincidencias_2ultimas()
'x Elsamatilde
Dim n As Range
Dim lookup
'se toma el valor ubicado en Z1 (* ver nota al pie)
If [Z1] = "" Then Exit Sub
'se recorre el rango buscando las 2 últimas coincidencias
lookup = Right([Z1], 2)
'se limpia la col Y
Columns("Y:Y").Clear
x = 2
For Each n In Range("F1:Q40")
If Right(n, 2) = lookup Then
n.Interior.ColorIndex = 33 'color celeste
'se agrega el nro a la col Y
Range("Y" & x) = n
x = x + 1
Else 'opcional quitar color a los no coincidentes.
n.Interior.Color = xlNone
End If
Next n
MsgBox "Fin del proceso.", , "INFORMACIÓN"
End Sub
'* El dato en Z1 se puede obtener mediante estos métodos:
'1 - ingresando el dato directamente en la celda
'2 - solicitandolo mediante InputBox
'3 - concatenando las 4 col A:D de fila 1Sdos.
Elsa
¡Gracias! excelente
Si una respuesta 'excelente' recibe una valoración 'buena' ... ¿será qué hay que dejar una respuesta solo buena para merecer un excelente?
Sdos!
¡Gracias! que pena solo que en el momento que la mandaste estaba ocupado pero en el proximo trabajo la calificare excelente
Siempre estas a tiempo de modificarla.
Te envie mail para que confirmes el resto.
Sdos!
Oye la macro funciona muy bien pero las coincidencias del numero como el 04 no las registra que estará fallando y si no es mucha molestia para las coincidencias de las dos primeras cifras que hay que cambiarle muchas gracias
No tengo problemas con los 0, adjunto muestra.
Si tenés algún otro caso enviame muestra. Ya tomaré la otra consulta.
Sdos!
