La siguiente imagen contiene el formulario que usaremos para resolver este problema.
En ella se ha usado:
Un cuadro combinado: CboProductos: Para contener la lista de los productos
Cinco cuadros de texto: TxtProducto, TxtPrecio, TxtCantidad, TxtMonto y TxtFecha.
El primero contiene el elemento seleccionado y el precio que le corresponde. Se ingresa la cantidad a vender y en TxtMonto se obtiene el producto de precio por cantidad. El cuadro de texto TxtFecha contiene la fecha del día. El formulario se llama FrmVentas.
Para activar este formulario desde una hoja del Excel, se usa un botón de comando el cual está asignado a una macro contenida en el módulo 1 que contiene el procedimiento IngresoVentas.
A continuación presentamos el código del procedimiento y el código de cada uno de los elementos del formulario.
Sub IngresoVentas()
Workbooks("Ejemplo 3.xlsm").Activate
Hoja = Trim(InputBox("Nombre de hoja. Si va a crear, presione <Intro>"))
If Len(Hoja) > 0 Then
Sheets(Hoja).Activate
Else
Sheets.Add
ActiveSheet.Name = "Tempo"
Cells(1, 26) = 1
Cells(1, 1) = "Producto"
Cells(1, 2) = "Precio"
Cells(1, 3) = "Cantidad"
Cells(1, 4) = "Monto"
Cells(1, 5) = "Fecha"
End If
FrmVentas.Show
End Sub
© Ilmer Cóndor Espinoza. Todos los derechos reservados.
Prohibida la reproducción por cualquier medio.
Publicación web autorizada a aulaClic S.L.
Cursos Informática Gratuitos Síguenos en: Facebook Sobre aulaClic Política de Cookies