Proyecto Lista de Pedido "USERFORM e Incluir datos en celdas"

Bueno le explico con más detenimiento, soy contador publico y trabajo con relaciones de productos y clientes ahora bien, Mi proyecto consta de realizar una lista de pedido según los productos con su presentación y código además los clientes y domicilio.

Ya tenia mi proyecto en un 100% pero buscando la comodidad acudí a la página de TODOEXPERTOS sección excel lo cual me han ayudado mucho los expertos en el área y he creado botones donde uso el formulario para incluir los datos. Ya termine la hoja de Reg Productos y proveedores pero quiero otra comodidad y es en la hoja de Pedidos. En esta hoja es donde se detalla 20 items el cual lo tengo con la validación de datos "lista" ahora bien, quiero ahora usar el userform al incluir los productos y clientes que tengo la hoja uno "reg productos y proveedores" a la hoja de "Pedidos" le hago muestro los capture:

Hoja reg Clientes y proveedores:

Hoja de Pedido

Demostracion de Incluir datos en "reg Clientes y proveedores"

Demostracion de incluir CLientes

Demostración de Hoja de pedido con lista desplegable como validación de datos productos

Demostracion de hoja de pedido con lista desplegable validacion de datos clientes en las celdas verdes tienen la formula =SI(B9<>"";BUSCARV(B9;tablaproducto;2;0);"") "PARA SU CONOCIMIENTO"

Ahora que tiene idea de lo que tengo pues mi intención es crear la userform para incluir datos como lo son:

  1. Producto
  2. Cantidad y Precio unitario
  3. Cliente

pero obligatoriamente necesito que la userform contenga las ComboBox de los productos y la ComboBox de los clientes ya que tengo todo programado automáticamente al introducir los datos datos.

Disculpe lo extenso

¿Si me di a entender profesor?

1 Respuesta

Respuesta
2

H   o  l a:

Bastante clara la explicación, pero supongo que ya tienes diseñado algún formulario para la captura, envíame tu archivo de excel con lo que tengas de formulario y le adapto el código para capturar y enviar la captura a la hoja.

Mi correo [email protected]

En el asunto del correo escribe tu nombre de usuario “Luis Alfredo” y el título de esta pregunta.

¡Gracias! 

ya puede ver su correo buscar asunto Luis Alfredo - Proyecto Lista de Pedido "USERFORM e Incluir datos en celdas"

Te anexo el código para cargar los combos y para pasar los datos a la hoja

Dim h1, h2
'
Private Sub CommandButton1_Click()
'Por.Dante Amor
    'VALIDACIONES
    If ComboBox1.Value = "" Or ComboBox1.ListIndex = -1 Then
        MsgBox "Falta el producto"
        Exit Sub
    End If
    If ComboBox2.Value = "" Or ComboBox2.ListIndex = -1 Then
        MsgBox "Falta el cliente"
        Exit Sub
    End If
    If TextBox1.Value = "" Or TextBox1.Value < 1 Then
        MsgBox "Falta la cantidad"
        Exit Sub
    End If
    If TextBox2.Value = "" Or TextBox2.Value < 1 Then
        MsgBox "Falta el precio"
        Exit Sub
    End If
    '
    fila = 9
    Do While h2.Cells(fila, "B") <> ""
        fila = fila + 1
    Loop
    If fila = 29 Then
        h2.Rows(29).Insert
    End If
    h2.Cells(fila, "B") = ComboBox1.Value
    h2.Cells(fila, "E") = Val(TextBox1.Value)
    h2.Cells(fila, "F") = Val(TextBox2.Value)
    h2.Cells(fila, "H") = ComboBox2.Value
    MsgBox "Registro agregado"
    Call CommandButton2_Click   'borrar
End Sub
'
Private Sub UserForm_Initialize()
'Por.Dante Amor
    Set h1 = Sheets("Reg Clientes y Proveedores")
    Set h2 = Sheets("Pedidos")
    '
    For i = 11 To h1.Range("B" & Rows.Count).End(xlUp).Row
        ComboBox1.AddItem h1.Cells(i, "B")
    Next
    For i = 11 To h1.Range("G" & Rows.Count).End(xlUp).Row
        ComboBox2.AddItem h1.Cells(i, "G")
    Next
End Sub
'
Private Sub CommandButton2_Click()
'BORRA EL CONTENIDO'
    ComboBox1 = ""
    ComboBox2 = ""
    TextBox1 = Empty
    TextBox2 = Empty
End Sub

sal u dos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas