Restas con validación de datos al ejecutar una macro

Hola tengo un hoja1 el cual tengo 4 columnas

Col B: cantidades

Col C: productos

Col D: precios

Entonces al llenar datos (números) en la col B de B1:B100 doy clic a un botón con el sig código:

Sub IR_FACTURAR()'' IR_FACTURAR Macro' FACTURAR'' Acceso directo: Ctrl+Mayús+SApplication.ScreenUpdating = False'ESTE IF DE ABAJO ES PARA LIMITAR A 30'If Range("K1") <= "30" And Range("H2") <= "30" ThenApplication.ScreenUpdating = False    Sheets("FACTURA").Select    Range("E9").Select    ActiveSheet.Unprotect password:="28021990"Application.ScreenUpdating = False    ActiveSheet.Range("$I$7:$I$586").AutoFilter Field:=1, Criteria1:=">0", _        Operator:=xlAnd        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _        , AllowFormattingCells:=True, AllowFormattingColumns:=True, _        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _        AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _        AllowUsingPivotTables:=True        Columns("C:C").Select        Application.ScreenUpdating = False    Selection.EntireColumn.Hidden = False    Columns("A:C").Select    Range("C1").Activate    Selection.EntireColumn.Hidden = False    Application.ScreenUpdating = FalseSheets("FACTURA").Select    Columns("J:K").Select    Selection.EntireColumn.Hidden = True    Range("B9").Select        ActiveSheet.Protect password:="28021990"        ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)")        Application.ScreenUpdating = False        'End IfEnd Sub

entonces necesito agregar una 4ta columna osea la E

Que llevara el titulo de existencia y debería funcionar que si en la columna A "cantidades" pongo 10 pero en existencia hay 5 este no me permita y en caso de poner la cantidad 4 y en existencia tengo 5 entonces al ejeuctar mi macro este me haga la resta en existencia..

Algo así como un inventario... Mi existencia la alimentaria desde otra hoja para que se vaya acumulando con =suma() osea que la columna E tendrá fórmula...

Gracias

Añade tu respuesta

Haz clic para o