Macro para remplazar en Excel
Tengo la siguiente macro:
--------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub CHECKLIST_CERRAR()
Dim Resp As Byte
Resp = MsgBox("DESEAS CARGAR ESTE CHECK LIST EN EL SISTEMA", _
vbQuestion + vbYesNo, "ACQ SOFTWARE")
If Resp = vbYes Then
ActiveWorkbook.Save
Dim nombre As String, Ruta As String
Ruta = "C:\AcqProyects\Rgis\Check List"
nombre = Range("CH1").Value
ActiveWorkbook.SaveAs Filename:=Ruta & "/" & nombre
ActiveWorkbook.Save
MsgBox "CHECK LIST CARGADO", vbInformation, "ACQ SOFTWARE"
ThisWorkbook. Close
------------------------------------------------------------------------------------------------------------------------------------------------------------------------
La cual guarda el archivo fijo para cargar una hoja y además crea una copia del archivo con un nombre especifico, mi problema es que este archivo se modifica muchas veces y al momento de crear la copia me pregunta si la quiero sobreescribir, mi pregunta es que le puedo agregar para que la sobrescriba si o si please ayuda
1 respuesta
01/11/16
Buenas noches, Alejandro
La instrucción que buscas es:
Application.DisplayAlerts = False
La siguiente variante del código que pasaste la incluye y luego su reversión.
Me tomé el atrevimiento de modificar un par de cosas más, porque noté que había una barra que hubiera arrojado error en la ejecución. Explico los cambios en siguiente código:
Sub CHECKLIST_CERRAR()
Dim Resp As Byte
Resp = MsgBox("DESEAS CARGAR ESTE CHECK LIST EN EL SISTEMA", _
vbQuestion + vbYesNo, "ACQ SOFTWARE")
If Resp = vbYes Then
ActiveWorkbook.Save
Dim nombre As String, Ruta As String
Ruta = "C:\AcqProyects\Rgis\Check List"
nombre = Range("CH1").Value
Application.DisplayAlerts = False 'esta línea inhibe los mensajes
ActiveWorkbook.SaveAs Filename:=Ruta & "\" & nombre ' Aquí te cambié la barra porque estabas usando la inversa
'
ActiveWorkbook.Save
Application.DisplayAlerts = True 'esta línea restituye los mensajes
'
MsgBox "CHECK LIST CARGADO", vbInformation, "ACQ SOFTWARE"
ThisWorkbook.Close xlNo ' le agregue que cierre sin grabar porque ya lo hizo.
' supongo que sigue tu código aquí...
End If
End Sub
Espero que esto te ayude.
Un abrazo
Fernando
.
¡Gracias! Tu ayúdame sirvió de mucho
. ----- Te quedó pendiente valorizar el tiempo que te dediqué ----
Cordialmente,
Fernando
.
