Como poner MENSAJE en excel

Tengo un hoja EXCEL que utilizo a diario para hacer mi corte de ingresos totales del día, le programe un botón para que me borre los datos con un solo clic pero necesito pone un mensaje que me pregunte si estoy seguro de borrar los datos (SI/NO) yo puese estos:
Private Sub limpiarCorteGral_Click()
    MsgBox "ESTA OPERACION BORARRA TODOS LOS DATOS ¿Quieres seguir?", vbYesNo, "Información importante"
If vbYes Then
    Range("B8:E26,A19:A27,G27").Select
    Range("G27").Activate
    ActiveWindow.SmallScroll Down:=12
    Range("B8:E26,A19:A27,G27,A31:G43,C51").Select
    Range("C51").Activate
    ActiveWindow.SmallScroll Down:=-27
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-63
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-60
    Range("B4").Select
Else
End If
Pero no funiciona, me puedes ayudar.
Gracias..
Atentamente.
Jose ES Fraga
[email protected]

1 respuesta

Respuesta
1
Los argumentos vbYes y vbNo guardan un nro. Como no siempre lo recordamos, lo más práctico es usar 1 variable con esta sintaxis:
Sino= MsgBox("ESTA OPERACION BORARRA TODOS LOS DATOS ¿Quieres seguir?", vbYesNo, "Información importante")
If sino = vbYes Then
    Range("B8:E26,A19:A27,G27").Select

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

Deseo que el msgbox me de dos opciones si o no

Necesito me apoyes tengo un msgbox pero quiero expecificarle si deseas continuar Si/No si tecleo si continué el proceso y nolo aborte muchas gracias por su apoyo
1 respuesta

Obtener el nombre de un archivo de acuerdo a una ruta ya obtenida en variable

Mi pregunta es la como puedo obtener el nombre de un aechivo que acabo de abrir con un opendialog. Lo que quiero hacer es copiar distintos rangos de celdas de un archivo a otro por medio de una macro este es el código: Sub copiar() Dim Filename As...
2 respuestas

Borrar celdas de otra hoja

Intente grabar una macro de la siguiente forma: Private Sub CommandButton1_Click() ' ' Macro1 Macro ' Macro grabada el 06/08/2009 Sheets("Hoja2").Select Range("A1:K40").Select Selection.ClearContents Sheets("Hoja1").Select Range("A1").Select End Sub...
1 respuesta

¿Cómo puedo hacer validación de datos al ejecutar una macros de guardado?

Tengo una macro en una hoja llamada NUEVO CLIENTE que guarda infroamcion en otra hoja llamada CLIENTES REGISTRADOS. Application.ScreenUpdating = False Sheets("CLIENTES REGISTRADOS ").Unprotect password:="28021990" Application.ScreenUpdating = False...
1 respuesta