¿Cómo puedo crear un programa en excel para buscar información de una base de datos?

Tengo una base de datos con los gastos de una empresa y tengo otra con los proveedores ambas en excel. En la de los gastos debo ingresar todos los datos de cada proveedor y además el costo de lo que se compró. Para agilizar esta tarea me di cuenta que haciendo una programa que busque en la base de datos de proveedores la información que necesito de ese proveedor en específico y que traiga esa información a la base de datos de gastos podría ahorrarme mucho tiempo. Además de vez en cuando necesitaré agregar proveedores a la base de datos. ¿Pueden ayudarme a crear este programa dándome cualquier información que conozcan? Gracias

P.D: No les pido que hagan el programa por mí, pero si que me expliquen más o menos cómo lo harían ustedes.

2 respuestas

Respuesta
1
Respuesta

Pueder cre un useform que te permita agregar los datos de los provedores

Y uno que te haga la busquda. Danos mas informacion como los campos que quiere llenar y las columna donde estan

Los datos son estos:

Nombre    NIT    DIRECCIÓN    TELÉFONO

Tengo una base de datos con esa información de cada proveedor. En lo que estaba pensando es que al insertar un NIT, aparezcan en las celdas correspondientes los demás datos (nombre, dirección y teléfono).

Adicionalmente que si es un NIT que no esté en la base de datos de proveedores yo escriba toda la información y él la guarde en esa base de datos para poder usar ese "autorrellenado" cuando el NIT vuelva a ingresarse.

La verdad tengo muy poca experiencia con programas en excel... Es muy complicado? Estoy pidiendo mucho? jaja.

Gracias por el interés en mi pregunta.

Para el reguistro esta es la macro

En el boton del userform ira este codigo

Private Sub CommandButton1_Click()

ActiveSheet.Cells(8, 1).Select
Selection.EntireRow.Insert
ActiveSheet.Cells(2, 1) = TextBox1
ActiveSheet.Cells(2, 2) = TextBox2
ActiveSheet.Cells(2, 3) = TextBox3
ActiveSheet.Cells(2, 4) = TextBox4
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox1.SetFocus

end sub

El userform usarias 4 label, 4 textbox y 2 botones

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas