How to automatically close a messagebox in vba

Quickhelpplz · Mar 9th 2018

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?

Quickhelpplz · Mar 9th 2018

Okay I got it. I used the following
[VBA]
Application.DisplayAlerts = False
Range("A8:P29").Select
Selection.Copy
Sheets("Room Inital Component Sheet").Select
Range("A8:E8").Select
ActiveSheet.Paste
Sheets("Room Final Component Sheet").Select
Range("A8:E8").Select
ActiveSheet.Paste
Application.DisplayAlerts = True[/VBA]

vrajeshbrd · Mar 9th 2018

Code

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

Display More

How to automatically close a messagebox in vba

Participate now!

Share