Buscar el ultimo registro vba
¿Hola Dan como estas?
Private Sub Combobox_equipo_Change()
On Error Resume Next
Set h = Sheets("Base de datos")
Set b = h.Columns("A").Find(Combobox_equipo, LookIn:=xlValues, lookat:=xlWhole)
If Not b Is Nothing Then
Lb_patente = h.Cells(b.Row, "B")
Lb_año = h.Cells(b.Row, "C")
Lb_marca = h.Cells(b.Row, "D")
Lb_modelo = h.Cells(b.Row, "E")
Lb_motor = h.Cells(b.Row, "F")
ComboBox_Neumaticos.Value = h.Cells(b.Row, "G")
ComboBox_filtro_aceite.Value = h.Cells(b.Row, "I")
ComboBox_filtro_comb.Value = h.Cells(b.Row, "J")
ComboBox_filtro_aire.Value = h.Cells(b.Row, "K")
ComboBox_correas.Value = h.Cells(b.Row, "M")
End If
End SubLe quería pedir de su ayuda.. Si es que puede.
Resulta que busco de un combobox un código ejemplo vh-10 y me aparecen los datos relacionados con ese código en textbox y labels, pero me gustaría que al pinchar de un OptionButton me busque el primer registro relacionado con el código buscado en el combobox y si pincho en el otro OptionButton me aparezca el ultimo registro relacionado con el código buscado en el combobox . ¿se podrá?
2 respuestas
Respuesta de Dante Amor
3
[H o l a
Te regreso el código actualizado:
Private Sub Combobox_equipo_Change()
On Error Resume Next
Set h = Sheets("Base de datos")
If OptionButton1.Value = True Then
registro = xlNext
Else
registro = xlPrevious
End If
Set b = h.Columns("A").Find(Combobox_equipo, LookIn:=xlValues, lookat:=xlWhole, SearchDirection:=registro)
If Not b Is Nothing Then
Lb_patente = h.Cells(b.Row, "B")
Lb_año = h.Cells(b.Row, "C")
Lb_marca = h.Cells(b.Row, "D")
Lb_modelo = h.Cells(b.Row, "E")
Lb_motor = h.Cells(b.Row, "F")
ComboBox_Neumaticos.Value = h.Cells(b.Row, "G")
ComboBox_filtro_aceite.Value = h.Cells(b.Row, "I")
ComboBox_filtro_comb.Value = h.Cells(b.Row, "J")
ComboBox_filtro_aire.Value = h.Cells(b.Row, "K")
ComboBox_correas.Value = h.Cells(b.Row, "M")
End If
End Sub[sal u dos
Respuesta de Programar Excel
1
