Sumar en una misma celda por los lados difrentes.

jhonleonardo · el 17 de septiembre

Sumar en una misma celda por 2 lados difrentes.

BUENAS NOCHES

Estoy haciendo un stock de mercancia el ingreso se hace de dos formas una por codigo de barras y la otra manual

colocando el producto y la cantidad a ingresar , resulta que cuando ingreso los productos en forma manual el me modifica

el dato total del producto es decir si hay 10 pantalones e ingreso 15 el me modifica el dato de 10 a 25 , lo suma automaticamente , lo que necesito es que sume tambien los productos que se ingresas con el lector laser osea si se escanea

100 productos los vaya sumando automaticamente a la misma celda donde esta el total , no se puede utilizar formulas ya que cuando el ingreso manual se hace el borra todo y coloca el total , la idea es sumar cada celda por criterio aotomaticamente.

subo el archivo donde esta la caputura por codigo de barras

en la 2 hoja esta el saldo donde quiero que sume cada ingreso que se hace con el escanner

de antemano muchas gracias a la persona que me pueda ayudar.

Copia de Código de barras II.xls

emilio563 · el 18 de septiembre

Hola!

La verdad es que no se demasiado de programación, pero hace unas semanas toldeman me ayudó con el aporte que te voy a colgar

Mira a ver si te lo puedes adaptar porque creo que el código hace prácticamente lo que tu pides!

cuando abres el userform introduces un producto que se guardará en la base de datos stock y las siguientes introducciones se irán sumando a la actual en la casilla cantidad.

Un Saludo espero que tengas suerte!

sumareferenciasnuevas.zip

jhonleonardo · el 18 de septiembre

gracias emilio esa es una forma que tengo para sumar , ya que los datis sin ingresado a un texbox y los suma automaticamente lo que necesito es cuendo los datos estan en lahoja y son capturados con el escaner de codigo de barras se sumen automaticamente a los totales que estan.

Toldeman · el 18 de septiembre

Hola.

No lo tengo muy claro, dices que capturas desde el scarner directamente en la hoja1 los codigos, de ser asi ejecuta este codigo desde la hoja1, suponiendo que las capturas las realizas apartir de G15.

Sub n()Dim ul As Longul = Hoja1.Range("G" & Rows.Count).End(xlUp).Rowul1 = Hoja2.Range("A" & Rows.Count).End(xlUp).Rowx = Range("G" & ul).Offset(, 1)y = Range("G" & ul)Hoja2.SelectRange("A2:A" & ul1).Find(what:=y, lookat:=1).SelectActiveCell.Offset(, 2) = ActiveCell.Offset(, 2) + xEnd Sub

Un saludo a los dos.

jhonleonardo · el 18 de septiembre

gracias

lo soluciones con una macro hay la dejo , igual tambien dejo el archivo modificado para la persona que lo necesite. tengo una duda ya que me esta sumando un producto menos cada vez que hago el proceso estoy mirando donde es el error .

como hago para que me genere una ventana o un aviso con los productos que se ingresaron y asi comprobar que si sea la cantidad que se ingreso . como una alerta que diga , usted ingreso de codigo tal tantos productos y asi con cada uno?


Sub INVENTA()
'
' INVENTA Macro
'

'
    Sheets("Producto").Select
    Range("A1:A8").Select
    Selection.Copy
    Sheets("INVENTARIO").Select
    Range("D17").Select
    ActiveSheet.Paste
    Range("E17").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "CANTIDAD"
    Range("E18").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(C[-4],""7707318141908"",C[-3])"
    Range("E18").Select
    Selection.Copy
    Range("E18:E24").Select
    ActiveSheet.Paste
    Range("E19").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=SUMIF(C[-4],""7707318140680"",C[-3])"
    Range("E20").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(C[-4],""7707318141694"",C[-3])"
    Range("E21").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(C[-4],""7707318141687"",C[-3])"
    Range("E22").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(C[-4],""7707318141915"",C[-3])"
    Range("E23").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(C[-4],""7707318141670"",C[-3])"
    Range("E24").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(C[-4],""7707318140697"",C[-3])"

    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    Range("A2:B2").Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
    Range("A2:B2").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D15").Select
    Sheets("INVENTARIO").Select
    Range("E18:E24").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Saldo").Select
    Range("E2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=RC[-1]+RC[1]"
    Range("D2").Select
    Selection.AutoFill Destination:=Range("D2:D8")
    Range("D2:D8").Select
    Range("D2:D8").Select
    Selection.Copy
    Range("C2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D2:E8").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Sheets("INVENTARIO").Select
    Range("D17:E24").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-18
    Range("A2:B2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-51
    Range("D1").Select
End Sub



[/php]