Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado

Userform aplicado para extraer productos de una lista

| 4 Comments

Un  Userform es un formulario diseñado con formato y estructura estándar que facilita la captura, la organización y la edición de la información.

Este userform tiene como finalidad ayudar al usuario a extraer datos de una gran base de datos y poder registrarlo en una nueva tabla. Así se logra una reducción en el tiempo de búsqueda del usuario y el tiempo de registro de datos.

En este caso se cuenta con una lista de artículos que cuenta con los siguientes datos: número de artículo, descripción, precio y stock. En base a esta base de datos se ejecutará la macro. Se crea un botón el cual hará aparecer el formulario.

formu

Este formulario nos ayudará a obtener los datos de la lista de productos. Se hará click en el botón nuevo. Este formulario cuenta con una lista desplegable con la cual el usuario puede seleccionar el artículo deseado. Luego, al hacer click en el botón transferir automáticamente se registrarán los datos del productos a una nueva lista.

userform

(Para mayor visualización de la imagen, hacer click en la misma)

En el archivo adjunto, se detalla la programación.

Extraer un producto de una lista

 

Elaborado por Rosalia Gomez Alvarez

4 Comments

  1. tengo una aplicacion en vba que no eh podido solucionar y necesito ayuda;

    tengo dos fechas una inicial y otra final como esta por ejemplo

    9/01/2014 seria inicio y 9/30/2014 seria final, lo que deseo es obtener todas las fecha que estan dentro de ese rango de fechas omitiendo el sabado y domingo y ponerlos en un listBox, tengo un ciclo que me saca todas las fechas osea 30 fechas y no es lo que quiero, quisiera que me ayudara le dejare aqui el ciclo que estoy utilizando, gracias de antemano.

    Private Sub CommandButton1_Click()

    Dim x As Date
    For x = DateValue(TextBox1.Text) To DateValue(TextBox2)
    ListBox1.AddItem (x)
    Next
    End Sub
    ____________________________________
    Salida de esto:
    9/01/2014
    9/02/2014
    9/03/2014
    9/04/2014
    9/05/2014
    9/06/2014
    9/07/2014
    asta el
    9/30/2014
    —————————————-
    La salida que busco es:
    9/01/2014
    9/02/2014
    9/03/2014
    9/05/2014
    9/08/2014
    9/09/2014
    9/10/2014
    9/11/2014
    9/12/2014
    9/15/2014
    9/16/2014
    9/17/2014
    9/18/2014
    9/19/2014
    9/22/2014
    9/23/2014
    9/24/2014
    9/25/2014
    9/26/2014
    9/29/2014
    9/30/2014

    espero que me halla explicado bien

    • Hola Manuel, necesitas usar la funcion weekday:
      For x = DateValue(TextBox1.Text) To DateValue(TextBox2)
      If WorksheetFunction.Weekday(x,1)=1 or WorksheetFunction.Weekday(x,1)=7 _ then
      Else
      ListBox1.AddItem (x)
      End if
      Next

  2. hola necesito hacer un programa que me saque de una lista todo lo que tengo en 0 y me lo arroje en un listBox.
    por ejemplo tengo esto :
    tuercas 12
    tornillos 0
    pijas 0
    desarmadores 2

    por ejemplo de esa lista que lo que esta en 0 me lo arroje en un listBox

    ojala puedas ayudarme…

  3. Hola buenas tardes necesito ayuda; tengo un VBA y necesito su ayuda; quiero sacar la cantidad de productos que se vendió por fechas fecha inicio y fecha final y que al seleccionar el producto me arroje la cantidad entre esas fechas

Deja un comentario

Required fields are marked *.


Excel Avanzado located at , Lima, Perú . Reviewed by usuarios rated: 4.7 / 5