Sumar otro valos de la columna(x) al saldo

[jhonleonardo]

Buenas noches estoy trabajando en un proyecto de inventario para una frabica , la idea es caputurar la informacion

con codigo de barras y se actualice el saldo, tambien tiene una captura manual , y una salida , el problema es el siguiente

entradas de informacion

entrada manual = userform2

entrada pistola laser = userform 30 (hoja inventario)

salida

userform 33

en este momento las entradas y las salidad (manual) las actualiza directamente en la hoja saldo (columna c) , formule para que me contara todo los registros que son captados con las pistola laser (codigo de barras ) estos datos los coloque en la hoja saldo columna (E) , el problama es que inicialemente lo tenia formulados para que las dos entradas de material (manual y por pistola) me las sumara y las colocara en la casilla ©cantidad donde es el total pero apenas utilizo una forma el automaticmamente me actualiza ese dato y borra la formula , ya que en las userform esta formulado para que haga la resta o la suma segun sea el caso , lo que necesito es formular o adicionar a la formula la columna (e) que son los totales del materiar que se captura con codigo de barras.

las formulas estan en la userfrom15 boton aceptar. creo que seria adicionar la formula aca ya que son las entradas que se tienen.

el archivo SE LLAMA MI APLICACION esta protegido ,usuario y contraseña ADMIN

inventario.rar

inventario.rar

[tese1969]

Revisa las normas del foro...........en cuanto a lo de archivos protegidos....

Un saludo,

Tese

[jhonleonardo]

Revisa las normas del foro...........en cuanto a lo de archivos protegidos....

Un saludo,

Tese

No encontre nada que numreral es ?

[tese1969]

https://www.ayudaexcel.com/foro/utilizacion-funcionamiento-66/como-publicar-tema-foro-23611/

[jhonleonardo]

bueno ya lo solucione por un lado pero creo y debo de cambiar unas cosas ya que me esta duplicando un valor en la suma

para solucionarlo adicione lo de color rojo.

Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
Dim final As Integer
Dim actual As Integer
[color=#FF0000]Dim actual1 As Integer[/color]

For i = 1 To 1000
If Hoja2.Cells(i, 1) = "" Then
final = i
Exit For
End If
Next

Hoja2.Cells(final, 1) = UserForm2.ComboBox1
Hoja2.Cells(final, 2) = UserForm2.TextBox1
Hoja2.Cells(final, 3) = Replace(UserForm2.textbox2, ",", ".")
Hoja2.Cells(final, 4) = UserForm2.TextBox4
Hoja2.Cells(final, 5) = UserForm2.TextBox6
Hoja2.Cells(final, 6) = UserForm2.TextBox7



For j = 1 To 1000
If Hoja8.Cells(j, 1) = Hoja2.Cells(final, 1) Then
actual = Hoja8.Cells(j, 3)
[color=#FF0000]actual1 = Hoja8.Cells(j, 5)[/color]
final = UserForm2.textbox2 + actual + [color=#FF0000]actual1[/color]
Hoja8.Cells(j, 3) = final
Exit For
End If
Next

UserForm2.ComboBox1 = ""
UserForm2.TextBox1 = ""
UserForm2.textbox2 = ""
UserForm2.TextBox4 = ""
UserForm2.TextBox6 = ""
UserForm2.TextBox7 = ""
UserForm2.TextBox8 = ""


UserForm15.Hide
UserForm2.Hide

End Sub

Private Sub CommandButton2_Click()
UserForm15.Hide
End Sub

Private Sub UserForm_Click()

End Sub

[/code]