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