Here are some examples for how to add or display message box in vba
Sub messgaebox1()
' message you want to display , type of message box , title of message box
MsgBox "12 Rows Deleted", vbInformation, "Task"
End Sub
Sub messgaebox2()
Dim swa As String
swa = MsgBox("Do You Want to Continue", vbQuestion + vbYesNo, "Choose Your Option")
If swa = vbYes Then
MsgBox "You selected Yes", vbInformation, "Answer"
Else
MsgBox "You selected No", vbInformation, "Answer"
End If
End Sub
Sub messgaebox3()
Dim swa As String
swa = MsgBox("Do You Want to Continue", vbQuestion + vbOKCancel, "Choose Your Option")
If swa = vbOK Then
MsgBox "You selected ok", vbInformation, "Answer"
Else
Exit Sub
End If
End Sub
Subscribe to:
Post Comments (Atom)
Import data from SQL
Macro to import data from SQL using ADO connection string: Sub Import_data_from_SQL() ' Tools -> References -> Microsoft Active...
-
If you want to add a new menu on mouse right click "Workbook Navigation showing you the list of all open workbooks and worksheets in ea...
-
Macro to Export Range in Json Format Option Explicit Sub export_in_json_format() Dim fs As Object Dim jsonfile Dim rangetoex...
No comments:
Post a Comment