Macro para decidir seguir ejecutando o parar!

Hola Experto quisiera saber como se pone una macro que me permita decidir ejecutar la siguiente macro o parar mi código es el siguiente:
Sub capturar()
MsgBox ("Los datos seran borrados de esta hoja y se almacenaran")
libre = Sheets("DATOS").Range("A65536").End(xlUp).Row + 1
finfila = ActiveSheet.Range("C47:U47").End(xlUp).Row
ActiveSheet.Range("C4:V47").Copy Destination:=Sheets("DATOS").Range("A" & libre)
ActiveSheet.Range("F12:T46") = ""
ActiveSheet.Range("F10:S10") = ""
End Sub
Pero justamente me gustaría que cuando mande el MsgBox pueda oprimir SI o NO, para ejecutar la siguiente macro o parar ahí.
Espero me puedan ayudar, de antemano muchas gracias saludo.

1 Respuesta

Respuesta
1
Sub capturar()
If MsgBox("Los datos seran borrados de esta hoja y se almacenaran", vbYesNo) = vbYes Then
libre = Sheets("DATOS").Range("A65536").End(xlUp).Row + 1
finfila = ActiveSheet.Range("C47:U47").End(xlUp).Row
ActiveSheet.Range("C4:V47").Copy Destination:=Sheets("DATOS").Range("A" & libre)
ActiveSheet.Range("F12:T46") = ""
ActiveSheet.Range("F10:S10") = ""
End If
End Sub
Gracias EXperto el msg box me sale perfecto solo que ahora me manda:
"Se ha producido el error 1004 en tiempo de ejecución: Error definido por la aplicación o el objeto"
Como lo puedo solucionar de antemano muchas gracias por la ayuda.
En donde sale eso, ¿qué parte pone en amarillo al detenerse la macro?

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro Guardar datos en otra hoja

Si me podrían apoyar con un código o macro que valla aguardando los datos de la hoja 1 en la hoja 2, y que valla aguardando los datos abajo de los últimos datos que aguarde, ejemplo: HOJA1 Factura cliente importe 1545 TONY 549.50 1546 PASSINO 645.61...
1 respuesta

Macro copiar columnas rango variable

Llevo tiempo consultando la web de todoexpertos, y siempre que surge una duda intento resolverla a partir de alguna respuesta que encuentro en el site, aunque no siempre es evidente!... Te comento, tengo una tabla excel en hoja1 y quiero seleccionar,...
1 respuesta

Copiar celdas a otra hoja en la primera fila libre

Primero felicitarles por la página que me parece estupenda. Voy con mi pregunta: Tengo un libro con las hojas: externo, interno y base de datos, la utilizo para ingresar datos de personal autorizado a fin de realizar trabajos en la empresa, en las...
2 respuestas

Hoja de captura de datos en excel

Quisiera saber en excel cual es la forma de crear una hoja de captura de datos y que éstos se vayan acumulando en una hoja alterna. Entiendo que este proceso se puede hacer con macros. Para tratar de ser más claro les comento que se trata de una...
1 respuesta

Ayuda con macro, copiar y pegar datos.

Agradecería que me echaran una mano con está macro que intento desarrollar; En la hoja 1, tengo 4 columnas que copio y pego (pegado especial sólo valores) a 4 columnas a la hoja 2 (columnas C, D, E, F). Teniendo en cuenta que me pega en la primera...
1 respuesta

Macro para encontrar faltantes de una serie

Necesito una macro que me permita recorrer una columna que contiene una serie de números correlativos y que registre en una nueva hoja de calculo, con el nombre"Faltantes", los faltantes de la serie.
2 respuestas

Macro que copie datos a otra hoja

Tengo una hoja de calculo que da resultado a través de fórmulas, es decir ella calcula el monto de un servicio, lo que quiero es una macro que copie las celdas que yo le indique de esta hoja y vaya haciendo un registro en otra hoja. Una base de datos...
1 respuesta