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.

1 respuesta

Respuesta
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
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!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas