Como guardar en Stock lo datos de un formulario(va dirigida a Dante Amor)
Buenas noches Dante, por favor necesitaría que una ves realizado la carga en el formulario que estos mismo se registren en el stock, te pido de ser factible que al guardar los datos lo que son números o fechas se guarden en el mismo formato ya que el formulario traslada texto.- Puede ser?
Saludos
1 Respuesta
Respuesta de Dante Amor
2
Te anexo la macro completa:
Private Sub CommandButton3_Click()
'Por.Dante Amor
'Salidas
'
If ListBox1.ListCount = 0 Then
MsgBox "No ha seleccionado artículos", vbExclamation
Exit Sub
End If
'actualiza nota de pedido
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
'actualiza hoja salidas
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")
'actualiza stock
Set b = Hoja6.Columns("A").Find(Val(Hoja5.Cells(i, "A")))
If Not b Is Nothing Then
Hoja6.Cells(b.Row, "B") = Hoja6.Cells(b.Row, "B") - Hoja5.Cells(i, "C")
End If
Next
'
Hoja5.Range("A13:C" & Hoja5.Range("A" & Rows.Count).End(xlUp).Row).ClearContents
MsgBox "Salida registrada", vbExclamation
End SubLa fecha se pone con la función Date, entonces no tiene el problema de ser texto.
Hoja4.Cells(u, "B") = Date
