Mostrar datos relacionados en Formulario (Frame)

22/01/2007 - 15:31 por carlosalbertomorenotorres | Informe spam
Hola Saludos

Tengo pequeño problemita... resulta que tengo un libro de excel donde
llevo el control de las entradas y salidas de un almacen. Todos los
registros los estoy controlando por medio de formularios... Ahora bien
los que necesito es que al momento de introducir el codigo del articulo
que voy a registrar, en el formulario se muestre la descripcion de
dicho articulo... y el problema es que no se cómo hacerlo mediante
código VBA

Espero haber sido claro... de antemano gracias... cualquier ayuda será
bienvenida..

Gracias

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
23/01/2007 - 04:33 | Informe spam
hola, carlos !

... tengo un libro... donde llevo el control de las entradas y salidas de un almacen.
... los registros los estoy controlando por medio de formularios
... necesito... que al momento de introducir el codigo del articulo que voy a registrar
en el formulario se muestre la descripcion de dicho articulo
el problema es que no se como hacerlo mediante codigo VBA...



si suponemos que el codigo del articulo que vas a registrar lo escribes en el TextBox1 del formuario
y que tienes un listado de codigo y sus descripciones en la hoja activa [al mostrarse el formulario]
y que la columna de los codigos es la columna 'C' de esa hoja con tituos en la celda 'C7'
y que la descripcion de cada articulo la tienes en la columna 'F' -???-

un ejemplo de codigo [dependera de como y cuando necesites que se ejecute] -???-
-> sustituye el MsgBox por alguna instruccion que 'ponga' la descripcion en algun Label/TextBox/... del formulario ;)

Dim Celda As Range
On Error Resume Next
Set Celda = Range("c:c").Find(What:=TextBox1, After:=Range("c7"), LookAt:=xlWhole)
If Celda Is Nothing Then MsgBox TextBox1 & " NO se encuentra !!!": Exit Sub
MsgBox "El codigo " & TextBox1 & " tiene una descripcion de: " & Celda.Offset(, 3)
Set Celda = Nothing

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida