If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
How can I search for words in all caps in Excel?
As part of a macro, I'd like to be able to identify and re-format only cells
containing words in all caps. Is that doable? Thanks! |
#2
|
|||
|
|||
Select your data and run this macro:
Sub OnlyUpper() Dim cell As Range For Each cell In Selection If cell.Value = UCase(cell.Value) Then cell.Font.ColorIndex = 3 'make font color = red End If Next End Sub --- HTH Jason Atlanta, GA "Nexan" wrote: As part of a macro, I'd like to be able to identify and re-format only cells containing words in all caps. Is that doable? Thanks! |
#3
|
|||
|
|||
Okay, I've hit a snag with this. I just realized that this script only seems
to be finding cells containing nothing but letters in all caps. Is there a way to find cells containing some words in all caps and some in upper/lowercase? "Jason Morin" wrote: Select your data and run this macro: Sub OnlyUpper() Dim cell As Range For Each cell In Selection If cell.Value = UCase(cell.Value) Then cell.Font.ColorIndex = 3 'make font color = red End If Next End Sub --- HTH Jason Atlanta, GA "Nexan" wrote: As part of a macro, I'd like to be able to identify and re-format only cells containing words in all caps. Is that doable? Thanks! |
#4
|
|||
|
|||
You could use LCASE or the Like operator.
Nick "Nexan" wrote in message ... Okay, I've hit a snag with this. I just realized that this script only seems to be finding cells containing nothing but letters in all caps. Is there a way to find cells containing some words in all caps and some in upper/lowercase? "Jason Morin" wrote: Select your data and run this macro: Sub OnlyUpper() Dim cell As Range For Each cell In Selection If cell.Value = UCase(cell.Value) Then cell.Font.ColorIndex = 3 'make font color = red End If Next End Sub --- HTH Jason Atlanta, GA "Nexan" wrote: As part of a macro, I'd like to be able to identify and re-format only cells containing words in all caps. Is that doable? Thanks! |
#5
|
|||
|
|||
Could you possibly give me an example of that?
Thanks! "Nick" wrote: You could use LCASE or the Like operator. Nick "Nexan" wrote in message ... Okay, I've hit a snag with this. I just realized that this script only seems to be finding cells containing nothing but letters in all caps. Is there a way to find cells containing some words in all caps and some in upper/lowercase? "Jason Morin" wrote: Select your data and run this macro: Sub OnlyUpper() Dim cell As Range For Each cell In Selection If cell.Value = UCase(cell.Value) Then cell.Font.ColorIndex = 3 'make font color = red End If Next End Sub --- HTH Jason Atlanta, GA "Nexan" wrote: As part of a macro, I'd like to be able to identify and re-format only cells containing words in all caps. Is that doable? Thanks! |
#6
|
|||
|
|||
Don't know what information you have in your cells but something like this could be used For Each cell In Selection If cell.Value = UCase(cell.Value) Then cell.Font.ColorIndex = 3 'make font color = red ElseIf cell.Value = LCase(Cell.Value) then cell.Font.ColorIndex = 3 'make font color = red ElseIf cell.Value = application.Proper(cell.Value) ' Matches if Proper case, capital for each word eg This Is The End ElseIf cell.VAlue like "[A-Z]*[A-Z]*"' Matched is Capital at start and Capital some where in the text 'Code here ElseIf cell.Value like "[A-Z]*" ' Matches value if it starts with a capital letter ' Code here End If Next Look in the help for examples of the Like Operator Also not that for the Like Operator to Match Upper case letters you must specify Option Compare Binary at the top of the module. If you Don't then the case of the letters is ignored, i.e. A=a etc. Hope this is useful Nick "Nexan" wrote in message ... Could you possibly give me an example of that? Thanks! "Nick" wrote: You could use LCASE or the Like operator. Nick "Nexan" wrote in message ... Okay, I've hit a snag with this. I just realized that this script only seems to be finding cells containing nothing but letters in all caps. Is there a way to find cells containing some words in all caps and some in upper/lowercase? "Jason Morin" wrote: Select your data and run this macro: Sub OnlyUpper() Dim cell As Range For Each cell In Selection If cell.Value = UCase(cell.Value) Then cell.Font.ColorIndex = 3 'make font color = red End If Next End Sub --- HTH Jason Atlanta, GA "Nexan" wrote: As part of a macro, I'd like to be able to identify and re-format only cells containing words in all caps. Is that doable? Thanks! |
#7
|
|||
|
|||
How can I search for words in all caps in Excel?
Hi Jason
I have found this old script and yes it works for me, However is it possible to have an addition part so that in addition to the Red colour, addtional text text is added to another column. Eg say the selection is in Column A, if the CAPS word is found in cell A2 then B2 has '1' placed in it. This would allow a filter to be setup on Col B. Many thanks for any help "Jason Morin" wrote: Select your data and run this macro: Sub OnlyUpper() Dim cell As Range For Each cell In Selection If cell.Value = UCase(cell.Value) Then cell.Font.ColorIndex = 3 'make font color = red End If Next End Sub --- HTH Jason Atlanta, GA "Nexan" wrote: As part of a macro, I'd like to be able to identify and re-format only cells containing words in all caps. Is that doable? Thanks! |
#8
|
|||
|
|||
How can I search for words in all caps in Excel?
Try this:
Sub OnlyUpper() Dim cell As Range For Each cell In Selection If cell.Value = UCase(cell.Value) Then If cell.Value "" Then cell.Font.ColorIndex = 3 'make font color = red cell.Offset(0, 1).Value = 1 End If End If Next End Sub -- Biff Microsoft Excel MVP "NoelH" wrote in message ... Hi Jason I have found this old script and yes it works for me, However is it possible to have an addition part so that in addition to the Red colour, addtional text text is added to another column. Eg say the selection is in Column A, if the CAPS word is found in cell A2 then B2 has '1' placed in it. This would allow a filter to be setup on Col B. Many thanks for any help "Jason Morin" wrote: Select your data and run this macro: Sub OnlyUpper() Dim cell As Range For Each cell In Selection If cell.Value = UCase(cell.Value) Then cell.Font.ColorIndex = 3 'make font color = red End If Next End Sub --- HTH Jason Atlanta, GA "Nexan" wrote: As part of a macro, I'd like to be able to identify and re-format only cells containing words in all caps. Is that doable? Thanks! |
#10
|
|||
|
|||
How can I search for words in all caps in Excel?
Not Jason but here's a revision of his code.
Sub OnlyUpper() Dim cell As Range For Each cell In Selection If cell.Value = UCase(cell.Value) Then With cell .Font.ColorIndex = 3 'make font color = red .Offset(0, 1).Value = 1 End With End If Next End Sub Gord Dibben MS Excel MVP On Tue, 27 Nov 2007 15:55:01 -0800, NoelH wrote: Hi Jason I have found this old script and yes it works for me, However is it possible to have an addition part so that in addition to the Red colour, addtional text text is added to another column. Eg say the selection is in Column A, if the CAPS word is found in cell A2 then B2 has '1' placed in it. This would allow a filter to be setup on Col B. Many thanks for any help "Jason Morin" wrote: Select your data and run this macro: Sub OnlyUpper() Dim cell As Range For Each cell In Selection If cell.Value = UCase(cell.Value) Then cell.Font.ColorIndex = 3 'make font color = red End If Next End Sub --- HTH Jason Atlanta, GA "Nexan" wrote: As part of a macro, I'd like to be able to identify and re-format only cells containing words in all caps. Is that doable? Thanks! |
|
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
how do I search by more than one criteria in excel? | vulcan88 | Worksheet Functions | 2 | March 15th, 2005 09:18 PM |
Excel - How To Search For A Number In a Cell Containing Several Numbers | John | Worksheet Functions | 1 | April 29th, 2004 09:11 PM |