comobox codigo

01/10/2014 - 09:58 por pabloarg | Informe spam
¡ Hola !que tal??
tengo una duda con un combobox. hace una semana cree un cuasi sistema de facturacion donde ingresaba los productos a traves de un formulario que contaba de los siguientes texbox:
codigo;detalle;cantidad;precio;descuento
y los comandbutton cargar (crea una fila nueva y copia los valores de los textbox en un modelo de factura) y borrar deja empty todos los textbox
el problema que tengo es que al no tener mucho conocimiento de lenguaje de programacion solo pude hacer que ingresando el codigo de producto se me complete el textbox detalle y precio, y yo complete cantidad y descuento si lo hubiese. hoy solo tengo 20 productos cargados y es improductivo tener que buscar en un papel el codigo de cada producto para saber que numero ingresar.
mi idea es hacer un combobox donde yo pueda buscar el detalle del producto (xejemplo; agua mineral 1000cc) y se me completen los textbox de codigo y precio
este es lo que tengo actual mente (ingresando por codigo de producto)

Private Sub codigo_AfterUpdate()
Sheets("productos").Select
filalibre = Range("a2").End(xlDown).Offset(1, 0).Row
Rem la variable fila libre guarda el numero de la primer celda vacia
control = 0
rem codigo es el name del textbox
dato = codigo
rango = "a2:a" & filalibre
Set midato = ActiveSheet.Range(rango).Find(dato, LookIn:=xlValues, LookAt:=xlWhole)

If (midato) Is Nothing Then
Rem no encontro nada
MsgBox "No existe codigo de producto"
Else
Rem encontro dato
ubica = midato.Address(False, False)
detalle.Value = Range(ubica).Offset(0, 1).Value
precio.Value = Range(ubica).Offset(0, 2).Value
control = 1

End If
Sheets("modelo de factura").Select

End Sub

la estructura de la hoja producto es:
codigo detalle precio

alguien me puede ayudar??
desde ya muchas gracias

Preguntas similare

Leer las respuestas

Search Busqueda sugerida