Buscar ultima coincidencia

Hola
Espero puedas ayudarme
Tengo una base de datos en la que se repiten entradas para cada numero y lo que quiero es que al digitar el numero me encuentre la ultima aparición de el
Ej
Si tengo
colum a       colum b
1 a
1 b
1 c
2 a
2 b
Cuando coloque 1 me encuentre c
Y cuando coloque 2 b que son las ultimas entradas
Espero puedas ayudarme
1

1 respuesta

Respuesta
1
Prueba a incluir el siguiente código en el editor de Visual Basic en la página que se trate:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Integer
    ' Si no estás en la columna A no hacemos nada
    If Target.Column <> 1 Then Exit Sub
    For i = Target.Row - 1 To 1 Step -1
        If Cells(i, 1).Text = Target.Text Then
            Cells(Target.Row, 2) = Cells(i, 2)
            Exit Sub
        End If
    Next i
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas