Re: $$Excel-Macros$$ Getting Minimum no highlighted
Hi Amit, Please share your workbook and tell the criteria of the conditional formatting. Regards Prince On Monday, January 21, 2013 10:44:13 AM UTC+5:30, Mitr wrote: > > Hi Anil > > Can you please help me in doing conditional formatting in this case. > > > Regards > > Amit > > > On Thu, Jan 17, 2013 at 4:54 PM, Amit Gandhi > > wrote: > >> Hi Anil >> >> Thanks for your efforts. >> >> But I want to highlight minimum of D5, H5, L5 ... D10, H10, L10 >> i.e. row wise Minimum. >> >> Your solution is highlighting column wise minimum i.e. col D's minimum, >> col H's minimum ... so on. >> >> Pls help me here. >> >> Regards >> >> Amit >> >> >> On Thu, Jan 17, 2013 at 12:37 PM, अनिल नारायण गवली >> >> > wrote: >> >>> Dear Amit >>> >>> >>> Pl see the attached file. Is is OK? >>> >>> Warm Regards, >>> Gawli Anil >>> >>> On Thu, Jan 17, 2013 at 11:23 AM, Amit Gandhi >>> >>> > wrote: >>> Thanks Anil I am following all below steps, but unable to apply right min formula. Can you please suggest what MIN formula to be applied based on attached sample file. Regards Amit On Thu, Jan 17, 2013 at 11:08 AM, अनिल नारायण गवली > wrote: > Dear Amit, > > First select the desire coloum and click on conditional formatting and > there select a new rule and then click on format only cell that contain. > there u'll find cellvalue,between,and two formula text box > change the text box of between to lessthanequalto and then the next > texbox write the min formula like =min(rangedesire) and then click on > format and apply the color on that cell and click on ok . > > > Warm Regards, > Gawli Anil > > On Wed, Jan 16, 2013 at 6:33 PM, Amresh Maurya > > > wrote: > >> PFA ATTACHED FILE. >> >> USE THIS CODE >> Sub minmm() >> Dim n As Integer >> Range("B5:B5").Select >> With Selection.Interior >> .PatternColorIndex = xlAutomatic >> .ThemeColor = xlThemeColorDark1 >> .TintAndShade = 0 >> .PatternTintAndShade = 0 >> End With >> n = 5 >> Sheet1.Cells(5, 14).Formula = "=MIN(RC[-10],RC[-6],RC[-2])" >> Sheet1.Range(Cells(5, 14), Cells(10, 14)).Select >> Selection.FillDown >> Sheet1.Range(Cells(5, 15), Cells(10, 15)) = >> >> "=IF(RC[-1]=RC[-3],""Suresh"",IF(RC[-7]=RC[-1],""mukesh"",IF(RC[-1]=RC[-11],""amit"")))" >> Sheet1.Range(Cells(5, 14), Cells(10, 15)).Copy >> ActiveCell.PasteSpecial xlPasteValues >> Application.CutCopyMode = False >> Range("o5").Select >> For s = 1 To 6 >> Cells(n, 15).Select >> If ActiveCell.Value = "Suresh" Then >> Cells(n, 12).Select >> With Selection.Interior >> .Pattern = xlSolid >> .PatternColorIndex = xlAutomatic >> .ThemeColor = xlThemeColorAccent6 >> .TintAndShade = -0.24997717893 >> .PatternTintAndShade = 0 >> End With >> Cells(n, 12).Select >> ElseIf ActiveCell.Value = "mukesh" Then >> Cells(n, 8).Select >> With Selection.Interior >> .Pattern = xlSolid >> .PatternColorIndex = xlAutomatic >> .ThemeColor = xlThemeColorAccent6 >> .TintAndShade = -0.24997717893 >> .PatternTintAndShade = 0 >> End With >>Cells(5, 12).Select >> ElseIf ActiveCell.Value = "amit" Then >> Cells(n, 4).Select >> With Selection.Interior >> .Pattern = xlSolid >> .PatternColorIndex = xlAutomatic >> .ThemeColor = xlThemeColorAccent6 >> .TintAndShade = -0.24997717893 >> .PatternTintAndShade = 0 >> End With >> End If >> n = n + 1 >>Next >>Range("a1").Select >> >> End Sub >> >> On Wed, Jan 16, 2013 at 4:57 PM, Amit Gandhi >> > >> wrote: >> > Thanks Anil >> > >> > But i am unable to do so? Can you show this in example file. >> > >> > Regards >> > >> > Amit >> > >> > >> > On Wed, Jan 16, 2013 at 2:03 PM, अनिल नारायण गवली < >> gawlia...@gmail.com > >> > wrote: >> >> >> >> Dear Amit, >> >> >> >> U can use conditional format for each col in that u can use format >> only >> >> rows that contain lessthanequalto and in formula write =min(range) >> and >> >> format cell color to desire color. >> >> >> >> Regards, >> >> Gawli Anil >> >> >> >> >> >> >> >> On Wed, Jan 16, 2013 at 1:24 PM, Amresh Maurya < >> amreshk...@gmail.com > >> >> wrote: >> >>> >> >>> Hello Amit, >> >>> >> >>> PFA file .Kindly use the below code. >> >>> >> >>> Sub minmm() >> >>> n = 5 >> >>> Sheet1.Cells(5, 14).Formula = "=MIN(RC[-10],RC[-6],RC[-2])" >> >>> Sheet1.Range(Cells(5, 14), Cells(10, 14)).Select >
Re: $$Excel-Macros$$ Getting Minimum no highlighted
Dear Amit Pl see the attached file. Is is OK? Warm Regards, Gawli Anil On Thu, Jan 17, 2013 at 11:23 AM, Amit Gandhi wrote: > Thanks Anil > > I am following all below steps, but unable to apply right min formula. Can > you please suggest what MIN formula to be applied based on attached sample > file. > > Regards > > Amit > > > On Thu, Jan 17, 2013 at 11:08 AM, अनिल नारायण गवली < > gawlianil8...@gmail.com> wrote: > >> Dear Amit, >> >> First select the desire coloum and click on conditional formatting and >> there select a new rule and then click on format only cell that contain. >> there u'll find cellvalue,between,and two formula text box >> change the text box of between to lessthanequalto and then the next >> texbox write the min formula like =min(rangedesire) and then click on >> format and apply the color on that cell and click on ok . >> >> >> Warm Regards, >> Gawli Anil >> >> On Wed, Jan 16, 2013 at 6:33 PM, Amresh Maurya >> wrote: >> >>> PFA ATTACHED FILE. >>> >>> USE THIS CODE >>> Sub minmm() >>> Dim n As Integer >>> Range("B5:B5").Select >>> With Selection.Interior >>> .PatternColorIndex = xlAutomatic >>> .ThemeColor = xlThemeColorDark1 >>> .TintAndShade = 0 >>> .PatternTintAndShade = 0 >>> End With >>> n = 5 >>> Sheet1.Cells(5, 14).Formula = "=MIN(RC[-10],RC[-6],RC[-2])" >>> Sheet1.Range(Cells(5, 14), Cells(10, 14)).Select >>> Selection.FillDown >>> Sheet1.Range(Cells(5, 15), Cells(10, 15)) = >>> >>> "=IF(RC[-1]=RC[-3],""Suresh"",IF(RC[-7]=RC[-1],""mukesh"",IF(RC[-1]=RC[-11],""amit"")))" >>> Sheet1.Range(Cells(5, 14), Cells(10, 15)).Copy >>> ActiveCell.PasteSpecial xlPasteValues >>> Application.CutCopyMode = False >>> Range("o5").Select >>> For s = 1 To 6 >>> Cells(n, 15).Select >>> If ActiveCell.Value = "Suresh" Then >>> Cells(n, 12).Select >>> With Selection.Interior >>> .Pattern = xlSolid >>> .PatternColorIndex = xlAutomatic >>> .ThemeColor = xlThemeColorAccent6 >>> .TintAndShade = -0.24997717893 >>> .PatternTintAndShade = 0 >>> End With >>> Cells(n, 12).Select >>> ElseIf ActiveCell.Value = "mukesh" Then >>> Cells(n, 8).Select >>> With Selection.Interior >>> .Pattern = xlSolid >>> .PatternColorIndex = xlAutomatic >>> .ThemeColor = xlThemeColorAccent6 >>> .TintAndShade = -0.24997717893 >>> .PatternTintAndShade = 0 >>> End With >>>Cells(5, 12).Select >>> ElseIf ActiveCell.Value = "amit" Then >>> Cells(n, 4).Select >>> With Selection.Interior >>> .Pattern = xlSolid >>> .PatternColorIndex = xlAutomatic >>> .ThemeColor = xlThemeColorAccent6 >>> .TintAndShade = -0.24997717893 >>> .PatternTintAndShade = 0 >>> End With >>> End If >>> n = n + 1 >>>Next >>>Range("a1").Select >>> >>> End Sub >>> >>> On Wed, Jan 16, 2013 at 4:57 PM, Amit Gandhi >>> wrote: >>> > Thanks Anil >>> > >>> > But i am unable to do so? Can you show this in example file. >>> > >>> > Regards >>> > >>> > Amit >>> > >>> > >>> > On Wed, Jan 16, 2013 at 2:03 PM, अनिल नारायण गवली < >>> gawlianil8...@gmail.com> >>> > wrote: >>> >> >>> >> Dear Amit, >>> >> >>> >> U can use conditional format for each col in that u can use format >>> only >>> >> rows that contain lessthanequalto and in formula write =min(range) and >>> >> format cell color to desire color. >>> >> >>> >> Regards, >>> >> Gawli Anil >>> >> >>> >> >>> >> >>> >> On Wed, Jan 16, 2013 at 1:24 PM, Amresh Maurya < >>> amreshkushw...@gmail.com> >>> >> wrote: >>> >>> >>> >>> Hello Amit, >>> >>> >>> >>> PFA file .Kindly use the below code. >>> >>> >>> >>> Sub minmm() >>> >>> n = 5 >>> >>> Sheet1.Cells(5, 14).Formula = "=MIN(RC[-10],RC[-6],RC[-2])" >>> >>> Sheet1.Range(Cells(5, 14), Cells(10, 14)).Select >>> >>> Selection.FillDown >>> >>> Sheet1.Range(Cells(5, 15), Cells(10, 15)) = >>> >>> >>> >>> >>> "=IF(RC[-1]=RC[-3],""Suresh"",IF(RC[-7]=RC[-1],""mukesh"",IF(RC[-1]=RC[-11],""amit"")))" >>> >>> Sheet1.Range(Cells(5, 14), Cells(10, 15)).Copy >>> >>> ActiveCell.PasteSpecial xlPasteValues >>> >>> Application.CutCopyMode = False >>> >>> Range("n4").Select >>> >>> End Sub >>> >>> >>> >>> Regards >>> >>> Amresh >>> >>> >>> >>> On Wed, Jan 16, 2013 at 12:31 PM, Amit Gandhi >>> >>> wrote: >>> >>> > Hi Experts >>> >>> > >>> >>> > I have some data and I have get minimum no out of that by MIN >>> formula. >>> >>> > Now I >>> >>> > want a formula or VBA macro to do following. >>> >>> > >>> >>> > 1. Minimum of column D, H, L gets highlighted as shown above. >>> >>> > 2. Minimum's name is mentioned against each cell in column O. >>> >>> > >>> >>> > Pls see sample file attached. >>> >>> > >>> >>> > Pls help me here. >>> >>> > >>> >>> > Regards >>> >>> > >>> >>> > Amit >>> >>> > >>> >>> > -- >>> >>> > Join official Facebook page of this forum @ >>> >>> > https://www.facebook.com/discussexcel >>> >>> > >>> >>> > FORUM RULES >>> >>> > >>> >>> > 1) Use concise, accurate thread title
Re: $$Excel-Macros$$ Getting Minimum no highlighted
Thanks Anil I am following all below steps, but unable to apply right min formula. Can you please suggest what MIN formula to be applied based on attached sample file. Regards Amit On Thu, Jan 17, 2013 at 11:08 AM, अनिल नारायण गवली wrote: > Dear Amit, > > First select the desire coloum and click on conditional formatting and > there select a new rule and then click on format only cell that contain. > there u'll find cellvalue,between,and two formula text box > change the text box of between to lessthanequalto and then the next texbox > write the min formula like =min(rangedesire) and then click on format and > apply the color on that cell and click on ok . > > > Warm Regards, > Gawli Anil > > On Wed, Jan 16, 2013 at 6:33 PM, Amresh Maurya > wrote: > >> PFA ATTACHED FILE. >> >> USE THIS CODE >> Sub minmm() >> Dim n As Integer >> Range("B5:B5").Select >> With Selection.Interior >> .PatternColorIndex = xlAutomatic >> .ThemeColor = xlThemeColorDark1 >> .TintAndShade = 0 >> .PatternTintAndShade = 0 >> End With >> n = 5 >> Sheet1.Cells(5, 14).Formula = "=MIN(RC[-10],RC[-6],RC[-2])" >> Sheet1.Range(Cells(5, 14), Cells(10, 14)).Select >> Selection.FillDown >> Sheet1.Range(Cells(5, 15), Cells(10, 15)) = >> >> "=IF(RC[-1]=RC[-3],""Suresh"",IF(RC[-7]=RC[-1],""mukesh"",IF(RC[-1]=RC[-11],""amit"")))" >> Sheet1.Range(Cells(5, 14), Cells(10, 15)).Copy >> ActiveCell.PasteSpecial xlPasteValues >> Application.CutCopyMode = False >> Range("o5").Select >> For s = 1 To 6 >> Cells(n, 15).Select >> If ActiveCell.Value = "Suresh" Then >> Cells(n, 12).Select >> With Selection.Interior >> .Pattern = xlSolid >> .PatternColorIndex = xlAutomatic >> .ThemeColor = xlThemeColorAccent6 >> .TintAndShade = -0.24997717893 >> .PatternTintAndShade = 0 >> End With >> Cells(n, 12).Select >> ElseIf ActiveCell.Value = "mukesh" Then >> Cells(n, 8).Select >> With Selection.Interior >> .Pattern = xlSolid >> .PatternColorIndex = xlAutomatic >> .ThemeColor = xlThemeColorAccent6 >> .TintAndShade = -0.24997717893 >> .PatternTintAndShade = 0 >> End With >>Cells(5, 12).Select >> ElseIf ActiveCell.Value = "amit" Then >> Cells(n, 4).Select >> With Selection.Interior >> .Pattern = xlSolid >> .PatternColorIndex = xlAutomatic >> .ThemeColor = xlThemeColorAccent6 >> .TintAndShade = -0.24997717893 >> .PatternTintAndShade = 0 >> End With >> End If >> n = n + 1 >>Next >>Range("a1").Select >> >> End Sub >> >> On Wed, Jan 16, 2013 at 4:57 PM, Amit Gandhi >> wrote: >> > Thanks Anil >> > >> > But i am unable to do so? Can you show this in example file. >> > >> > Regards >> > >> > Amit >> > >> > >> > On Wed, Jan 16, 2013 at 2:03 PM, अनिल नारायण गवली < >> gawlianil8...@gmail.com> >> > wrote: >> >> >> >> Dear Amit, >> >> >> >> U can use conditional format for each col in that u can use format only >> >> rows that contain lessthanequalto and in formula write =min(range) and >> >> format cell color to desire color. >> >> >> >> Regards, >> >> Gawli Anil >> >> >> >> >> >> >> >> On Wed, Jan 16, 2013 at 1:24 PM, Amresh Maurya < >> amreshkushw...@gmail.com> >> >> wrote: >> >>> >> >>> Hello Amit, >> >>> >> >>> PFA file .Kindly use the below code. >> >>> >> >>> Sub minmm() >> >>> n = 5 >> >>> Sheet1.Cells(5, 14).Formula = "=MIN(RC[-10],RC[-6],RC[-2])" >> >>> Sheet1.Range(Cells(5, 14), Cells(10, 14)).Select >> >>> Selection.FillDown >> >>> Sheet1.Range(Cells(5, 15), Cells(10, 15)) = >> >>> >> >>> >> "=IF(RC[-1]=RC[-3],""Suresh"",IF(RC[-7]=RC[-1],""mukesh"",IF(RC[-1]=RC[-11],""amit"")))" >> >>> Sheet1.Range(Cells(5, 14), Cells(10, 15)).Copy >> >>> ActiveCell.PasteSpecial xlPasteValues >> >>> Application.CutCopyMode = False >> >>> Range("n4").Select >> >>> End Sub >> >>> >> >>> Regards >> >>> Amresh >> >>> >> >>> On Wed, Jan 16, 2013 at 12:31 PM, Amit Gandhi >> >>> wrote: >> >>> > Hi Experts >> >>> > >> >>> > I have some data and I have get minimum no out of that by MIN >> formula. >> >>> > Now I >> >>> > want a formula or VBA macro to do following. >> >>> > >> >>> > 1. Minimum of column D, H, L gets highlighted as shown above. >> >>> > 2. Minimum's name is mentioned against each cell in column O. >> >>> > >> >>> > Pls see sample file attached. >> >>> > >> >>> > Pls help me here. >> >>> > >> >>> > Regards >> >>> > >> >>> > Amit >> >>> > >> >>> > -- >> >>> > 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 >>
Re: $$Excel-Macros$$ Getting Minimum no highlighted
Thanks Amresh On Wed, Jan 16, 2013 at 6:33 PM, Amresh Maurya wrote: > PFA ATTACHED FILE. > > USE THIS CODE > Sub minmm() > Dim n As Integer > Range("B5:B5").Select > With Selection.Interior > .PatternColorIndex = xlAutomatic > .ThemeColor = xlThemeColorDark1 > .TintAndShade = 0 > .PatternTintAndShade = 0 > End With > n = 5 > Sheet1.Cells(5, 14).Formula = "=MIN(RC[-10],RC[-6],RC[-2])" > Sheet1.Range(Cells(5, 14), Cells(10, 14)).Select > Selection.FillDown > Sheet1.Range(Cells(5, 15), Cells(10, 15)) = > > "=IF(RC[-1]=RC[-3],""Suresh"",IF(RC[-7]=RC[-1],""mukesh"",IF(RC[-1]=RC[-11],""amit"")))" > Sheet1.Range(Cells(5, 14), Cells(10, 15)).Copy > ActiveCell.PasteSpecial xlPasteValues > Application.CutCopyMode = False > Range("o5").Select > For s = 1 To 6 > Cells(n, 15).Select > If ActiveCell.Value = "Suresh" Then > Cells(n, 12).Select > With Selection.Interior > .Pattern = xlSolid > .PatternColorIndex = xlAutomatic > .ThemeColor = xlThemeColorAccent6 > .TintAndShade = -0.24997717893 > .PatternTintAndShade = 0 > End With > Cells(n, 12).Select > ElseIf ActiveCell.Value = "mukesh" Then > Cells(n, 8).Select > With Selection.Interior > .Pattern = xlSolid > .PatternColorIndex = xlAutomatic > .ThemeColor = xlThemeColorAccent6 > .TintAndShade = -0.24997717893 > .PatternTintAndShade = 0 > End With >Cells(5, 12).Select > ElseIf ActiveCell.Value = "amit" Then > Cells(n, 4).Select > With Selection.Interior > .Pattern = xlSolid > .PatternColorIndex = xlAutomatic > .ThemeColor = xlThemeColorAccent6 > .TintAndShade = -0.24997717893 > .PatternTintAndShade = 0 > End With > End If > n = n + 1 >Next >Range("a1").Select > > End Sub > > On Wed, Jan 16, 2013 at 4:57 PM, Amit Gandhi wrote: > > Thanks Anil > > > > But i am unable to do so? Can you show this in example file. > > > > Regards > > > > Amit > > > > > > On Wed, Jan 16, 2013 at 2:03 PM, अनिल नारायण गवली < > gawlianil8...@gmail.com> > > wrote: > >> > >> Dear Amit, > >> > >> U can use conditional format for each col in that u can use format only > >> rows that contain lessthanequalto and in formula write =min(range) and > >> format cell color to desire color. > >> > >> Regards, > >> Gawli Anil > >> > >> > >> > >> On Wed, Jan 16, 2013 at 1:24 PM, Amresh Maurya < > amreshkushw...@gmail.com> > >> wrote: > >>> > >>> Hello Amit, > >>> > >>> PFA file .Kindly use the below code. > >>> > >>> Sub minmm() > >>> n = 5 > >>> Sheet1.Cells(5, 14).Formula = "=MIN(RC[-10],RC[-6],RC[-2])" > >>> Sheet1.Range(Cells(5, 14), Cells(10, 14)).Select > >>> Selection.FillDown > >>> Sheet1.Range(Cells(5, 15), Cells(10, 15)) = > >>> > >>> > "=IF(RC[-1]=RC[-3],""Suresh"",IF(RC[-7]=RC[-1],""mukesh"",IF(RC[-1]=RC[-11],""amit"")))" > >>> Sheet1.Range(Cells(5, 14), Cells(10, 15)).Copy > >>> ActiveCell.PasteSpecial xlPasteValues > >>> Application.CutCopyMode = False > >>> Range("n4").Select > >>> End Sub > >>> > >>> Regards > >>> Amresh > >>> > >>> On Wed, Jan 16, 2013 at 12:31 PM, Amit Gandhi > >>> wrote: > >>> > Hi Experts > >>> > > >>> > I have some data and I have get minimum no out of that by MIN > formula. > >>> > Now I > >>> > want a formula or VBA macro to do following. > >>> > > >>> > 1. Minimum of column D, H, L gets highlighted as shown above. > >>> > 2. Minimum's name is mentioned against each cell in column O. > >>> > > >>> > Pls see sample file attached. > >>> > > >>> > Pls help me here. > >>> > > >>> > Regards > >>> > > >>> > Amit > >>> > > >>> > -- > >>> > 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 post to this group, send email to excel-macros@googlegroups.com. > >>> > To unsubscribe from this group, send email to > >>> > excel-macros+unsubscr...@googlegroups.com. > >>> > Visit this group at > http://groups.google.com/group/excel-macros?hl=en. > >>> > > >>> > > >>> > >>> -- > >>> Join official Facebook page of this forum @ > >>> https://www.face
Re: $$Excel-Macros$$ Getting Minimum no highlighted
Dear Amit, First select the desire coloum and click on conditional formatting and there select a new rule and then click on format only cell that contain. there u'll find cellvalue,between,and two formula text box change the text box of between to lessthanequalto and then the next texbox write the min formula like =min(rangedesire) and then click on format and apply the color on that cell and click on ok . Warm Regards, Gawli Anil On Wed, Jan 16, 2013 at 6:33 PM, Amresh Maurya wrote: > PFA ATTACHED FILE. > > USE THIS CODE > Sub minmm() > Dim n As Integer > Range("B5:B5").Select > With Selection.Interior > .PatternColorIndex = xlAutomatic > .ThemeColor = xlThemeColorDark1 > .TintAndShade = 0 > .PatternTintAndShade = 0 > End With > n = 5 > Sheet1.Cells(5, 14).Formula = "=MIN(RC[-10],RC[-6],RC[-2])" > Sheet1.Range(Cells(5, 14), Cells(10, 14)).Select > Selection.FillDown > Sheet1.Range(Cells(5, 15), Cells(10, 15)) = > > "=IF(RC[-1]=RC[-3],""Suresh"",IF(RC[-7]=RC[-1],""mukesh"",IF(RC[-1]=RC[-11],""amit"")))" > Sheet1.Range(Cells(5, 14), Cells(10, 15)).Copy > ActiveCell.PasteSpecial xlPasteValues > Application.CutCopyMode = False > Range("o5").Select > For s = 1 To 6 > Cells(n, 15).Select > If ActiveCell.Value = "Suresh" Then > Cells(n, 12).Select > With Selection.Interior > .Pattern = xlSolid > .PatternColorIndex = xlAutomatic > .ThemeColor = xlThemeColorAccent6 > .TintAndShade = -0.24997717893 > .PatternTintAndShade = 0 > End With > Cells(n, 12).Select > ElseIf ActiveCell.Value = "mukesh" Then > Cells(n, 8).Select > With Selection.Interior > .Pattern = xlSolid > .PatternColorIndex = xlAutomatic > .ThemeColor = xlThemeColorAccent6 > .TintAndShade = -0.24997717893 > .PatternTintAndShade = 0 > End With >Cells(5, 12).Select > ElseIf ActiveCell.Value = "amit" Then > Cells(n, 4).Select > With Selection.Interior > .Pattern = xlSolid > .PatternColorIndex = xlAutomatic > .ThemeColor = xlThemeColorAccent6 > .TintAndShade = -0.24997717893 > .PatternTintAndShade = 0 > End With > End If > n = n + 1 >Next >Range("a1").Select > > End Sub > > On Wed, Jan 16, 2013 at 4:57 PM, Amit Gandhi wrote: > > Thanks Anil > > > > But i am unable to do so? Can you show this in example file. > > > > Regards > > > > Amit > > > > > > On Wed, Jan 16, 2013 at 2:03 PM, अनिल नारायण गवली < > gawlianil8...@gmail.com> > > wrote: > >> > >> Dear Amit, > >> > >> U can use conditional format for each col in that u can use format only > >> rows that contain lessthanequalto and in formula write =min(range) and > >> format cell color to desire color. > >> > >> Regards, > >> Gawli Anil > >> > >> > >> > >> On Wed, Jan 16, 2013 at 1:24 PM, Amresh Maurya < > amreshkushw...@gmail.com> > >> wrote: > >>> > >>> Hello Amit, > >>> > >>> PFA file .Kindly use the below code. > >>> > >>> Sub minmm() > >>> n = 5 > >>> Sheet1.Cells(5, 14).Formula = "=MIN(RC[-10],RC[-6],RC[-2])" > >>> Sheet1.Range(Cells(5, 14), Cells(10, 14)).Select > >>> Selection.FillDown > >>> Sheet1.Range(Cells(5, 15), Cells(10, 15)) = > >>> > >>> > "=IF(RC[-1]=RC[-3],""Suresh"",IF(RC[-7]=RC[-1],""mukesh"",IF(RC[-1]=RC[-11],""amit"")))" > >>> Sheet1.Range(Cells(5, 14), Cells(10, 15)).Copy > >>> ActiveCell.PasteSpecial xlPasteValues > >>> Application.CutCopyMode = False > >>> Range("n4").Select > >>> End Sub > >>> > >>> Regards > >>> Amresh > >>> > >>> On Wed, Jan 16, 2013 at 12:31 PM, Amit Gandhi > >>> wrote: > >>> > Hi Experts > >>> > > >>> > I have some data and I have get minimum no out of that by MIN > formula. > >>> > Now I > >>> > want a formula or VBA macro to do following. > >>> > > >>> > 1. Minimum of column D, H, L gets highlighted as shown above. > >>> > 2. Minimum's name is mentioned against each cell in column O. > >>> > > >>> > Pls see sample file attached. > >>> > > >>> > Pls help me here. > >>> > > >>> > Regards > >>> > > >>> > Amit > >>> > > >>> > -- > >>> > 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 Googl
Re: $$Excel-Macros$$ Getting Minimum no highlighted
PFA ATTACHED FILE. USE THIS CODE Sub minmm() Dim n As Integer Range("B5:B5").Select With Selection.Interior .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark1 .TintAndShade = 0 .PatternTintAndShade = 0 End With n = 5 Sheet1.Cells(5, 14).Formula = "=MIN(RC[-10],RC[-6],RC[-2])" Sheet1.Range(Cells(5, 14), Cells(10, 14)).Select Selection.FillDown Sheet1.Range(Cells(5, 15), Cells(10, 15)) = "=IF(RC[-1]=RC[-3],""Suresh"",IF(RC[-7]=RC[-1],""mukesh"",IF(RC[-1]=RC[-11],""amit"")))" Sheet1.Range(Cells(5, 14), Cells(10, 15)).Copy ActiveCell.PasteSpecial xlPasteValues Application.CutCopyMode = False Range("o5").Select For s = 1 To 6 Cells(n, 15).Select If ActiveCell.Value = "Suresh" Then Cells(n, 12).Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorAccent6 .TintAndShade = -0.24997717893 .PatternTintAndShade = 0 End With Cells(n, 12).Select ElseIf ActiveCell.Value = "mukesh" Then Cells(n, 8).Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorAccent6 .TintAndShade = -0.24997717893 .PatternTintAndShade = 0 End With Cells(5, 12).Select ElseIf ActiveCell.Value = "amit" Then Cells(n, 4).Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorAccent6 .TintAndShade = -0.24997717893 .PatternTintAndShade = 0 End With End If n = n + 1 Next Range("a1").Select End Sub On Wed, Jan 16, 2013 at 4:57 PM, Amit Gandhi wrote: > Thanks Anil > > But i am unable to do so? Can you show this in example file. > > Regards > > Amit > > > On Wed, Jan 16, 2013 at 2:03 PM, अनिल नारायण गवली > wrote: >> >> Dear Amit, >> >> U can use conditional format for each col in that u can use format only >> rows that contain lessthanequalto and in formula write =min(range) and >> format cell color to desire color. >> >> Regards, >> Gawli Anil >> >> >> >> On Wed, Jan 16, 2013 at 1:24 PM, Amresh Maurya >> wrote: >>> >>> Hello Amit, >>> >>> PFA file .Kindly use the below code. >>> >>> Sub minmm() >>> n = 5 >>> Sheet1.Cells(5, 14).Formula = "=MIN(RC[-10],RC[-6],RC[-2])" >>> Sheet1.Range(Cells(5, 14), Cells(10, 14)).Select >>> Selection.FillDown >>> Sheet1.Range(Cells(5, 15), Cells(10, 15)) = >>> >>> "=IF(RC[-1]=RC[-3],""Suresh"",IF(RC[-7]=RC[-1],""mukesh"",IF(RC[-1]=RC[-11],""amit"")))" >>> Sheet1.Range(Cells(5, 14), Cells(10, 15)).Copy >>> ActiveCell.PasteSpecial xlPasteValues >>> Application.CutCopyMode = False >>> Range("n4").Select >>> End Sub >>> >>> Regards >>> Amresh >>> >>> On Wed, Jan 16, 2013 at 12:31 PM, Amit Gandhi >>> wrote: >>> > Hi Experts >>> > >>> > I have some data and I have get minimum no out of that by MIN formula. >>> > Now I >>> > want a formula or VBA macro to do following. >>> > >>> > 1. Minimum of column D, H, L gets highlighted as shown above. >>> > 2. Minimum's name is mentioned against each cell in column O. >>> > >>> > Pls see sample file attached. >>> > >>> > Pls help me here. >>> > >>> > Regards >>> > >>> > Amit >>> > >>> > -- >>> > 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 post to this group, send email to excel-macros@googlegroups.com. >>> > To unsubscribe from this group, send email to >>> > excel-macros+unsubscr...@googlegroups.com. >>> > Visit this group at http://groups.google.com/group/excel-macros?hl=en. >>> > >>> > >>> >>> -- >>> 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 ba
Re: $$Excel-Macros$$ Getting Minimum no highlighted
Thanks Anil But i am unable to do so? Can you show this in example file. Regards Amit On Wed, Jan 16, 2013 at 2:03 PM, अनिल नारायण गवली wrote: > Dear Amit, > > U can use conditional format for each col in that u can use format only > rows that contain lessthanequalto and in formula write =min(range) and > format cell color to desire color. > > Regards, > Gawli Anil > > > > On Wed, Jan 16, 2013 at 1:24 PM, Amresh Maurya > wrote: > >> Hello Amit, >> >> PFA file .Kindly use the below code. >> >> Sub minmm() >> n = 5 >> Sheet1.Cells(5, 14).Formula = "=MIN(RC[-10],RC[-6],RC[-2])" >> Sheet1.Range(Cells(5, 14), Cells(10, 14)).Select >> Selection.FillDown >> Sheet1.Range(Cells(5, 15), Cells(10, 15)) = >> >> "=IF(RC[-1]=RC[-3],""Suresh"",IF(RC[-7]=RC[-1],""mukesh"",IF(RC[-1]=RC[-11],""amit"")))" >> Sheet1.Range(Cells(5, 14), Cells(10, 15)).Copy >> ActiveCell.PasteSpecial xlPasteValues >> Application.CutCopyMode = False >> Range("n4").Select >> End Sub >> >> Regards >> Amresh >> >> On Wed, Jan 16, 2013 at 12:31 PM, Amit Gandhi >> wrote: >> > Hi Experts >> > >> > I have some data and I have get minimum no out of that by MIN formula. >> Now I >> > want a formula or VBA macro to do following. >> > >> > 1. Minimum of column D, H, L gets highlighted as shown above. >> > 2. Minimum's name is mentioned against each cell in column O. >> > >> > Pls see sample file attached. >> > >> > Pls help me here. >> > >> > Regards >> > >> > Amit >> > >> > -- >> > 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 post to this group, send email to excel-macros@googlegroups.com. >> > To unsubscribe from this group, send email to >> > excel-macros+unsubscr...@googlegroups.com. >> > Visit this group at http://groups.google.com/group/excel-macros?hl=en. >> > >> > >> >> -- >> 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 post to this group, send email to excel-macros@googlegroups.com. >> To unsubscribe from this group, send email to >> excel-macros+unsubscr...@googlegroups.com. >> Visit this group at http://groups.google.com/group/excel-macros?hl=en. >> >> >> > > > -- > Thanks & Regards, > Gawli Anil Narayan > Software Developer, > Abacus Software Services Pvt Ltd > > -- > 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 post to this group, send email to excel-macros@googlegroups.com. > To unsubscribe from this group, send email to > excel-macros+unsubscr...@googlegroups.com. > Visit this group at http://groups.google.com/group/excel-macros?hl=en. > > > -- 'Expecting the world to treat u fairly c
Re: $$Excel-Macros$$ Getting Minimum no highlighted
Dear Amit, U can use conditional format for each col in that u can use format only rows that contain lessthanequalto and in formula write =min(range) and format cell color to desire color. Regards, Gawli Anil On Wed, Jan 16, 2013 at 1:24 PM, Amresh Maurya wrote: > Hello Amit, > > PFA file .Kindly use the below code. > > Sub minmm() > n = 5 > Sheet1.Cells(5, 14).Formula = "=MIN(RC[-10],RC[-6],RC[-2])" > Sheet1.Range(Cells(5, 14), Cells(10, 14)).Select > Selection.FillDown > Sheet1.Range(Cells(5, 15), Cells(10, 15)) = > > "=IF(RC[-1]=RC[-3],""Suresh"",IF(RC[-7]=RC[-1],""mukesh"",IF(RC[-1]=RC[-11],""amit"")))" > Sheet1.Range(Cells(5, 14), Cells(10, 15)).Copy > ActiveCell.PasteSpecial xlPasteValues > Application.CutCopyMode = False > Range("n4").Select > End Sub > > Regards > Amresh > > On Wed, Jan 16, 2013 at 12:31 PM, Amit Gandhi > wrote: > > Hi Experts > > > > I have some data and I have get minimum no out of that by MIN formula. > Now I > > want a formula or VBA macro to do following. > > > > 1. Minimum of column D, H, L gets highlighted as shown above. > > 2. Minimum's name is mentioned against each cell in column O. > > > > Pls see sample file attached. > > > > Pls help me here. > > > > Regards > > > > Amit > > > > -- > > 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 post to this group, send email to excel-macros@googlegroups.com. > > To unsubscribe from this group, send email to > > excel-macros+unsubscr...@googlegroups.com. > > Visit this group at http://groups.google.com/group/excel-macros?hl=en. > > > > > > -- > 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 post to this group, send email to excel-macros@googlegroups.com. > To unsubscribe from this group, send email to > excel-macros+unsubscr...@googlegroups.com. > Visit this group at http://groups.google.com/group/excel-macros?hl=en. > > > -- Thanks & Regards, Gawli Anil Narayan Software Developer, Abacus Software Services Pvt Ltd -- 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 post to this group, send email to excel-macros@googlegroups.com. To unsubscribe from this group, send email to excel-macros+unsubscr...@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros?hl=en.
Re: $$Excel-Macros$$ Getting Minimum no highlighted
Hello Amit, PFA file .Kindly use the below code. Sub minmm() n = 5 Sheet1.Cells(5, 14).Formula = "=MIN(RC[-10],RC[-6],RC[-2])" Sheet1.Range(Cells(5, 14), Cells(10, 14)).Select Selection.FillDown Sheet1.Range(Cells(5, 15), Cells(10, 15)) = "=IF(RC[-1]=RC[-3],""Suresh"",IF(RC[-7]=RC[-1],""mukesh"",IF(RC[-1]=RC[-11],""amit"")))" Sheet1.Range(Cells(5, 14), Cells(10, 15)).Copy ActiveCell.PasteSpecial xlPasteValues Application.CutCopyMode = False Range("n4").Select End Sub Regards Amresh On Wed, Jan 16, 2013 at 12:31 PM, Amit Gandhi wrote: > Hi Experts > > I have some data and I have get minimum no out of that by MIN formula. Now I > want a formula or VBA macro to do following. > > 1. Minimum of column D, H, L gets highlighted as shown above. > 2. Minimum's name is mentioned against each cell in column O. > > Pls see sample file attached. > > Pls help me here. > > Regards > > Amit > > -- > 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 post to this group, send email to excel-macros@googlegroups.com. > To unsubscribe from this group, send email to > excel-macros+unsubscr...@googlegroups.com. > Visit this group at http://groups.google.com/group/excel-macros?hl=en. > > -- 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 post to this group, send email to excel-macros@googlegroups.com. To unsubscribe from this group, send email to excel-macros+unsubscr...@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros?hl=en. GETTING MINIMUM NO.xlsm Description: Binary data
$$Excel-Macros$$ Getting Minimum no highlighted
Hi Experts I have some data and I have get minimum no out of that by MIN formula. Now I want a formula or VBA macro to do following. 1. Minimum of column D, H, L gets highlighted as shown above. 2. Minimum's name is mentioned against each cell in column O. Pls see sample file attached. Pls help me here. Regards Amit -- 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 post to this group, send email to excel-macros@googlegroups.com. To unsubscribe from this group, send email to excel-macros+unsubscr...@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros?hl=en. GETTING MINIMUM NO.xlsx Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
$$Excel-Macros$$ GETTING MINIMUM NO HIGHLIGHTED
-- Forwarded message -- From: Amit Gandhi Date: Tue, Jan 15, 2013 at 1:07 PM Subject: $$Excel-Macros$$ To: excel-macros@googlegroups.com Hi Experts I have some data and I have get minimum no out of that by MIN formula. Now I want a formula or VBA macro to do following. 1. Minimum of column D, H, L gets highlighted as shown above. 2. Minimum's name is mentioned against each cell in column O. Pls see sample file attached. Pls help me here. Regards Amit -- 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 post to this group, send email to excel-macros@googlegroups.com. To unsubscribe from this group, send email to excel-macros+unsubscr...@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros?hl=en. -- 'Expecting the world to treat u fairly coz u r a good person is like expecting the lion not to attack u coz u r a vegetarian. Think about it.' Take care Amit -- 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 post to this group, send email to excel-macros@googlegroups.com. To unsubscribe from this group, send email to excel-macros+unsubscr...@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros?hl=en. GETTING MINIMUM NO.xlsx Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet