Confirmation Message to run the Macro

mushtaq.ams · Feb 9th 2017

Dear All,
Greetings!!!

I am a new member of this forum. The interest and zeal to develop the skills in excel brought me to this page.
I am beginner and quick learner.

I am prepared a simple macro in excel sheet to do the Auto Sorting function.
I want to add a confirmation message that should prompt after clicking the macro button.

Below is the code for the macro.

Code

Sub AutoSorting()
'
' AutoSorting Macro
'
' Keyboard Shortcut: Ctrl+Shift+M
'
Range("B11").Select
ActiveWindow.SmallScroll Down:=-27
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range("B10").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
ActiveWorkbook.Worksheets("Col").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Col").Sort.SortFields.Add Key:=Range("B11:B5010") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Col").Sort
.SetRange Range("B10:J5010")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Display More

Thanks in advance.

BaraaKhalil · Feb 9th 2017

Re: Confirmation Message to run the Macro

Try this code

Code

Sub Query()
Dim Answer As Integer
Answer = MsgBox("Do You Need To Sort Data?", vbYesNo + vbQuestion, "YasserKhalil")
If Answer = vbYes Then
'Put your code here
ElseIf Answer = vbNo Then
MsgBox "Cancelled", vbExclamation
End If
End Sub

Display More

mushtaq.ams · Feb 12th 2017

Re: Confirmation Message to run the Macro

Dear Baraa,

Thanks for the response.

BaraaKhalil · Feb 12th 2017

Re: Confirmation Message to run the Macro

You're welcome. Glad I can offer some help

hassona229 · Dec 6th 2019

May Allah reward you, my dear brother, and make him in the balance of your good deeds on the Day of Resurrection, God willing

Share