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 silky...@gmail.comjavascript: 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, अनिल नारायण गवली gawlia...@gmail.comjavascript: 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 silky...@gmail.comjavascript: 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, अनिल नारायण गवली gawlia...@gmail.comjavascript: 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 amreshk...@gmail.comjavascript: 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 silky...@gmail.comjavascript: 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 javascript: 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 javascript: 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 silky...@gmail.comjavascript: 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
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 amreshkushw...@gmail.comwrote: 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 silkyro...@gmail.com 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
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.comwrote: 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.comwrote: 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 silkyro...@gmail.com 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 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
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 silkyro...@gmail.com 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 silkyro...@gmail.com 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
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 amreshkushw...@gmail.comwrote: 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 silkyro...@gmail.com 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 silkyro...@gmail.com 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)
Re: $$Excel-Macros$$ Getting Minimum no highlighted
Thanks Amresh On Wed, Jan 16, 2013 at 6:33 PM, Amresh Maurya amreshkushw...@gmail.comwrote: 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 silkyro...@gmail.com 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 silkyro...@gmail.com 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
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, अनिल नारायण गवली gawlianil8...@gmail.comwrote: 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 amreshkushw...@gmail.comwrote: 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 silkyro...@gmail.com 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 silkyro...@gmail.com 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
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 silkyro...@gmail.com 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 amreshkushw...@gmail.comwrote: 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 silkyro...@gmail.com 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 silkyro...@gmail.com 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
$$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
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 silkyro...@gmail.com 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
-- Forwarded message -- From: Amit Gandhi silkyro...@gmail.com 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