On Button Click(Help!)

[jpizzle]

Hey everyone,

I was wondering if you guys could help me out with a problem I have. I
was wondering if it would be possible to have a button such that excel
will locate which cell the button is over and insert a row above that
cell. Is there a VBA function that returns the location of the cell
where the mouse was clicked? Thanks a lot!

 

[Chandra]

Hi
Just check this one. I believe that it should give u an idea.

in the button click event:

Private Sub <ButtonName>_Click()
MsgBox <ButtonName>.TopLeftCell.AddressLocal
End Sub

best Regards,
Chandra
http://groups.msn.com/SQLResource/
http://chanduas.blogspot.com/

 

[jindon]

Hi

paste the code onto sheet module

Code
-------------------

Private CellNow As String

Private Sub CommandButton1_Click()
Range(CellNow).EntireRow.Insert
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CellNow = Target.Address
End Su