Traspaso de datos de un formulario a otro Hoja (va dirigida a Dante Amor)
Buenas noches Dante, quisiera saber como los temas pendiente o tengo que realizar una nueva pregunta?
Queda pendiente:
1. Registrar la salida en la hoja salidas.
2. Descontar la cantidad de las existencias.
3. Imprimir la nota de venta.
1 Respuesta
Respuesta de Dante Amor
1
Te anexo el código para registrar la salida en la hoja salidas
Private Sub CommandButton3_Click()
'Por.Dante Amor
If ListBox1.ListCount = 0 Then
MsgBox "No ha seleccionado artículos", vbExclamation
Exit Sub
End If
f = ComboBox2.ListIndex + 2
Hoja5.[B5] = Hoja2.Cells(f, "A")
Hoja5.[B6] = Hoja2.Cells(f, "B")
Hoja5.[B7] = Hoja2.Cells(f, "C")
Hoja5.[B8] = Hoja2.Cells(f, "D")
Hoja5.[B9] = Hoja2.Cells(f, "E")
Hoja5.[B10] = Hoja2.Cells(f, "F")
For i = 13 To Hoja5.Range("A" & Rows.Count).End(xlUp).Row
u = Hoja4.Range("A" & Rows.Count).End(xlUp).Row + 1
Hoja4.Cells(u, "A") = Hoja5.Cells(i, "A")
Hoja4.Cells(u, "B") = Date
Hoja4.Cells(u, "C") = Hoja5.Range("B6")
Hoja4.Cells(u, "D") = Hoja5.Cells(i, "C")
Next
Hoja5.Range("A13:C" & Hoja5.Range("A" & Rows.Count).End(xlUp).Row).ClearContents
MsgBox "Salida registrada", vbExclamation
End SubSaludos.Dante Amor
