Thank you very much its working fine. :) On Fri, Jun 10, 2011 at 10:43 PM, GoldenLance <samde...@gmail.com> wrote:
> Just add .CurrentRegion immediately after With objArea > > so > > Sub CurRegLoopHighLightBorderTopBot() > > Dim objArea As Object > > For Each objArea In ActiveSheet.UsedRange.SpecialCells(2).Areas > With objArea.CurrentRegion: .Rows(1).Cells.Interior.Color = > 65535: .Rows(.Rows.Count).Cells.Interior.Color = 15773696: End With > Next > > End Sub > > On Jun 10, 12:10 pm, Chandra Shekar <chandrashekarb....@gmail.com> > wrote: > > Hi, > > > > Thanks for the reply, I am getting output like below but I need 2nd row > and > > last tow to be highlighted. Thanks! > > > > Count of CN Pty Sts Pty1 Pty2 Pty3 Pty4 Grand Total AR 4 8 > 4 > > 16 AD 1 2 3 CN 1 1 CE 2 3 5 DR 1 1 1 3 PA 1 1 4 1 7 Grand > > Total 1 6 17 11 35 > > > > > > > > > > > > > > > > On Thu, Jun 9, 2011 at 7:08 PM, GoldenLance <samde...@gmail.com> wrote: > > > Sub CurRegLoopHighLightBorderTopBot() > > > > > Dim objArea As Object > > > > > For Each objArea In ActiveSheet.UsedRange.SpecialCells(2).Areas > > > With objArea: .Rows(1).Cells.Interior.Color = > > > 65535: .Rows(.Rows.Count).Cells.Interior.Color = 15773696: End With > > > Next > > > > > End Sub > > > > > On Jun 9, 10:42 am, Chandra Shekar <chandrashekarb....@gmail.com> > > > wrote: > > > > Thanks for the reply. How to put loop if we have more than one > current > > > > region. Thanks! > > > > > > Regards, > > > > > > Chandra Shekar B > > > > > > On Wed, Jun 8, 2011 at 8:06 PM, Rajan_Verma < > rajanverma1...@gmail.com > > > >wrote: > > > > > > > HI > > > > > > > Please use this Code > > > > > > > Sub HighLight() > > > > > > > Dim rng As Range > > > > > > > ActiveCell.CurrentRegion.Select > > > > > > > Set rng = Selection > > > > > > > ActiveCell.Resize(1, rng.Columns.Count).Interior.Color = 15773695 > > > > > > > rng.Cells(rng.Rows.Count, 1).Resize(1, > > > rng.Columns.Count).Interior.Color = > > > > > 15773696 > > > > > > > End Sub > > > > > > > Rajan > > > > > > > *From:* excel-macros@googlegroups.com [mailto: > > > > > excel-macros@googlegroups.com] *On Behalf Of *Chandra Shekar > > > > > *Sent:* Wednesday, June 08, 2011 4:01 PM > > > > > *To:* excel-macros@googlegroups.com > > > > > *Subject:* $$Excel-Macros$$ Current Region > > > > > > > Hi, > > > > > > > Please find attached file here I want to highlight first and last > row > > > of > > > > > the region, Please let me know how to do this in VBA. > > > > > > > Thanks, > > > > > > > Chandra Shekar B > > > > > > > -- > > > > > > ---------------------------------------------------------------------------------- > > > > > 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 > > > > > -- > > > > > > ---------------------------------------------------------------------------------- > > > 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 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
