I haven't studied above macro provided by De Premor, Nice work!. You can make it better by collecting all the highlighted cells address in different worksheet Or you can also use application.Goto "Reference".
On Thu, Jun 20, 2013 at 1:07 PM, De Premor <[email protected]> wrote: > How about this macro, is this still to slow for your requirement ? > > Sub HiLightSelect() > Dim HiSelect As String > On Error Resume Next > For Each i In Selection > If Len(HiSelect) = 0 Then HiSelect = i.Address Else HiSelect = > HiSelect & ", " & i.Address > Next > Cells(2, 5) = HiSelect > End Sub > > Sub HiLightColor() > Dim HiColor As String > Range("B:B").Select > For Each i In Selection > If i.Interior.Color <> 16777215 Then '16777215 = White / None > If Len(HiColor) = 0 Then HiColor = i.AddressLocal Else HiColor > = HiColor & ", " & i.AddressLocal > End If > If i.Value2 = "" Then Exit For > Next > Cells(3, 5) = HiColor > End Sub > > > > On 19/06/2013 19:28, rajan verma wrote: > >> >> can anyone suggest a faster way to know which cells are highlighted in a >> Range ? >> >> suppose i have data of 1 lac cell and i have some cells highlighted , i >> want to know address of that cells. >> >> >> >> -- >> Regards >> Rajan verma >> +91 9158998701 >> -- >> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s >> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ >> https://www.facebook.com/**discussexcel<https://www.facebook.com/discussexcel> >> >> FORUM RULES >> >> 1) Use concise, accurate thread titles. Poor thread titles, like Please >> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice >> will not get quick attention or may not be answered. >> 2) Don't post a question in the thread of another member. >> 3) Don't post questions regarding breaking or bypassing any security >> measure. >> 4) Acknowledge the responses you receive, good or bad. >> 5) Jobs posting is not allowed. >> 6) Sharing copyrighted material and their links is not allowed. >> >> NOTE : Don't ever post confidential data in a workbook. Forum owners and >> members are not responsible for any loss. >> --- >> You received this message because you are subscribed to the Google Groups >> "MS EXCEL AND VBA MACROS" group. >> To unsubscribe from this group and stop receiving emails from it, send an >> email to >> excel-macros+unsubscribe@**googlegroups.com<excel-macros%[email protected]> >> . >> To post to this group, send email to [email protected]. >> Visit this group at >> http://groups.google.com/**group/excel-macros<http://groups.google.com/group/excel-macros> >> . >> For more options, visit >> https://groups.google.com/**groups/opt_out<https://groups.google.com/groups/opt_out> >> . >> >> >> > -- > Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s > =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ > https://www.facebook.com/**discussexcel<https://www.facebook.com/discussexcel> > > FORUM RULES > > 1) Use concise, accurate thread titles. Poor thread titles, like Please > Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice > will not get quick attention or may not be answered. > 2) Don't post a question in the thread of another member. > 3) Don't post questions regarding breaking or bypassing any security > measure. > 4) Acknowledge the responses you receive, good or bad. > 5) Jobs posting is not allowed. > 6) Sharing copyrighted material and their links is not allowed. > > NOTE : Don't ever post confidential data in a workbook. Forum owners and > members are not responsible for any loss. > --- You received this message because you are subscribed to the Google > Groups "MS EXCEL AND VBA MACROS" group. > To unsubscribe from this group and stop receiving emails from it, send an > email to > excel-macros+unsubscribe@**googlegroups.com<excel-macros%[email protected]> > . > To post to this group, send email to [email protected]. > Visit this group at > http://groups.google.com/**group/excel-macros<http://groups.google.com/group/excel-macros> > . > For more options, visit > https://groups.google.com/**groups/opt_out<https://groups.google.com/groups/opt_out> > . > > > -- Regards, Anoop Sr. Developer Facebook ID - https://www.facebook.com/anooop.k.sharma -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To unsubscribe from this group and stop receiving emails from it, send an email to [email protected]. To post to this group, send email to [email protected]. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out.
