Macro que se ejecuta con SI y NO

Buenas tardes, queridos expertos, Felices Fiestas para todos, tengo una macro que al ejecutarla me sale un mensaje que me pregunta SI o NO y el problema es si le digo si o no se ejecuta de cualquier manera y quisiera que si le digo SI se ejecute completa y si le digo NO que no se ejecute.
Private Sub CommandButton8_Click()
Dim Mensaje, Estilo, Título, Respuesta As String
fil = ActiveCell.Row
Mensaje = "Haz introducido todos los datos? " + Chr(13) + Chr(13) + " ¿ESTAS SEGURO?"
Estilo = vbYesNo + vbExclamation + vbDefaultButton2
Título = "CERRAR MES VENCIDO"
Respuesta = MsgBox(Mensaje, Estilo, Título)
If Respuesta = vbYes Then
End If
Range("A1:I41").Select
Selection.Copy
Sheets.Add
ActiveSheet.Name = CStr(Sheets("base").Cells(1, 4).Value)
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("D13").Select
Sheets("base").Select
Application.CutCopyMode = False
Range("K16").Select
Range("A5:I35").Value = Empty
End Sub
Gracias y saludos
Juan Manuel

1 respuesta

Respuesta
1
Aquí esta tu código, te faltaba la condición else
y mover el endif después de estas condicionantes.
Saludos y recuerda de calificar
Private Sub CommandButton8_Click()
Dim Mensaje, Estilo, Título, Respuesta As String
fil = ActiveCell.Row
Mensaje = "Haz introducido todos los datos? " + Chr(13) + Chr(13) + " ¿ESTAS SEGURO?"
Estilo = vbYesNo + vbExclamation + vbDefaultButton2
Título = "CERRAR MES VENCIDO"
Respuesta = MsgBox(Mensaje, Estilo, Título)
If Respuesta = vbYes Then
 MsgBox ("Seleccionaste que estabas seguro")
Range("A1:I41").Select
Selection.Copy
Sheets.Add
ActiveSheet.Name = CStr(Sheets("base").Cells(1, 4).Value)
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("D13").Select
Sheets("base").Select
Application.CutCopyMode = False
Range("K16").Select
Range("A5:I35").Value = Empty
Else
 MsgBox ("Seleccionaste que no estabas seguro")
End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ejecutar una macro dependiendo de otra macro?

Tengo una pequeña duda... Tengo dos botones con macros uno de ellos dice IMPRIMIR y otro dice REPARTO.. Lo que quiero es que no se pueda ejecutar el botón REPARTO si no se ha impreso nada osea si no le han dado clic al botón IMPRIMIR... En el botón...
2 respuestas

Llenar campos obligatorios para ejecutar una macro...

Tengo esta macro en la cual me guarda la información de algunas celdas que se llenan, pero quisiera que no me permita ejecutar la macro si alguna de esas celdas no están llenas. Sub CREA_NUEVO_CLIENTE() ' ' CREA_NUEVO_CLIENTE Macro ' AGREGA NUEVO...
1 respuesta

Macro buscar-pegar

Me ha surgido un problema con una hoja de exel de registro de operaciones que estoy montando, me veo en la necesidad de ingresar datos de una hoja de calculo a otra y creo que la mejor opción es empleando una macro pero mi problema es que no se como...
1 respuesta

Error 1004 en tiempo de ejecución al importar datos de un fichero excel a otro mediante una macro

Estoy intentando importar datos de un fichero excel a otro mediante una macro. El problema lo tengo al pegar, ya que necesito pegar tanto el formato como los datos, así que lo hago con 2 "paste's", uno para el estilo y otro para los valores. Al hacer...
2 respuestas