Modificación en el formulario de Entra (va dirigida a Dante Amor)
Buenas tardes Dante, te solicito por favor la modificación en el formulario de salida, lo que pretendo es que cuando debo ingresar mercadería al stock el buscador sea a través del "Código", si podes dejarle también que lo busquen por "Denominación" seria buenísimo.-
Te mando por correo el ultimo archivo
1 respuesta
Respuesta de Dante Amor
1
Esta es la macro para las entradas
Private Sub CommandButton1_Click()
'Por.Dante Amor
'registra en entradas
u = Hoja3.Range("A" & Rows.Count).End(xlUp).Row + 1
Hoja3.Cells(u, "A") = Val(ComboBox2)
Hoja3.Cells(u, "B") = Date
Hoja3.Cells(u, "C") = Val(TextBox4)
'registra en stock
Set b = Hoja6.Columns("A").Find(Val(ComboBox2))
If Not b Is Nothing Then
Hoja6.Cells(b.Row, "B") = Hoja6.Cells(b.Row, "B") + Val(TextBox4)
Else
u = Hoja6.Range("A" & Rows.Count).End(xlUp).Row + 1
Hoja6.Cells(u, "A") = Val(ComboBox2)
Hoja6.Cells(u, "B") = Val(TextBox4)
End If
MsgBox "Entrada realizada con éxito", vbInformation
ComboBox1 = ""
ComboBox2 = ""
TextBox4 = ""
ComboBox1.SetFocus
End Sub
