Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
.Name case sensitive
As part of a Print Macro, I am populating a list box with all range names
beginning with "prt1". In testing my macro, I noted that it was case sensitive ("prt1 vs Prt1"). I've handled this with an OR statement. I'd like a more robust solution which handles all the possible upper/lower case combinations of prt1. Thanks in advance! Here is my code: Private Sub UserForm_Initialize() Dim nme As Name With lstP1 For Each nme In ActiveWorkbook.Names If Left(nme.Name, 4) = "Prt1" Or Left(nme.Name, 4) = "prt1" Then .AddItem nme.Name End If Next nme End With |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
.Name case sensitive
CinqueTerra wrote:
As part of a Print Macro, I am populating a list box with all range names beginning with "prt1". In testing my macro, I noted that it was case sensitive ("prt1 vs Prt1"). I've handled this with an OR statement. I'd like a more robust solution which handles all the possible upper/lower case combinations of prt1. Thanks in advance! Here is my code: Private Sub UserForm_Initialize() Dim nme As Name With lstP1 For Each nme In ActiveWorkbook.Names If Left(nme.Name, 4) = "Prt1" Or Left(nme.Name, 4) = "prt1" Then .AddItem nme.Name End If Next nme End With How about: If ucase(Left(nme.Name, 4)) = "PRT1" Then Bill |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
.Name case sensitive
Another option is to put:
Option Compare Text At the top of the module. If you have lots of code with lots of comparisons (and case really shouldn't matter), it might be the easiest fix. CinqueTerra wrote: As part of a Print Macro, I am populating a list box with all range names beginning with "prt1". In testing my macro, I noted that it was case sensitive ("prt1 vs Prt1"). I've handled this with an OR statement. I'd like a more robust solution which handles all the possible upper/lower case combinations of prt1. Thanks in advance! Here is my code: Private Sub UserForm_Initialize() Dim nme As Name With lstP1 For Each nme In ActiveWorkbook.Names If Left(nme.Name, 4) = "Prt1" Or Left(nme.Name, 4) = "prt1" Then .AddItem nme.Name End If Next nme End With -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
countif function: how to distinguish case/make case sensitive | Excel Worksheet Functions | |||
How do I use case sensitive VLOOKUP? | Excel Worksheet Functions | |||
Case Sensitive w/ IF | Excel Worksheet Functions | |||
Case sensitive vlookup | Excel Discussion (Misc queries) | |||
UDF - case sensitive argument | Excel Programming |