$$Excel-Macros$$ Identifying Excel number format
Dear Excel Gurus, I have facing a peculiar problem related to number format. When I export any ledger from tally I got result as bellow Aditya Birla Memorial Hospital 3049.00 3049.00Aditya Enterprises 99521.00 101086.00 *1565.00 Cr* Airways Corporation 39363.80 Dr *39363.80 Dr* Airways Surgical Pvt Ltd 361446.45 Dr 959168.00 1133676.00 *186938.45 Dr* AL-SAMIYAH GROUP FOR MARKETING INT. TRADE 791326.00 883606.25 *92280.25 Cr* Al-Wafigroup for Marketing Int'l Trade Co. 743036.00 754572.48 *11536.48 Cr* Now, the custom number format for negative number is *0.00 Cr* and for positive number is *0.00 Dr. (I have also attached herewith the file for your reference.)* * * Again, I have tried to build a macro with my limited VBA knowledge but it is not working as variable b is not changing according to the current cursor location. I am pasting what i have tried. Sub format() a = Range(e15).NumberFormat ' *i want this b shall change value according to the new destination i.e.* *' _want to make it as variable according to the new cell format.* b = ActiveCell.NumberFormat Do ActiveCell.Offset(1, 0).Select If a = b Then ActiveCell.Offset(0, 1).Select ActiveCell.Formula = ActiveCell.Offset(0, -1) * -1 ActiveCell.Offset(0, -1).Select Else ActiveCell.Offset(0, 1).Select ActiveCell.Formula = ActiveCell.Offset(0, -1) * 1 ActiveCell.Offset(0, -1).Select End If Loop Until ActiveCell.Offset(0, -4).Value = End Sub * * Please Help me out. Thanks in advance. -- Regards, Sandeep Kumar Chhajer. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out. dr cr.xlsb Description: Binary data
Re: $$Excel-Macros$$ Identifying Excel number format
can u share the orginal file On Sat, Oct 5, 2013 at 12:53 PM, Sandeep Chhajer chhajersand...@gmail.comwrote: Dear Excel Gurus, I have facing a peculiar problem related to number format. When I export any ledger from tally I got result as bellow Aditya Birla Memorial Hospital 3049.00 3049.00Aditya Enterprises 99521.00 101086.00 *1565.00 Cr* Airways Corporation 39363.80 Dr *39363.80 Dr* Airways Surgical Pvt Ltd 361446.45 Dr 959168.00 1133676.00 *186938.45 Dr* AL-SAMIYAH GROUP FOR MARKETING INT. TRADE 791326.00 883606.25 *92280.25 Cr* Al-Wafigroup for Marketing Int'l Trade Co. 743036.00 754572.48 *11536.48 Cr* Now, the custom number format for negative number is *0.00 Cr* and for positive number is *0.00 Dr. (I have also attached herewith the file for your reference.)* * * Again, I have tried to build a macro with my limited VBA knowledge but it is not working as variable b is not changing according to the current cursor location. I am pasting what i have tried. Sub format() a = Range(e15).NumberFormat ' *i want this b shall change value according to the new destination i.e.* *' _want to make it as variable according to the new cell format.* b = ActiveCell.NumberFormat Do ActiveCell.Offset(1, 0).Select If a = b Then ActiveCell.Offset(0, 1).Select ActiveCell.Formula = ActiveCell.Offset(0, -1) * -1 ActiveCell.Offset(0, -1).Select Else ActiveCell.Offset(0, 1).Select ActiveCell.Formula = ActiveCell.Offset(0, -1) * 1 ActiveCell.Offset(0, -1).Select End If Loop Until ActiveCell.Offset(0, -4).Value = End Sub * * Please Help me out. Thanks in advance. -- Regards, Sandeep Kumar Chhajer. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out. -- *Regards* * * *Ashish Koul* *Visit* *My Excel Blog http://www.excelvbamacros.com/* Like Us on Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897 Join Us on Facebook http://www.facebook.com/groups/163491717053198/ P Before printing, think about the environment. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out.
Re: $$Excel-Macros$$ Identifying Excel number format
Dear Ashish, This is only original file, I have just cut down the number of entries to certain extent as I am checking my code with lesser data. Sent on my BlackBerry® from Vodafone -Original Message- From: ashish koul koul.ash...@gmail.com Sender: excel-macros@googlegroups.com Date: Sat, 5 Oct 2013 12:55:31 To: excel-macrosexcel-macros@googlegroups.com Reply-To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ Identifying Excel number format can u share the orginal file On Sat, Oct 5, 2013 at 12:53 PM, Sandeep Chhajer chhajersand...@gmail.comwrote: Dear Excel Gurus, I have facing a peculiar problem related to number format. When I export any ledger from tally I got result as bellow Aditya Birla Memorial Hospital 3049.00 3049.00Aditya Enterprises 99521.00 101086.00 *1565.00 Cr* Airways Corporation 39363.80 Dr *39363.80 Dr* Airways Surgical Pvt Ltd 361446.45 Dr 959168.00 1133676.00 *186938.45 Dr* AL-SAMIYAH GROUP FOR MARKETING INT. TRADE 791326.00 883606.25 *92280.25 Cr* Al-Wafigroup for Marketing Int'l Trade Co. 743036.00 754572.48 *11536.48 Cr* Now, the custom number format for negative number is *0.00 Cr* and for positive number is *0.00 Dr. (I have also attached herewith the file for your reference.)* * * Again, I have tried to build a macro with my limited VBA knowledge but it is not working as variable b is not changing according to the current cursor location. I am pasting what i have tried. Sub format() a = Range(e15).NumberFormat ' *i want this b shall change value according to the new destination i.e.* *' _want to make it as variable according to the new cell format.* b = ActiveCell.NumberFormat Do ActiveCell.Offset(1, 0).Select If a = b Then ActiveCell.Offset(0, 1).Select ActiveCell.Formula = ActiveCell.Offset(0, -1) * -1 ActiveCell.Offset(0, -1).Select Else ActiveCell.Offset(0, 1).Select ActiveCell.Formula = ActiveCell.Offset(0, -1) * 1 ActiveCell.Offset(0, -1).Select End If Loop Until ActiveCell.Offset(0, -4).Value = End Sub * * Please Help me out. Thanks in advance. -- Regards, Sandeep Kumar Chhajer. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out. -- *Regards* * * *Ashish Koul* *Visit* *My Excel Blog http://www.excelvbamacros.com/* Like Us on Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897 Join Us on Facebook http://www.facebook.com/groups/163491717053198/ P Before printing, think about the environment. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in
Re: $$Excel-Macros$$ Identifying Excel number format
i can't see custom format On Sat, Oct 5, 2013 at 12:59 PM, Sandeep Kumar Chhajer chhajersand...@gmail.com wrote: ** Dear Ashish, This is only original file, I have just cut down the number of entries to certain extent as I am checking my code with lesser data. Sent on my BlackBerry® from Vodafone -- *From: * ashish koul koul.ash...@gmail.com *Sender: * excel-macros@googlegroups.com *Date: *Sat, 5 Oct 2013 12:55:31 +0530 *To: *excel-macrosexcel-macros@googlegroups.com *ReplyTo: * excel-macros@googlegroups.com *Subject: *Re: $$Excel-Macros$$ Identifying Excel number format can u share the orginal file On Sat, Oct 5, 2013 at 12:53 PM, Sandeep Chhajer chhajersand...@gmail.com wrote: Dear Excel Gurus, I have facing a peculiar problem related to number format. When I export any ledger from tally I got result as bellow Aditya Birla Memorial Hospital 3049.00 3049.00Aditya Enterprises 99521.00 101086.00 *1565.00 Cr* Airways Corporation 39363.80 Dr *39363.80 Dr* Airways Surgical Pvt Ltd 361446.45 Dr 959168.00 1133676.00 *186938.45 Dr* AL-SAMIYAH GROUP FOR MARKETING INT. TRADE 791326.00 883606.25 *92280.25 Cr* Al-Wafigroup for Marketing Int'l Trade Co. 743036.00 754572.48 *11536.48 Cr* Now, the custom number format for negative number is *0.00 Cr* and for positive number is *0.00 Dr. (I have also attached herewith the file for your reference.)* * * Again, I have tried to build a macro with my limited VBA knowledge but it is not working as variable b is not changing according to the current cursor location. I am pasting what i have tried. Sub format() a = Range(e15).NumberFormat ' *i want this b shall change value according to the new destination i.e.* *' _want to make it as variable according to the new cell format.* b = ActiveCell.NumberFormat Do ActiveCell.Offset(1, 0).Select If a = b Then ActiveCell.Offset(0, 1).Select ActiveCell.Formula = ActiveCell.Offset(0, -1) * -1 ActiveCell.Offset(0, -1).Select Else ActiveCell.Offset(0, 1).Select ActiveCell.Formula = ActiveCell.Offset(0, -1) * 1 ActiveCell.Offset(0, -1).Select End If Loop Until ActiveCell.Offset(0, -4).Value = End Sub * * Please Help me out. Thanks in advance. -- Regards, Sandeep Kumar Chhajer. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out. -- *Regards* * * *Ashish Koul* *Visit* *My Excel Blog http://www.excelvbamacros.com/* Like Us on Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897 Join Us on Facebook http://www.facebook.com/groups/163491717053198/ P Before printing, think about the environment. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com.
Re: $$Excel-Macros$$ Re: Urgent Help.
PFA.. solved On Sat, Oct 5, 2013 at 11:23 AM, Rakesh kumar rakesh.apt...@gmail.comwrote: Please find the attachment. On Sat, Oct 5, 2013 at 11:22 AM, Rakesh kumar rakesh.apt...@gmail.comwrote: Dear Friend, i want to use total no of present or absent list using pivot table. Please find the attachment. -- Thanks £ Regards Rakesh Kumar +91-9650303464 -- Thanks £ Regards Rakesh Kumar +91-9650303464 -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out. -- Thanks Regards Seraj Alam *+91 989 130 1776* *seraj.ala...@gmail.com* -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out. Attendance.xlsx Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
Re: $$Excel-Macros$$ Urgent Help.
attachment missing ! On Sat, Oct 5, 2013 at 11:22 AM, Rakesh kumar rakesh.apt...@gmail.comwrote: Dear Friend, i want to use total no of present or absent list using pivot table. Please find the attachment. -- Thanks £ Regards Rakesh Kumar +91-9650303464 -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out.
$$Excel-Macros$$ Material on dashboards
Hi, Does anyone has good book/video links on dashboards. Please forward me the details. Thanks in advance. Regards, Ashwani -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out.
Re: $$Excel-Macros$$ Complicated Formula (automatic add back)
Dear All Can anyone solve my issue? Regards Amar On Fri, Oct 4, 2013 at 7:05 PM, amar takale amartak...@gmail.com wrote: Dear Experts Pls solution my critical formula issue in excel.I hope anyone help me to resolve this issue. Regards Amar -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out.
RE: $$Excel-Macros$$ Complicated Formula (automatic add back)
Query is not clear.. From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Friday, October 04, 2013 7:05 PM To: excel-macros@googlegroups.com Subject: $$Excel-Macros$$ Complicated Formula (automatic add back) Dear Experts Pls solution my critical formula issue in excel.I hope anyone help me to resolve this issue. Regards Amar -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It's =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out.
Re: $$Excel-Macros$$ Identifying Excel number format
PFA the original file. Hope it will work. On 5 October 2013 13:00, ashish koul koul.ash...@gmail.com wrote: i can't see custom format On Sat, Oct 5, 2013 at 12:59 PM, Sandeep Kumar Chhajer chhajersand...@gmail.com wrote: ** Dear Ashish, This is only original file, I have just cut down the number of entries to certain extent as I am checking my code with lesser data. Sent on my BlackBerry® from Vodafone -- *From: * ashish koul koul.ash...@gmail.com *Sender: * excel-macros@googlegroups.com *Date: *Sat, 5 Oct 2013 12:55:31 +0530 *To: *excel-macrosexcel-macros@googlegroups.com *ReplyTo: * excel-macros@googlegroups.com *Subject: *Re: $$Excel-Macros$$ Identifying Excel number format can u share the orginal file On Sat, Oct 5, 2013 at 12:53 PM, Sandeep Chhajer chhajersand...@gmail.com wrote: Dear Excel Gurus, I have facing a peculiar problem related to number format. When I export any ledger from tally I got result as bellow Aditya Birla Memorial Hospital 3049.00 3049.00Aditya Enterprises 99521.00 101086.00 *1565.00 Cr* Airways Corporation 39363.80 Dr *39363.80 Dr* Airways Surgical Pvt Ltd 361446.45 Dr 959168.00 1133676.00 *186938.45 Dr* AL-SAMIYAH GROUP FOR MARKETING INT. TRADE 791326.00 883606.25 *92280.25 Cr* Al-Wafigroup for Marketing Int'l Trade Co. 743036.00 754572.48 *11536.48 Cr* Now, the custom number format for negative number is *0.00 Cr* and for positive number is *0.00 Dr. (I have also attached herewith the file for your reference.)* * * Again, I have tried to build a macro with my limited VBA knowledge but it is not working as variable b is not changing according to the current cursor location. I am pasting what i have tried. Sub format() a = Range(e15).NumberFormat ' *i want this b shall change value according to the new destination i.e.* *' _want to make it as variable according to the new cell format.* b = ActiveCell.NumberFormat Do ActiveCell.Offset(1, 0).Select If a = b Then ActiveCell.Offset(0, 1).Select ActiveCell.Formula = ActiveCell.Offset(0, -1) * -1 ActiveCell.Offset(0, -1).Select Else ActiveCell.Offset(0, 1).Select ActiveCell.Formula = ActiveCell.Offset(0, -1) * 1 ActiveCell.Offset(0, -1).Select End If Loop Until ActiveCell.Offset(0, -4).Value = End Sub * * Please Help me out. Thanks in advance. -- Regards, Sandeep Kumar Chhajer. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out. -- *Regards* * * *Ashish Koul* *Visit* *My Excel Blog http://www.excelvbamacros.com/* Like Us on Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897 Join Us on Facebook http://www.facebook.com/groups/163491717053198/ P Before printing, think about the environment. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email
Re: $$Excel-Macros$$ Identifying Excel number format
Excel gurus, Any solution. Sandeep. Sent on my BlackBerry® from Vodafone -Original Message- From: Sandeep Chhajer chhajersand...@gmail.com Date: Sat, 5 Oct 2013 15:14:11 To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ Identifying Excel number format PFA the original file. Hope it will work. On 5 October 2013 13:00, ashish koul koul.ash...@gmail.com wrote: i can't see custom format On Sat, Oct 5, 2013 at 12:59 PM, Sandeep Kumar Chhajer chhajersand...@gmail.com wrote: ** Dear Ashish, This is only original file, I have just cut down the number of entries to certain extent as I am checking my code with lesser data. Sent on my BlackBerry® from Vodafone -- *From: * ashish koul koul.ash...@gmail.com *Sender: * excel-macros@googlegroups.com *Date: *Sat, 5 Oct 2013 12:55:31 +0530 *To: *excel-macrosexcel-macros@googlegroups.com *ReplyTo: * excel-macros@googlegroups.com *Subject: *Re: $$Excel-Macros$$ Identifying Excel number format can u share the orginal file On Sat, Oct 5, 2013 at 12:53 PM, Sandeep Chhajer chhajersand...@gmail.com wrote: Dear Excel Gurus, I have facing a peculiar problem related to number format. When I export any ledger from tally I got result as bellow Aditya Birla Memorial Hospital 3049.00 3049.00Aditya Enterprises 99521.00 101086.00 *1565.00 Cr* Airways Corporation 39363.80 Dr *39363.80 Dr* Airways Surgical Pvt Ltd 361446.45 Dr 959168.00 1133676.00 *186938.45 Dr* AL-SAMIYAH GROUP FOR MARKETING INT. TRADE 791326.00 883606.25 *92280.25 Cr* Al-Wafigroup for Marketing Int'l Trade Co. 743036.00 754572.48 *11536.48 Cr* Now, the custom number format for negative number is *0.00 Cr* and for positive number is *0.00 Dr. (I have also attached herewith the file for your reference.)* * * Again, I have tried to build a macro with my limited VBA knowledge but it is not working as variable b is not changing according to the current cursor location. I am pasting what i have tried. Sub format() a = Range(e15).NumberFormat ' *i want this b shall change value according to the new destination i.e.* *' _want to make it as variable according to the new cell format.* b = ActiveCell.NumberFormat Do ActiveCell.Offset(1, 0).Select If a = b Then ActiveCell.Offset(0, 1).Select ActiveCell.Formula = ActiveCell.Offset(0, -1) * -1 ActiveCell.Offset(0, -1).Select Else ActiveCell.Offset(0, 1).Select ActiveCell.Formula = ActiveCell.Offset(0, -1) * 1 ActiveCell.Offset(0, -1).Select End If Loop Until ActiveCell.Offset(0, -4).Value = End Sub * * Please Help me out. Thanks in advance. -- Regards, Sandeep Kumar Chhajer. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out. -- *Regards* * * *Ashish Koul* *Visit* *My Excel Blog http://www.excelvbamacros.com/* Like Us on Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897 Join Us on Facebook http://www.facebook.com/groups/163491717053198/ P Before printing, think about the environment. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post
Re: $$Excel-Macros$$ Identifying Excel number format
c an you please example your requirement please find attachment hope it fulfill your requirement . Enjoy Team XLS On Sat, Oct 5, 2013 at 3:14 PM, Sandeep Chhajer chhajersand...@gmail.comwrote: PFA the original file. Hope it will work. On 5 October 2013 13:00, ashish koul koul.ash...@gmail.com wrote: i can't see custom format On Sat, Oct 5, 2013 at 12:59 PM, Sandeep Kumar Chhajer chhajersand...@gmail.com wrote: ** Dear Ashish, This is only original file, I have just cut down the number of entries to certain extent as I am checking my code with lesser data. Sent on my BlackBerry® from Vodafone -- *From: * ashish koul koul.ash...@gmail.com *Sender: * excel-macros@googlegroups.com *Date: *Sat, 5 Oct 2013 12:55:31 +0530 *To: *excel-macrosexcel-macros@googlegroups.com *ReplyTo: * excel-macros@googlegroups.com *Subject: *Re: $$Excel-Macros$$ Identifying Excel number format can u share the orginal file On Sat, Oct 5, 2013 at 12:53 PM, Sandeep Chhajer chhajersand...@gmail.com wrote: Dear Excel Gurus, I have facing a peculiar problem related to number format. When I export any ledger from tally I got result as bellow Aditya Birla Memorial Hospital 3049.00 3049.00Aditya Enterprises 99521.00 101086.00 *1565.00 Cr* Airways Corporation 39363.80 Dr *39363.80 Dr* Airways Surgical Pvt Ltd 361446.45 Dr 959168.00 1133676.00 *186938.45 Dr* AL-SAMIYAH GROUP FOR MARKETING INT. TRADE 791326.00 883606.25 *92280.25 Cr* Al-Wafigroup for Marketing Int'l Trade Co. 743036.00 754572.48 *11536.48 Cr* Now, the custom number format for negative number is *0.00 Cr* and for positive number is *0.00 Dr. (I have also attached herewith the file for your reference.)* * * Again, I have tried to build a macro with my limited VBA knowledge but it is not working as variable b is not changing according to the current cursor location. I am pasting what i have tried. Sub format() a = Range(e15).NumberFormat ' *i want this b shall change value according to the new destination i.e.* *' _want to make it as variable according to the new cell format.* b = ActiveCell.NumberFormat Do ActiveCell.Offset(1, 0).Select If a = b Then ActiveCell.Offset(0, 1).Select ActiveCell.Formula = ActiveCell.Offset(0, -1) * -1 ActiveCell.Offset(0, -1).Select Else ActiveCell.Offset(0, 1).Select ActiveCell.Formula = ActiveCell.Offset(0, -1) * 1 ActiveCell.Offset(0, -1).Select End If Loop Until ActiveCell.Offset(0, -4).Value = End Sub * * Please Help me out. Thanks in advance. -- Regards, Sandeep Kumar Chhajer. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out. -- *Regards* * * *Ashish Koul* *Visit* *My Excel Blog http://www.excelvbamacros.com/* Like Us on Facebookhttp://www.facebook.com/pages/Excel-VBA-Codes-Macros/15180389897 Join Us on Facebook http://www.facebook.com/groups/163491717053198/ P Before printing, think about the environment. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members
Re: $$Excel-Macros$$ Material on dashboards
http://www.skilledup.com/learn/business-entrepreneurship/best-free-excel-templates-dashboards/ http://chandoo.org/wp/excel-dashboards/ . Enjoy Team XLS On Sat, Oct 5, 2013 at 2:00 PM, ashwani agnihotri ashwani.agniho...@gmail.com wrote: Hi, Does anyone has good book/video links on dashboards. Please forward me the details. Thanks in advance. Regards, Ashwani -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out.
Re: $$Excel-Macros$$ Identifying Excel number format
try this Sub xcv() Dim Data As Range, Rng As Range Set Data = Range(A6) Set Data = Range(Data, Data.End(xlDown)).Offset(, 4) For Each Rng In Data Rng.Offset(, 2) = Rng * IIf(InStr(1, Rng.NumberFormat, Cr) 0, -1, 1) Next End Sub Pada 05/10/2013 14:23, Sandeep Chhajer menulis: Dear Excel Gurus, I have facing a peculiar problem related to number format. When I export any ledger from tally I got result as bellow Aditya Birla Memorial Hospital 3049.00 3049.00 Aditya Enterprises 99521.00101086.00 *1565.00 Cr* Airways Corporation 39363.80 Dr *39363.80 Dr* Airways Surgical Pvt Ltd 361446.45 Dr 959168.00 1133676.00 *186938.45 Dr* AL-SAMIYAH GROUP FOR MARKETING INT. TRADE 791326.00 883606.25 *92280.25 Cr* Al-Wafigroup for Marketing Int'l Trade Co. 743036.00 754572.48 *11536.48 Cr* Now, the custom number format for negative number is *0.00 Cr* and for positive number is *0.00 Dr. (I have also attached herewith the file for your reference.)* * * Again, I have tried to build a macro with my limited VBA knowledge but it is not working as variable b is not changing according to the current cursor location. I am pasting what i have tried. Sub format() a = Range(e15).NumberFormat ' *i want this b shall change value according to the new destination i.e.* *' _want to make it as variable according to the new cell format.* b = ActiveCell.NumberFormat Do ActiveCell.Offset(1, 0).Select If a = b Then ActiveCell.Offset(0, 1).Select ActiveCell.Formula = ActiveCell.Offset(0, -1) * -1 ActiveCell.Offset(0, -1).Select Else ActiveCell.Offset(0, 1).Select ActiveCell.Formula = ActiveCell.Offset(0, -1) * 1 ActiveCell.Offset(0, -1).Select End If Loop Until ActiveCell.Offset(0, -4).Value = End Sub * * Please Help me out. Thanks in advance. -- Regards, Sandeep Kumar Chhajer. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out.
$$Excel-Macros$$ Re: I want to show flag using conditional formatting
Hi Waseem, see the suggestion using conditional formatting, only to color the font and fill the cell. tks. Basole. Em sábado, 5 de outubro de 2013 01h31min52s UTC-3, Waseem Saifi escreveu: Hi Experts, I want to show flag next to value's coulmn basis on criteria that if value is greater than 20 than show flag. change of cell color on this criteria is easy. But I also want to show flag icon basis on this criteria, using conditional formatting. I know it is possible. But how I don't know. Please look into attached file. [image: Inline image 1] Regards, Waseem Saifi -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out. want to show flag-example.xlsx Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
Re: $$Excel-Macros$$ Macro to Import Word Tables to Excel from a folder
Dear Ashish, Any further help in this matter please. Regards Nasir Khan On Fri, Oct 4, 2013 at 12:38 AM, Nasir Khan nasirkhan.du...@gmail.comwrote: Yes I did. But as mentioned in my reply I need the code to 1) run on all the files in the given Path = Your code run a single folder at a time...there are several folder in the given path. 2) Each table should come on a separate sheet - Your code bring in the table one below other 3) The sheet name should be named for eg if the file being imported is abc.docx then sheet name would be abc and so on Hope I am clear. Thanks once again for all your time and help Nasir Khan On Thu, Oct 3, 2013 at 6:18 PM, ashish koul koul.ash...@gmail.com wrote: have you tried the code which i shared On Thu, Oct 3, 2013 at 1:34 PM, Nasir Khan nasirkhan.du...@gmail.comwrote: Dear Ashish, Thanks for the code. My requirement is to import all the word tables from all the sub-folder in the given path. I got the following code from the net which obviously is not working. Sub DoItNow() Dim file Dim path As String ' the path to the folder ' make SURE you include the terminating \ path = c:\Test1\ file = Dir(path *.docx) Do While file Documents.Open Filename:=path file ' call to macro that does whatever ' one would assume it is using ActiveDocument! Call import_word_table_to_excel ' assuming you want to save the current file ActiveDocument.Save ActiveDocument.Close ' set file to next in Dir file = Dir() Loop End Sub Can you please guide me what I am doing wrong and modify your code so that: 1) The table imported is from all the document in all the folders in the Path 2) The table should come as individual sheet from each document and if possible the excel sheet is renamed with the name of the file imported. Hope you will help please Nasir Khan On Wed, Oct 2, 2013 at 9:09 AM, ashish koul koul.ash...@gmail.comwrote: try this Sub import_word_table_to_excel() Application.DisplayAlerts = False Application.ScreenUpdating = False Dim fldpath Dim fld, fil As Object Dim appWord As Word.Application Dim docWord As Word.Document Dim tableWord As Word.Table Dim sdoc As String ' use to choose the folder having word documents Application.FileDialog(msoFileDialogFolderPicker).Title = Choose Folder Application.FileDialog(msoFileDialogFolderPicker).Show fldpath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) \ Set fso = CreateObject(scripting.filesystemobject) Set fld = fso.getfolder(fldpath) Set appWord = New Word.Application appWord.Visible = True For Each fil In fld.Files ' browse word documents in a folder If UCase(Right(fil.Path, 4)) = UCase(.doc) Or UCase(Right(fil.Path, 5)) = UCase(.docx) Then Set docWord = appWord.Documents.Open(fil.Path) For Each tableWord In docWord.Tables ' copy word tables tableWord.Range.Copy ' paste it on sheet 1 of excel file Sheets(1).Paste Destination:=Sheets(1).Range(A65356).End(xlUp).Offset(1, 0) Next docWord.Close End If Next fil appWord.Quit Sheets(1).Select Set tableWord = Nothing Set docWord = Nothing Set appWord = Nothing Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub On Mon, Sep 30, 2013 at 12:47 PM, Nasir Khan nasirkhan.du...@gmail.com wrote: Hello All, I have got lot of MS Word files in a folder eg. C:\Test\many folders here I wish to copy and paste the Tables from all the word documents in the above mentioned folder to excel. I found Macro1 (see below) which copy and paste the Table in Excel. My requirement is to get the tables from all the documents from each folder in the path C:\Test\ Can Macro 1 be amended *to copy and paste all tables from each folder in C:\Test\* *MACRO 1 TO IMPORT WORD TABLE* Sub ImportWordTable() On Error GoTo errHandler Dim wordDoc As Object Dim wdFileName As Variant Dim noTble As Integer Dim rowNb As Long Dim colNb As Integer Dim x As Long, y As Long x = 1: y = 1 wdFileName = Application.GetOpenFilename(Word files (*.docx),*.docx, , _ Browse for file containing table to be imported) 'adjust this to the document type you are after If wdFileName = False Then Exit Sub Set wordDoc = GetObject(wdFileName) With wordDoc noTble = wordDoc.tables.Count If noTble = 0 Then MsgBox No Tables in this document, vbExclamation, No Tables to Import Exit Sub End If For k = 1 To noTble With .tables(k) For rowNb = 1 To .Rows.Count For colNb = 1 To .Columns.Count Cells(x, y) = WorksheetFunction.Clean(.cell(rowNb, colNb).Range.Text) y = y + 1 Next colNb y = 1 x = x + 1 Next rowNb End With
