I've just send you. Thanks Pawel ________________________________ From: dguillett1 <dguille...@gmail.com> To: excel-macros@googlegroups.com Sent: Tuesday, August 7, 2012 7:49 PM Subject: Re: $$Excel-Macros$$ Re: Auto Filling of Color - Need Help
Or, if you do not know the name ON the shape and you don’t have the row in column C This gets the name and finds it in col c and uses the col d value in that row. Sub fillcolorSAS() Dim shp As Shape Dim mn As String Dim mr As Long With ThisWorkbook.Worksheets("sheet1") On Error Resume Next For Each shp In .Shapes mn = shp.TextFrame.Characters.Text mr = .Columns("C").Find(What:=mn, LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:=False, _ SearchFormat:=False).Row shp.Fill.ForeColor.RGB = .Cells(mr, "d").Interior.Color Next shp End With End Sub Don Guillett Microsoft Excel Developer SalesAid Software dguille...@gmail.com From: Prince Dubey Sent: Tuesday, August 07, 2012 12:46 PM To: excel-macros@googlegroups.com Subject: $$Excel-Macros$$ Re: Auto Filling of Color - Need Help Hi JP Please see the attachment. regards prince On Tuesday, August 7, 2012 2:30:26 PM UTC+5:30, Jayaprakash S wrote: Dear Experts, > >Good Noon. > >Need help in auto filling of Colours to the shapes as well.... >attached excel sheet for more information. > >Kindly Help & advise. > >Thank you. >JP. >-- Join official facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES (1120+ members already BANNED for violation) 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) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. 6) Jobs posting is not allowed. 7) Sharing copyrighted ebooks/pirated ebooks/their links is not allowed. NOTE : Don't ever post personal or 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 post to this group, send email to excel-macros@googlegroups.com. To unsubscribe from this group, send email to excel-macros+unsubscr...@googlegroups.com. -- Join official facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES (1120+ members already BANNED for violation) 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) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. 6) Jobs posting is not allowed. 7) Sharing copyrighted ebooks/pirated ebooks/their links is not allowed. NOTE : Don't ever post personal or 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 post to this group, send email to excel-macros@googlegroups.com. To unsubscribe from this group, send email to excel-macros+unsubscr...@googlegroups.com. -- Join official facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES (1120+ members already BANNED for violation) 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) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. 6) Jobs posting is not allowed. 7) Sharing copyrighted ebooks/pirated ebooks/their links is not allowed. NOTE : Don't ever post personal or 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 post to this group, send email to excel-macros@googlegroups.com. To unsubscribe from this group, send email to excel-macros+unsubscr...@googlegroups.com.