Excel - Encontrar el ultimo valor de un registro

 
Vista:
Imágen de perfil de Jorge

Encontrar el ultimo valor de un registro

Publicado por Jorge (37 intervenciones) el 11/08/2021 02:01:35
Buenas noches nuevamente amigos, una problemática que presento a continuación, tengo un formulario donde agrego en un campo el "sustanciador" y en otro el "cargo_sustanciador". Lo que quiero lograr es que al escribir un sustanciador, me busque en mi base de datos el último cargo que se le registro a ese sustanciador y se agregue en el campo "cargo_sustanciador". Lo estaba intentando con "Lookup" pero no obtengo resultados.

help_1
help_2

Intente de varias maneras utilizando el código a continuación pero no logre el resultado deseado:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub sustanciador_Enter()
Dim sd As New Collection
Dim celda As Range
Dim dato, r As String, uf(0 To 1) As Long, conta As Integer
 
conta = 0
sustanciador.Clear
 
Sheets("data").Select
Range("V2").Select
uf(0) = Range("V" & Rows.Count).End(xlUp).Row
uf(1) = Range("W" & Rows.Count).End(xlUp).Row
r = "V2:V" & uf(0)
 
For Each celda In Range(r)
    sd.Add celda.Value, CStr(celda.Value)
Next celda
 
For Each dato In sd
    sustanciador.AddItem dato
    cargo_sustanciador = WorksheetFunction.Lookup(sustanciador, uf(0), uf(1))
    conta = conta + 1
Next dato
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Encontrar el ultimo valor de un registro

Publicado por Antoni Masana (1886 intervenciones) el 11/08/2021 15:01:37
Mira si esto te funciona

1
2
3
4
5
6
7
8
9
10
11
Private Sub sustanciador_Enter()
    Dim Fila As Long
 
    With Sheets("data")
        Fila = 2
        While .Cells(Fila, "V") <> ""
            If .Cells(Fila, "V") = Sustanciador Then cargo_sustanciador = .Cells(Fila, "W")
            Fila = Fila + 1
        Wend
    End With
End Sub

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Jorge

Encontrar el ultimo valor de un registro

Publicado por Jorge (37 intervenciones) el 11/08/2021 19:37:32
Muchas gracias Antoni Masana funciono perfecto. Solo que el evento lo cambie a "Change" para que tuviera el resultado inmediato eres un crack
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar