Añadir código inexistente
Bueno, ya que somos como amigos, te sigo molestando a cambio de puntos y estrellas...
Quisiera saber si hay alguna forma de que si ingreso algún código que en la lista no existe, me aparezca un mensaje preguntándome si lo quiero agregar a la misma.
Gracias desde ya.
Quisiera saber si hay alguna forma de que si ingreso algún código que en la lista no existe, me aparezca un mensaje preguntándome si lo quiero agregar a la misma.
Gracias desde ya.
1 Respuesta
Respuesta de kgb_elantro
1
Estaría seria la nueva macro para cuando agregues y si no existe el producto.
Sub Boton_Suma_Haga_clic_en()
noexiste = 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 <> ""
If ActiveCell.Value = Codigo Then
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = ActiveCell.Value + 1
ActiveCell.Offset(0, -1).Range("A1").Select
noexiste = 1
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Wend
MsgBox (noexiste)
If noexiste = 0 Then
If MsgBox("Este Producto no esta ingresado a su stock ¿Desea ingresarlo Ahora?", 292, "Codigo no existe") = 6 Then
ActiveCell.Value = Codigo
Else
Range("B1").Select
End
End If
End If
Range("B1").Select
End If
End Sub
Sub Boton_Suma_Haga_clic_en()
noexiste = 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 <> ""
If ActiveCell.Value = Codigo Then
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = ActiveCell.Value + 1
ActiveCell.Offset(0, -1).Range("A1").Select
noexiste = 1
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Wend
MsgBox (noexiste)
If noexiste = 0 Then
If MsgBox("Este Producto no esta ingresado a su stock ¿Desea ingresarlo Ahora?", 292, "Codigo no existe") = 6 Then
ActiveCell.Value = Codigo
Else
Range("B1").Select
End
End If
End If
Range("B1").Select
End If
End Sub
Sinceramente no existen palabras para poder expresar mi total agradecimiento a este experto. Se brindó de manera incondicional y Full Time. Pregunta que le hice la contesto en tiempo record. Se nota que sabe muchísimo. Necesitaría más de 5 estrellas para poder ser realmente justo en la calificación. Muchas Gracias!
