Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
detect upper and lower case letters
i need to tell if the first letter in a text string is capital or lower
case. i have figured out how to do this in the spreadsheet, but now need it in code. i tried converting my spreadsheet formula to code, but doesn't work: If Application.exact(Left(Application.UPPER(Range("A1 ")), 1), Left(Range("A1"), 1)) = True Then Range("b1") = "upper case" Else Range("b1") = "lower case" End If any thoughts? thanks, mike allen |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
detect upper and lower case letters
Hi
try with Activesheet.Range("A1") if ucase(left(.value,1))=left(.value,1) then .offset(0,1).value="Upper case" else .offset(0,1).value="Lower case" end if end with -- Regards Frank Kabel Frankfurt, Germany mike allen wrote: i need to tell if the first letter in a text string is capital or lower case. i have figured out how to do this in the spreadsheet, but now need it in code. i tried converting my spreadsheet formula to code, but doesn't work: If Application.exact(Left(Application.UPPER(Range("A1 ")), 1), Left(Range("A1"), 1)) = True Then Range("b1") = "upper case" Else Range("b1") = "lower case" End If any thoughts? thanks, mike allen |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
detect upper and lower case letters
If UCase(Left(Range("A1"),1)) = Left(Range("A1"),1) Then
Range("b1") = "upper case" Else Range("b1") = "lower case" End If -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "mike allen" wrote in message ... i need to tell if the first letter in a text string is capital or lower case. i have figured out how to do this in the spreadsheet, but now need it in code. i tried converting my spreadsheet formula to code, but doesn't work: If Application.exact(Left(Application.UPPER(Range("A1 ")), 1), Left(Range("A1"), 1)) = True Then Range("b1") = "upper case" Else Range("b1") = "lower case" End If any thoughts? thanks, mike allen |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
detect upper and lower case letters
mike allen,
One way, Sub LetterCase() For Each Cell In Selection If Left(Cell.Value, 1) = _ UCase(Left(Cell.Value, 1)) Then Cell.Offset(0, 1).Value = "Upper Case" Else Cell.Offset(0, 1).Value = "Lower Case" End If Next Cell End Sub Cecil "mike allen" wrote in message ... i need to tell if the first letter in a text string is capital or lower case. i have figured out how to do this in the spreadsheet, but now need it in code. i tried converting my spreadsheet formula to code, but doesn't work: If Application.exact(Left(Application.UPPER(Range("A1 ")), 1), Left(Range("A1"), 1)) = True Then Range("b1") = "upper case" Else Range("b1") = "lower case" End If any thoughts? thanks, mike allen |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Upper Case Letters to First Letter Upper, Remaining Letters Lower | Excel Discussion (Misc queries) | |||
Using COUNTIF and VLOOKUP with upper and lower case letters | Excel Worksheet Functions | |||
How to change lower to upper case letters? | Excel Discussion (Misc queries) | |||
How do I create upper/lower case letters in cells? | Excel Discussion (Misc queries) | |||
Count the occurance of upper or lower case letters | Excel Worksheet Functions |