A
Andreww
Hi - I have been given the code below and have not used VB functions
much before.
What it does is alows a user to select a cell in a grid of numbers, a
range "selectedrow" is then created which provides the source data for
a graph.
My problem is that the grid has certain columns hidden by default and
thus the graph only uses as its source data from the non-hidden cols.
Does anyone know how I could get some value from the function which
would allow me to somehow manipulate the values the function returns
to enable my graph to see all the cols?
Thanks
Andrew
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim valrange As Integer
Dim end_row1 As Integer
Dim rowcheck As Integer
If Target.Row >= 8 And Target.Row <= 8 +
ActiveWorkbook.Names("numValues").RefersToRange.Value - 1 _
And Target.Column >= 3 And Target.Column <= 16 Then
ActiveWorkbook.Names("Data").RefersToRange.Interior.ColorIndex
= 0
ActiveWorkbook.Names("Data").RefersToRange.Font.Color = 1
'Range("B10:B" & end_val + 9).Name = "Left_chart_labels"
ThisWorkbook.Names("ValRange").RefersToRange.Interior.ColorIndex = 0
ThisWorkbook.Names("ValRange").RefersToRange.Font.ColorIndex =
1
ThisWorkbook.Names("SelectedRow").RefersToRange.Interior.ColorIndex =
4
ThisWorkbook.Names("SelectedCol").RefersToRange.Font.ColorIndex = 5
ActiveWorkbook.Names("highlightCol").RefersToRange.Value =
Target.Column - 3
ActiveWorkbook.Names("highlightRow").RefersToRange.Value =
Target.Row - 10
ThisWorkbook.Names("SelectedRow").RefersToRange.Interior.ColorIndex =
25
ThisWorkbook.Names("SelectedRow").RefersToRange.Font.ColorIndex = 19
ThisWorkbook.Names("SelectedCol").RefersToRange.Interior.ColorIndex =
25
ThisWorkbook.Names("SelectedCol").RefersToRange.Font.ColorIndex = 19
Target.Interior.ColorIndex = 0
Target.Font.ColorIndex = 1
End If
End Sub
much before.
What it does is alows a user to select a cell in a grid of numbers, a
range "selectedrow" is then created which provides the source data for
a graph.
My problem is that the grid has certain columns hidden by default and
thus the graph only uses as its source data from the non-hidden cols.
Does anyone know how I could get some value from the function which
would allow me to somehow manipulate the values the function returns
to enable my graph to see all the cols?
Thanks
Andrew
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim valrange As Integer
Dim end_row1 As Integer
Dim rowcheck As Integer
If Target.Row >= 8 And Target.Row <= 8 +
ActiveWorkbook.Names("numValues").RefersToRange.Value - 1 _
And Target.Column >= 3 And Target.Column <= 16 Then
ActiveWorkbook.Names("Data").RefersToRange.Interior.ColorIndex
= 0
ActiveWorkbook.Names("Data").RefersToRange.Font.Color = 1
'Range("B10:B" & end_val + 9).Name = "Left_chart_labels"
ThisWorkbook.Names("ValRange").RefersToRange.Interior.ColorIndex = 0
ThisWorkbook.Names("ValRange").RefersToRange.Font.ColorIndex =
1
ThisWorkbook.Names("SelectedRow").RefersToRange.Interior.ColorIndex =
4
ThisWorkbook.Names("SelectedCol").RefersToRange.Font.ColorIndex = 5
ActiveWorkbook.Names("highlightCol").RefersToRange.Value =
Target.Column - 3
ActiveWorkbook.Names("highlightRow").RefersToRange.Value =
Target.Row - 10
ThisWorkbook.Names("SelectedRow").RefersToRange.Interior.ColorIndex =
25
ThisWorkbook.Names("SelectedRow").RefersToRange.Font.ColorIndex = 19
ThisWorkbook.Names("SelectedCol").RefersToRange.Interior.ColorIndex =
25
ThisWorkbook.Names("SelectedCol").RefersToRange.Font.ColorIndex = 19
Target.Interior.ColorIndex = 0
Target.Font.ColorIndex = 1
End If
End Sub