¿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
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 de kgb_elantro
1