Wildcards in Excel VBA - HELP
 

Hello, i'm working in Excel 2000 and I have some VBA code (taken from
http://pubs.logicalexpressions.com/P...cle.asp?ID=390) which gives
a segment in a Pie Chart a colour baed on its description. Unfortunatley the
suffix of the segment is always different so I would like to use a wildcard
for the suffix. A typical segment description is "Personal Banking - £100k".
I have tried to insert a wildcard into the code but it does not work (i.e.
change the segment colour), any suggestions?

'Case "Personal Banking - *"
.Points(iPoint).Interior.ColorIndex = 13 ' Purple'

If I type in 'Case "Personal Banking - £100k"
.Points(iPoint).Interior.ColorIndex = 13 ' Purple' it
works fine but with the suffix changing as the data changes its not practical
to manually adjust the code.
Please help.

Thanks
Brian

Wildcards in Excel VBA - HELP
 

if you know exactly how many characters are same them you can use
left() function to arrive

hope this helps:

Sub test()

tst = Left(ActiveCell.Text, 19)


Select Case tst

Case "Personal Banking - "
ActiveCell.Interior.ColorIndex = 13 ' Purple'

End Select



End Sub

Wildcards in Excel VBA - HELP
 

You can't use a wildcard directly in a Select Case; it treats it as a
literal. And it doesn't seem to accept a 'like' clause either - but you can
specify a range and you can do it that way, e.g.
Case "Personal Banking - " To "Personal Banking -Z"

"Co-op Bank" wrote:

Hello, i'm working in Excel 2000 and I have some VBA code (taken from
http://pubs.logicalexpressions.com/P...cle.asp?ID=390) which gives
a segment in a Pie Chart a colour baed on its description. Unfortunatley the
suffix of the segment is always different so I would like to use a wildcard
for the suffix. A typical segment description is "Personal Banking - £100k".
I have tried to insert a wildcard into the code but it does not work (i.e.
change the segment colour), any suggestions?

'Case "Personal Banking - *"
.Points(iPoint).Interior.ColorIndex = 13 ' Purple'

If I type in 'Case "Personal Banking - £100k"
.Points(iPoint).Interior.ColorIndex = 13 ' Purple' it
works fine but with the suffix changing as the data changes its not practical
to manually adjust the code.
Please help.

Thanks
Brian

Wildcards in Excel VBA - HELP
 

Select Case lcase(Left(Somthing,16))
Case "personal banking"

Case "creditor analysi"

End Select


--
Regards,
Tom Ogilvy


"Co-op Bank" wrote in message
...
Hello, i'm working in Excel 2000 and I have some VBA code (taken from
http://pubs.logicalexpressions.com/P...cle.asp?ID=390) which
gives
a segment in a Pie Chart a colour baed on its description. Unfortunatley
the
suffix of the segment is always different so I would like to use a
wildcard
for the suffix. A typical segment description is "Personal Banking -
£100k".
I have tried to insert a wildcard into the code but it does not work (i.e.
change the segment colour), any suggestions?

'Case "Personal Banking - *"
.Points(iPoint).Interior.ColorIndex = 13 ' Purple'

If I type in 'Case "Personal Banking - £100k"
.Points(iPoint).Interior.ColorIndex = 13 ' Purple' it
works fine but with the suffix changing as the data changes its not
practical
to manually adjust the code.
Please help.

Thanks
Brian