Re: $$Excel-Macros$$ Formula or macro to find a word that is all capitlaized
Hi
Try :
Use below formula in Conditional Formatting
=SUM(LEN(A1)-LEN(SUBSTITUTE(A1,CHAR(ROW(INDIRECT("65:90"))),"")))=3
Reference :http://dmcritchie.mvps.org/excel/strings.htm
Thanks
Mahesh
On Thu, Jul 28, 2011 at 3:39 AM, qcan wrote:
> Hi,
>
> Can anyone help me with some sort of formula or Macro that would
> identify any word (minmum 3 letters) that is all in caps. I would like
> whatever is found to be highlighted in yellow.
>
> Thanks.
>
> --
>
> --
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/discussexcel
>
--
--
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
Re: $$Excel-Macros$$ Formula or macro to find a word that is all capitlaized
Exzcellent guys. Amazing. Thanks. On Jul 28, 8:18 am, XLS S wrote: > Hey Ranjan qcan want if cell contain any 3 Capital letter then color hole > cell.but your solution color only first 3 letter ... > > On Thu, Jul 28, 2011 at 5:32 PM, Rajan_Verma wrote: > > > > > > > Hope it will Help you > > > Sub HighLight() > > > Application.ScreenUpdating = False > > On Error Resume Next > > Dim cell As Range > > Dim rng As Range > > Dim st As String > > Dim loc As Integer > > Dim n as string > > st = "" > > Set rng = ActiveSheet.UsedRange > > For Each cell In rng > > If cell.Value <> "" Then > > st = st & cell.Value > > End If > > Next > > > For i = 1 To Len(st) > > n = Mid(st, i, 1) & Mid(st, i + 1, 1) & Mid(st, i + 2, > > 1) > > If Asc(Mid(n, 1, 1)) > 64 And Asc(Mid(n, 1, 1)) < 91 And > > Asc(Mid(n, 2, 1)) > 64 And Asc(Mid(n, 2, 1)) < 91 And Asc(Mid(n, 3, 1)) > > > 64 > > And Asc(Mid(n, 3, 1)) < 91 Then > > > Cells.Find(What:=n, After:=ActiveCell, > > LookIn:=xlFormulas, LookAt:= _ > > xlPart, SearchOrder:=xlByRows, > > SearchDirection:=xlNext, MatchCase:=False _ > > , SearchFormat:=False).Activate > > loc = WorksheetFunction.Find(n, > > ActiveCell.Value, 1) > > ActiveCell.Characters(loc, 3).Font.ColorIndex = 26 > > ActiveCell.Characters(loc, 3).Font.Bold = True > > i = i + 3 > > End If > > Next > > > Application.ScreenUpdating = True > > > End Sub > > > -Original Message- > > From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] > > On Behalf Of qcan > > Sent: Thursday, July 28, 2011 3:40 AM > > To: MS EXCEL AND VBA MACROS > > Subject: $$Excel-Macros$$ Formula or macro to find a word that is all > > capitlaized > > > Hi, > > > Can anyone help me with some sort of formula or Macro that would > > identify any word (minmum 3 letters) that is all in caps. I would like > > whatever is found to be highlighted in yellow. > > > Thanks. > > > -- > > > ---- > > -- > > Some important links for excel users: > > 1. Follow us on TWITTER for tips tricks and links : > >http://twitter.com/exceldailytip > > 2. Join our LinkedIN group @http://www.linkedin.com/groups?gid=1871310 > > 3. Excel tutorials athttp://www.excel-macros.blogspot.com > > 4. Learn VBA Macros athttp://www.quickvba.blogspot.com > > 5. Excel Tips and Tricks athttp://exceldailytip.blogspot.com > > > To post to this group, send email to excel-macros@googlegroups.com > > > <><><><><><><><><><><><><><><><><><><><><><> > > Like our page on facebook , Just follow below link > >http://www.facebook.com/discussexcel > > > -- > > > ------ > > Some important links for excel users: > > 1. Follow us on TWITTER for tips tricks and links : > >http://twitter.com/exceldailytip > > 2. Join our LinkedIN group @http://www.linkedin.com/groups?gid=1871310 > > 3. Excel tutorials athttp://www.excel-macros.blogspot.com > > 4. Learn VBA Macros athttp://www.quickvba.blogspot.com > > 5. Excel Tips and Tricks athttp://exceldailytip.blogspot.com > > > To post to this group, send email to excel-macros@googlegroups.com > > > <><><><><><><><><><><><><><><><><><><><><><> > > Like our page on facebook , Just follow below link > >http://www.facebook.com/discussexcel > > -- > .- Hide quoted text - > > - Show quoted text - -- -- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel
Re: $$Excel-Macros$$ Formula or macro to find a word that is all capitlaized
Hey Ranjan qcan want if cell contain any 3 Capital letter then color hole cell.but your solution color only first 3 letter ... On Thu, Jul 28, 2011 at 5:32 PM, Rajan_Verma wrote: > Hope it will Help you > > Sub HighLight() > > Application.ScreenUpdating = False > On Error Resume Next >Dim cell As Range >Dim rng As Range >Dim st As String >Dim loc As Integer > Dim n as string >st = "" >Set rng = ActiveSheet.UsedRange >For Each cell In rng >If cell.Value <> "" Then >st = st & cell.Value >End If >Next > >For i = 1 To Len(st) >n = Mid(st, i, 1) & Mid(st, i + 1, 1) & Mid(st, i + 2, > 1) >If Asc(Mid(n, 1, 1)) > 64 And Asc(Mid(n, 1, 1)) < 91 And > Asc(Mid(n, 2, 1)) > 64 And Asc(Mid(n, 2, 1)) < 91 And Asc(Mid(n, 3, 1)) > > 64 > And Asc(Mid(n, 3, 1)) < 91 Then > > >Cells.Find(What:=n, After:=ActiveCell, > LookIn:=xlFormulas, LookAt:= _ >xlPart, SearchOrder:=xlByRows, > SearchDirection:=xlNext, MatchCase:=False _ >, SearchFormat:=False).Activate >loc = WorksheetFunction.Find(n, > ActiveCell.Value, 1) >ActiveCell.Characters(loc, 3).Font.ColorIndex = 26 >ActiveCell.Characters(loc, 3).Font.Bold = True >i = i + 3 > End If >Next > >Application.ScreenUpdating = True > > End Sub > > -Original Message- > From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] > On Behalf Of qcan > Sent: Thursday, July 28, 2011 3:40 AM > To: MS EXCEL AND VBA MACROS > Subject: $$Excel-Macros$$ Formula or macro to find a word that is all > capitlaized > > Hi, > > Can anyone help me with some sort of formula or Macro that would > identify any word (minmum 3 letters) that is all in caps. I would like > whatever is found to be highlighted in yellow. > > Thanks. > > -- > > > -- > Some important links for excel users: > 1. Follow us on TWITTER for tips tricks and links : > http://twitter.com/exceldailytip > 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 > 3. Excel tutorials at http://www.excel-macros.blogspot.com > 4. Learn VBA Macros at http://www.quickvba.blogspot.com > 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com > > To post to this group, send email to excel-macros@googlegroups.com > > <><><><><><><><><><><><><><><><><><><><><><> > Like our page on facebook , Just follow below link > http://www.facebook.com/discussexcel > > -- > > -- > Some important links for excel users: > 1. Follow us on TWITTER for tips tricks and links : > http://twitter.com/exceldailytip > 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 > 3. Excel tutorials at http://www.excel-macros.blogspot.com > 4. Learn VBA Macros at http://www.quickvba.blogspot.com > 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com > > To post to this group, send email to excel-macros@googlegroups.com > > <><><><><><><><><><><><><><><><><><><><><><> > Like our page on facebook , Just follow below link > http://www.facebook.com/discussexcel > -- . -- -- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel
RE: $$Excel-Macros$$ Formula or macro to find a word that is all capitlaized
Hope it will Help you Sub HighLight() Application.ScreenUpdating = False On Error Resume Next Dim cell As Range Dim rng As Range Dim st As String Dim loc As Integer Dim n as string st = "" Set rng = ActiveSheet.UsedRange For Each cell In rng If cell.Value <> "" Then st = st & cell.Value End If Next For i = 1 To Len(st) n = Mid(st, i, 1) & Mid(st, i + 1, 1) & Mid(st, i + 2, 1) If Asc(Mid(n, 1, 1)) > 64 And Asc(Mid(n, 1, 1)) < 91 And Asc(Mid(n, 2, 1)) > 64 And Asc(Mid(n, 2, 1)) < 91 And Asc(Mid(n, 3, 1)) > 64 And Asc(Mid(n, 3, 1)) < 91 Then Cells.Find(What:=n, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate loc = WorksheetFunction.Find(n, ActiveCell.Value, 1) ActiveCell.Characters(loc, 3).Font.ColorIndex = 26 ActiveCell.Characters(loc, 3).Font.Bold = True i = i + 3 End If Next Application.ScreenUpdating = True End Sub -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of qcan Sent: Thursday, July 28, 2011 3:40 AM To: MS EXCEL AND VBA MACROS Subject: $$Excel-Macros$$ Formula or macro to find a word that is all capitlaized Hi, Can anyone help me with some sort of formula or Macro that would identify any word (minmum 3 letters) that is all in caps. I would like whatever is found to be highlighted in yellow. Thanks. -- -- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel -- -- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel GiveCOlor.xlsm Description: application/vnd.ms-excel.sheet.macroenabled.12
