ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Help! Hyperlinking? (https://www.excelbanter.com/excel-discussion-misc-queries/139069-help-hyperlinking.html)

IoHeFy

Help! Hyperlinking?
 
Hello!

Need help putting my idea into actual motion. I have a spreadsheet;
a) Column A is a list of names
b) Columns B, D, F, (skipping a letter each time) etc are figures for
different months (Dec-Jan) for the customers in column A
c) Columns C, E, G (again skipping a column letter) etc are the difference
between each month, i.e Jan-Dec, Feb-Jan, March-Feb etc.

I need the ability to click on one of the customers names in column A, which
would then bring up specific information on that customer - e.g. total
figures for that year (B+D+F etc) and total difference (C+E+G etc).

How could I do this?

Thanks x 1000!

joel

Help! Hyperlinking?
 
One way of accomplishing this is with a list box. Then when the list box is
changed then you can write a worksheet changge function that bring up the
information you want.

The list box is simple to create using on the Data Menu - validation - List
and then select the cells in column A.

"IoHeFy" wrote:

Hello!

Need help putting my idea into actual motion. I have a spreadsheet;
a) Column A is a list of names
b) Columns B, D, F, (skipping a letter each time) etc are figures for
different months (Dec-Jan) for the customers in column A
c) Columns C, E, G (again skipping a column letter) etc are the difference
between each month, i.e Jan-Dec, Feb-Jan, March-Feb etc.

I need the ability to click on one of the customers names in column A, which
would then bring up specific information on that customer - e.g. total
figures for that year (B+D+F etc) and total difference (C+E+G etc).

How could I do this?

Thanks x 1000!


Gary''s Student

Help! Hyperlinking?
 
How about a double-click? In worksheet code put:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Intersect(Target, Range("A:A")) Is Nothing Then
Exit Sub
End If
v1 = 0
v2 = 0
j = Target.Row
For i = 2 To 254 Step 2
v1 = v1 + Cells(j, i).Value
v2 = v2 + Cells(j, i + 1).Value
Next
MsgBox (v1 & " " & v2)
Cancel = True
End Sub



REMEMBER Worksheet code, not a standard module
--
Gary''s Student - gsnu200715



All times are GMT +1. The time now is 01:29 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com