Interupt code with message before it runs
 

I want to include the option to accept or cancel an action before the code
runs.

Private Sub Filldown_formula_Click()
Range("C10").Select
Selection.AutoFill Destination:=Range("C10:C7800"), Type:=xlFillDefault
Range("C10:C7800").Select
End sub


By including this msgBox which includes a €œYes€� or €œNo€� command buttons.

MsgBox "This will reset the formula, do you wish to proceed"

Thank you if you can help.

Interupt code with message before it runs
 

Try the below

Private Sub Filldown_formula_Click()

If MsgBox("This will reset the formula, do you wish to proceed", _
vbYesNo + vbDefaultButton2) = vbYes Then
Range("C10").AutoFill Destination:=Range("C10:C7800"), Type:=xlFillDefault
End If

End Sub


--
Jacob


"Gotroots" wrote:

I want to include the option to accept or cancel an action before the code
runs.

Private Sub Filldown_formula_Click()
Range("C10").Select
Selection.AutoFill Destination:=Range("C10:C7800"), Type:=xlFillDefault
Range("C10:C7800").Select
End sub


By including this msgBox which includes a €œYes€� or €œNo€� command buttons.

MsgBox "This will reset the formula, do you wish to proceed"

Thank you if you can help.

Interupt code with message before it runs
 

The code still ran even though the "No" option was selected.

"Jacob Skaria" wrote:

Try the below

Private Sub Filldown_formula_Click()

If MsgBox("This will reset the formula, do you wish to proceed", _
vbYesNo + vbDefaultButton2) = vbYes Then
Range("C10").AutoFill Destination:=Range("C10:C7800"), Type:=xlFillDefault
End If

End Sub


--
Jacob


"Gotroots" wrote:

I want to include the option to accept or cancel an action before the code
runs.

Private Sub Filldown_formula_Click()
Range("C10").Select
Selection.AutoFill Destination:=Range("C10:C7800"), Type:=xlFillDefault
Range("C10:C7800").Select
End sub


By including this msgBox which includes a €œYes€� or €œNo€� command buttons.

MsgBox "This will reset the formula, do you wish to proceed"

Thank you if you can help.

Interupt code with message before it runs
 

Copy paste the code and try

If MsgBox("This will reset the formula, do you wish to proceed", _
vbYesNo + vbDefaultButton2) = vbYes Then
Range("C10").AutoFill Destination:=Range("C10:C7800"), Type:=xlFillDefault
End If

--
Jacob


"Gotroots" wrote:

The code still ran even though the "No" option was selected.

"Jacob Skaria" wrote:

Try the below

Private Sub Filldown_formula_Click()

If MsgBox("This will reset the formula, do you wish to proceed", _
vbYesNo + vbDefaultButton2) = vbYes Then
Range("C10").AutoFill Destination:=Range("C10:C7800"), Type:=xlFillDefault
End If

End Sub


--
Jacob


"Gotroots" wrote:

I want to include the option to accept or cancel an action before the code
runs.

Private Sub Filldown_formula_Click()
Range("C10").Select
Selection.AutoFill Destination:=Range("C10:C7800"), Type:=xlFillDefault
Range("C10:C7800").Select
End sub


By including this msgBox which includes a €œYes€� or €œNo€� command buttons.

MsgBox "This will reset the formula, do you wish to proceed"

Thank you if you can help.

Interupt code with message before it runs
 

I made a typo error. Sorry for the false alarm.

"Jacob Skaria" wrote:

Copy paste the code and try

If MsgBox("This will reset the formula, do you wish to proceed", _
vbYesNo + vbDefaultButton2) = vbYes Then
Range("C10").AutoFill Destination:=Range("C10:C7800"), Type:=xlFillDefault
End If

--
Jacob


"Gotroots" wrote:

The code still ran even though the "No" option was selected.

"Jacob Skaria" wrote:

Try the below

Private Sub Filldown_formula_Click()

If MsgBox("This will reset the formula, do you wish to proceed", _
vbYesNo + vbDefaultButton2) = vbYes Then
Range("C10").AutoFill Destination:=Range("C10:C7800"), Type:=xlFillDefault
End If

End Sub


--
Jacob


"Gotroots" wrote:

I want to include the option to accept or cancel an action before the code
runs.

Private Sub Filldown_formula_Click()
Range("C10").Select
Selection.AutoFill Destination:=Range("C10:C7800"), Type:=xlFillDefault
Range("C10:C7800").Select
End sub


By including this msgBox which includes a €œYes€� or €œNo€� command buttons.

MsgBox "This will reset the formula, do you wish to proceed"

Thank you if you can help.