Avisar si excel no encuentra algún dato.
Bueno, llego el final...!
Ahora solo necesito que funcione bien el botón de las bajas.
Es decir, que cuando un articulo llega a tener stock 0 directamente lo borre, pero sin eliminar la fila, sino poniendo los campos A, B Y C en 0.
Y la frutilla del postre, si no encuentra el articulo que se quiere bajar, que presente una cuadro advirtiéndolo y vuelva a posicionarse en B1.
Ahora solo necesito que funcione bien el botón de las bajas.
Es decir, que cuando un articulo llega a tener stock 0 directamente lo borre, pero sin eliminar la fila, sino poniendo los campos A, B Y C en 0.
Y la frutilla del postre, si no encuentra el articulo que se quiere bajar, que presente una cuadro advirtiéndolo y vuelva a posicionarse en B1.
1 Respuesta
Respuesta de kgb_elantro
1
Sub Boton_Resta_Haga_clic_en()
paso = 0
Range("B1").Select
If Range("b1").Value = "" Then
MsgBox ("Debe digitar un codigo")
Else
codigo = Range("B1").Value
Range("A10").Select
While ActiveCell.Value <> "STOCK SATURADO"
If ActiveCell.Value = codigo Then
paso = 1
ActiveCell.Offset(0, 2).Select
ActiveCell.Value = ActiveCell.Value + 1
ActiveCell.Offset(0, -2).Range("A1").Select
If Range("a8").Value = 0 Then
ActiveCell.Value = 0
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = 0
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = 0
ActiveCell.Offset(0, -2).Select
End If
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Wend
If paso = 0 Then
MsgBox ("Producto no encontrado")
End If
Range("B1").Select
ActiveWorkbook.Save
End If
End Sub
paso = 0
Range("B1").Select
If Range("b1").Value = "" Then
MsgBox ("Debe digitar un codigo")
Else
codigo = Range("B1").Value
Range("A10").Select
While ActiveCell.Value <> "STOCK SATURADO"
If ActiveCell.Value = codigo Then
paso = 1
ActiveCell.Offset(0, 2).Select
ActiveCell.Value = ActiveCell.Value + 1
ActiveCell.Offset(0, -2).Range("A1").Select
If Range("a8").Value = 0 Then
ActiveCell.Value = 0
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = 0
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = 0
ActiveCell.Offset(0, -2).Select
End If
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Wend
If paso = 0 Then
MsgBox ("Producto no encontrado")
End If
Range("B1").Select
ActiveWorkbook.Save
End If
End Sub
Algo no funciona. Añadí el código "5" a la lista, ingresé 2 unidades, al momento de borrarlo se vuelve loca.
Ahora sí. Perfecto. Creo que te tendré que dar una parte de los U$S500 que cobré por este trabajo que tanto NOS costó... jaajajja
Un abrazo y deberías ser el Nº1 de todoexpertos. Te añado a Favoritos.
Slds y gracias,
Víctor
Un abrazo y deberías ser el Nº1 de todoexpertos. Te añado a Favoritos.
Slds y gracias,
Víctor
