Buscar el ultimo registro una columna
Nuevamente solicito su ayuda
Estoy elaborando un formulario para crear nuevos productos lo que necesito es que cuando seleccione una categoría para crear un nuevo producto automáticamente busque el ultimo numero del registro y le sume +1 para que este sea el código del nuevo producto
Este es el formulario y la base de datos como se puede ver en la imagen la familia es la que asigna el código para el nuevo producto lo que necesito es cuando seleccione la familia ya sea "abarrotes, aves, bebida, cerdo" me busque el ultimo código de estas familias y le sume +1 para este sea nuevo código del producto y lo copie en el textbox de código.
Gracias por la atención prestada
Slds
Robert
1 respuesta
Te anexo el código
Private Sub ComboBox1_Change()
'Por.Dante Amor
Set h1 = Sheets("Recetas")
Set b = h1.Columns("E").Find(ComboBox1, lookat:=xlWhole, SearchDirection:=xlPrevious)
If Not b Is Nothing Then
num = h1.Cells(b.Row, "A") + 1
TextBox1 = num
End If
End SubCambia combobox1 y textbox1 por el nombre de tus controles.
