Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
How can I search in a cell for any letter in a word that may be upper case?
For example I want to identify that a cell has a word such as ibuPROfen. |
#2
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
If you just want to know if there is any uppercase character:
=EXACT(A9,LOWER(A9)) Returns FALSE if there is an uppercase character, TRUE otherwise -- Kind regards, Niek Otten Microsoft MVP - Excel "Ken" wrote in message ... | How can I search in a cell for any letter in a word that may be upper case? | For example I want to identify that a cell has a word such as ibuPROfen. |
#3
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
with
A1: (text.....eg ibuPROfen) This formula returns true if there are NO lower case letters: B1: =EXACT(A1,LOWER(A1)) Is that something you can work with? -------------------------- Regards, Ron Microsoft MVP (Excel) (XL2003, Win XP) "Ken" wrote in message ... How can I search in a cell for any letter in a word that may be upper case? For example I want to identify that a cell has a word such as ibuPROfen. |
#4
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
Maybe you could use a macro to select the cells that have any uppercase
characters: Option Explicit Sub testme() Dim wks As Worksheet Dim TempWks As Worksheet Dim UpperCaseAddr As String Application.ScreenUpdating = False Set wks = Worksheets("Sheet1") Set TempWks = Worksheets.Add With wks TempWks.Range(.UsedRange.Address).FormulaR1C1 _ = "=exact('" & .Name & "'!RC,lower('" & .Name & "'!RC))" End With With TempWks.Range(wks.UsedRange.Address) .FormulaR1C1 _ = "=exact('" & wks.Name & "'!RC,lower('" & wks.Name & "'!RC))" .Value = .Value .Replace what:=True, _ replacement:="", _ lookat:=xlWhole, _ searchorder:=xlByRows, _ MatchCase:=False UpperCaseAddr = "" On Error Resume Next UpperCaseAddr = .Cells.SpecialCells(xlCellTypeConstants).Address On Error GoTo 0 End With Application.DisplayAlerts = False TempWks.Delete Application.DisplayAlerts = True Application.ScreenUpdating = True If UpperCaseAddr = "" Then MsgBox "No uppercase characters!" Else Application.Goto wks.Range(UpperCaseAddr) MsgBox "Tab through the selection" End If End Sub If you're new to macros, you may want to read David McRitchie's intro at: http://www.mvps.org/dmcritchie/excel/getstarted.htm Ken wrote: How can I search in a cell for any letter in a word that may be upper case? For example I want to identify that a cell has a word such as ibuPROfen. -- Dave Peterson |
#5
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
This works perfectly, Thanks!
"Ron Coderre" wrote: with A1: (text.....eg ibuPROfen) This formula returns true if there are NO lower case letters: B1: =EXACT(A1,LOWER(A1)) Is that something you can work with? -------------------------- Regards, Ron Microsoft MVP (Excel) (XL2003, Win XP) "Ken" wrote in message ... How can I search in a cell for any letter in a word that may be upper case? For example I want to identify that a cell has a word such as ibuPROfen. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Changing multiple cell text from lower case to upper case | Excel Discussion (Misc queries) | |||
Changing upper case characters to upper/lower | Excel Discussion (Misc queries) | |||
Changing file in all upper case to upper and lower case | Excel Discussion (Misc queries) | |||
Change the text from lower case to upper case in an Excel work boo | Excel Discussion (Misc queries) | |||
How do I convert all upper case excel sheet into upper and lower . | Excel Discussion (Misc queries) |