Colocación de un MsgBox en una macro excel
A esta macro
Sub inserta_Lineas() Application.ScreenUpdating = False On Error GoTo Jota 'LE AGREGUE a = InputBox("Ingrese el Número de Lineas a Insertar", "Número de Lineas") b = ActiveCell.Row For i = 1 To a'seleccionar manualmente la celda en B donde comienza a pegar lineasAQUI Rows(b).Select Selection.EntireRow.Insert Rows(b - 1).Copy'Copia las fórmulas de la columna balance Rows(b).PasteSpecial Paste:=xlPasteFormats 'Copia las fórmulas de la columna balance Range("I" & b - 1).Copy'Copia los formatos de celdas Range("I" & b).PasteSpecial Paste:=xlPasteFormulas Application.CutCopyMode = FalseAQUI Next i 'Range("D12").SelectAQUÍJota: 'LE AGREGUEAQUI Application.ScreenUpdating = TrueEnd Sub
a la cual le agregue On Error GoTo Jota y Jota: ya que me daba error si pisaba cancelar
Quiero colocarle un mensaje de Aviso para si Cancelo "Pisó Cancelar el Input", y si piso Aceptar sin meterle cantidad, "Introduzca al menos 1 cantidad"
Crie una linea MsgBox "Canceló la inserción", vbInformation, "AVISO"
La he colocado en la intentar donde se lee, AQUÍ pero, SOLO me funciona bien si piso cancelar
1 respuesta
Respuesta de Dante Amor
1