VBA button question

[asad]

Hi All,

Can I have a button in excel workbook that have one half assigned to a macro and the other half gives an error message.

Thanks
Asad

 

[Rick Rothstein]

Can I have a button in excel workbook that have one half assigned to a macro and the other half gives an error message.

Yes, if you use an ActiveX CommandButton control. This is the general idea using the MouseDown event for the control (assuming the control's name was CommandButton1)...

[table="width: 500"]
[tr]
	[td]Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If Y < CommandButton1.Height / 2 Then
    MsgBox "Call macro here"
  Else
    MsgBox "Display error message here"
  End If
End Sub[/td]
[/tr]
[/table]

 

[asad]

Beautiful.

Thanks a lot Rick.

Yes, if you use an ActiveX CommandButton control. This is the general idea using the MouseDown event for the control (assuming the control's name was CommandButton1)...

[TABLE="width: 500"]
<tbody>[TR]
[TD]Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If Y < CommandButton1.Height / 2 Then
    MsgBox "Call macro here"
  Else
    MsgBox "Display error message here"
  End If
End Sub[/TD]
[/TR]
</tbody>[/TABLE]