Hola!
Tengo un código en un formulario que conseguí en este foro que muestra en
los textbox 7, 8, 9, 11, 12, 13, 14, 15 y 16, el último registro asociado a
un cliente seleccionado en el comboBox1.
El código funciona muy bien, pero si al seleccionar en el combobox1 un
cliente que no tiene registros en la hoja "Préstamos", el código me lleva al
depurador.
El combobox1 depende de la columna A de la hoja "Nombres"
El código esta basado en la hoja "Préstamos"
La hoja préstamos, muestra registros de los clientes.
Un cliente puede tener varios registros
El código es el siguiente:
Dim uFilaCliente
Private Sub ComboBox1_Change()
'Lleva el último registro del cliente al formulario
uFilaCliente = Evaluate("max(if(b2:b2000=""" & ComboBox1 &
""",row(b2:b2000)))")
TextBox7 = Range("c" & uFilaCliente - 0)
TextBox8 = Range("d" & uFilaCliente - 0)
TextBox9 = Range("e" & uFilaCliente - 0)
TextBox11 = Range("f" & uFilaCliente - 0)
TextBox12 = Range("g" & uFilaCliente - 0)
TextBox13 = Range("h" & uFilaCliente - 0)
TextBox14 = Range("i" & uFilaCliente - 0)
TextBox15 = Range("j" & uFilaCliente - 0)
TextBox16 = Range("k" & uFilaCliente - 0)
End Sub
Podrían ayudarme por favor?
Osiris Salazar
Leer las respuestas