¿Se puede cambiar el valor por defecto de un msgbox?

Tengo esta macro y quisiera que en el msgbox aparezca seleccionado por defecto el SI. ¿Es esto posible? Gracias.
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

1 respuesta

Respuesta
1
If MsgBox("Este Producto no esta ingresado a su stock  ¿Desea ingresarlo Ahora?", 292, "Codigo no existe") = 6 Then
en esa linea remplaza el 292 por este codigo
vbQuestion + vbYesNo + vbDefaultButton1

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas