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