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
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 Respuesta
Respuesta de santiagomf
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
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
