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:
- Producto
- Cantidad y Precio unitario
- 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
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 Subsal u dos
