Encontrar el ultimo valor de un registro
Publicado por Jorge (39 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.
Intente de varias maneras utilizando el código a continuación pero no logre el resultado deseado:
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
0