View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Doug Glancy Doug Glancy is offline
external usenet poster
 
Posts: 770
Default Command Button - On Click Event

sharonm,

I second Jim's advice. So, for example, in Sheet1 you could have the cells
in Column A function as your buttons, in that each time you double-click
one, it will trigger the activation of the same row on Sheet2. To do so,
paste this code into the ThisWorkbook module of your workbook.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
'If the double-click "Target" is in Column A
If Not Intersect(Target, Columns(1)) Is Nothing Then
'Cancel the normal double-click action
'so that you don't enter the "button" cell.
Cancel = True
With ThisWorkbook.Worksheets("Sheet2")
.Activate
'Select the same row in Sheet2
.Rows(Target.Row).Select
End With
End If
End Sub

hth,

Doug


"Jim Cone" wrote in message
...
I would not put 1000 buttons on a worksheet.
You would probably be back the following week wondering
why your file was corrupted.
Hyperlink formulas are an alternative; also using the double click event
of the worksheet is a good way to go.
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"sharonm"

wrote in message
Hello,
I have a worksheet with about 1,000 lines of data. I want to add a command
button on each line, which when clicked will take me to a certain row in
another tab of the workbook. When you click on the button, the code for
the
on click event takes you to the specific row which is referenced off to
the
side of that row. I think I know how to add the command buttons on each
row
by using a macro.

My question, is there a way to add the code to each buttons click event
through a macro or code so I do not have to type it in manually 1000
times?

Hope I am explaining this correctly. Any help would be greatly
appreciated!!
Thanks.