I've got a Macro that I'm working on where depending on what project we are doing, it will format the pages a certain way. After I format it, I use the macro to copy and paste the info across other sheets in the same workbook. Those cells already have data in them.
The box that pops up says "there is data already here. do you want to replace" options are "yes" or "no". If I want it to select yes automatically, is there a way to do that in the code?
How to automatically close a messagebox in vba
- Thread is marked as Resolved.
Okay I got it. I used the following
Application.DisplayAlerts = False
Sheets("Room Inital Component Sheet").Select
Sheets("Room Final Component Sheet").Select
Application.DisplayAlerts = True[/VBA]
Sub forAutocloseMsgbox() Application.ScreenUpdating = True On Error Resume Next ActiveWorkbook.Save Dim AckTime As Integer, InfoBox As Object Set InfoBox = CreateObject("WScript.Shell") 'Set the message box to close after 10 seconds AckTime = 4 Select Case InfoBox.Popup("Done !! Click OK " & Chr(13) & Chr(13), _ AckTime, "RV 7383423400", 0) Case 1, -1 Exit Sub End Select End Sub
Don’t have an account yet? Register yourself now and be a part of our community!