Re: $$Excel-Macros$$ Want conditional lookup
Dear Laxman, PFA. On Wed, Jul 24, 2013 at 11:13 AM, LAKSHMAN PRASAD lakshman_...@yahoo.comwrote: Dear Expert, Want conditional lookup from sheet 1 those data which is active in column A , plz the attached file ** Thanks, Regards LAKSHMAN -- 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. book 1-solved.xlsx Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
Re: $$Excel-Macros$$ urgent help
Respected Devanand, I think you have exported the same from tally.In tally you have the option to sort the details before exporting.You can do the same in excel also.First sort the data according to the TIN NO.The select the data and apply subtotal.In subtotal column select TIN NO and select the column you want subtotal for and sum as the required function.You will get your required totals.In the same way you can export the columnar purchase register from tally and do the same process again. Regards, Vijaykumar On Tue, Jul 23, 2013 at 8:28 PM, devanand nayak devnayak_...@hotmail.comwrote: madam pl find here with sales register kindly help me to sort out and also inform how i could make such file like also same in the case of purchase register thanks d v nayak -- Date: Tue, 23 Jul 2013 17:06:24 +0530 Subject: Re: $$Excel-Macros$$ urgent help From: prabhupin...@gmail.com To: excel-macros@googlegroups.com Hi nayak..pls share the file.. On Jul 23, 2013 12:02 PM, devanand nayak devnayak_...@hotmail.com wrote: hi i have one sheet which consists of data on daily basis for whole year e.g. datecustomer name tin no net 12.5% vat 12.5% net 5% vat 5% oms tranpsort total i need this with tinwise total for whole year and whole year net total and whole year vat total any one can help me thanks in advance d v nayak -- 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. -- 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,
Re: $$Excel-Macros$$ Want conditional lookup
Dear waseem, Plz C the sheet2 where unit no.249 found but sheet1 not pickup that value From: Waseem Saifi waseemsa...@gmail.com To: excel-macros excel-macros@googlegroups.com Sent: Wednesday, July 24, 2013 11:50 AM Subject: Re: $$Excel-Macros$$ Want conditional lookup Dear Laxman, PFA. On Wed, Jul 24, 2013 at 11:13 AM, LAKSHMAN PRASAD lakshman_...@yahoo.com wrote: Dear Expert, Want conditional lookup from sheet 1 those data which is active in column A , plz the attached file Thanks, Regards LAKSHMAN-- 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 mailto:excel-macros%2bunsubscr...@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. -- 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$$ spit varios sheets of one excel file to related other excel file
You can try this code Change Workbook name as per your Workbook name wkbMoveto Is that workbook in which you want to past data wkbMoveFrom is that workbook from which you want to copy data Sub Copydata() Dim wkbMoveto As Workbook Dim wkbmoveFrom As Workbook Dim wksMoveto As Worksheet Dim wksMovefrom Set wkbmoveFrom = ThisWorkbook Set wkbMoveto = Application.Workbooks(MYBOOK.xlsm) For Each wksMovefrom In wkbmoveFrom.Worksheets For Each wksMoveto In wkbMoveto.Worksheets If wksMovefrom.Name = wksMoveto.Name Then wksMovefrom.UsedRange.Copy Destination:=wksMoveto.Range(a1) End If Next Next End Sub On Tue, Jul 23, 2013 at 6:32 PM, Sagar Kasangottuwar sagarkasangottu...@gmail.com wrote: Dear Priti, I want to copy sheet in specific sheets not make new sheets. This macro is creating new sheets. Thanks Regards, sagar On Mon, Jul 22, 2013 at 6:41 PM, priti verma pritiverma1...@gmail.comwrote: Try this code Change Strpath as per your Path Sub creatnewWkb() Dim wkb As Workbook Dim strpath As String Dim wks As Worksheet Dim wkbnwebook As Workbook Set wkb = ThisWorkbook strpath = wkb.Path For Each wks In wkb.Worksheets wks.Copy wks.Paste ActiveWorkbook.SaveAs _ Filename:=strpath \ wks.Name .xlsx ActiveWorkbook.Close Next End Sub On Mon, Jul 22, 2013 at 5:22 AM, Sagar Kasangottuwar sagarkasangottu...@gmail.com wrote: Dear Excel experts, I want one macro which can spit varios sheets of one excel file to related other excel file. I have one excel file where 10 sheets are available ex. a, b, c, d and I have files for same sheets ex. a, b, c, d. So I want to transfer a, b, c, d sheets to a, b, c, d file. Kindly help me on the above matter. Thanks in advance SAGAR -- 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. -- 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
Re: $$Excel-Macros$$ Want conditional lookup
Dear Laxman, PFA. On Wed, Jul 24, 2013 at 11:13 AM, LAKSHMAN PRASAD lakshman_...@yahoo.com wrote: Dear Expert, Want conditional lookup from sheet 1 those data which is active in column A , plz the attached file Thanks, Regards LAKSHMAN-- 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 mailto:excel-macros%2bunsubscr...@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. -- 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: spit varios sheets of one excel file to related other excel file
Hi, Instead of Macro, you can use ASAP utlities to split various sheets in one excel file. Rgds, Prabhakar On Monday, July 22, 2013 4:52:05 PM UTC+5:30, ca_k...@yahoo.co.in wrote: Dear Excel experts, I want one macro which can spit varios sheets of one excel file to related other excel file. I have one excel file where 10 sheets are available ex. a, b, c, d and I have files for same sheets ex. a, b, c, d. So I want to transfer a, b, c, d sheets to a, b, c, d file. Kindly help me on the above matter. Thanks in advance SAGAR -- 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$$
Sorry for previous incomplete mail, Help me on this , i want all files name from folders. Folder1 File1,file,2, folderA file3,file4,file5 folderB file6,file7 folderCfile8 folder2file 9 folderD file10 folderEfile11,file11 folder F folder Nfile 12,file14 folder M file13 folder E file12,file13 folder 4...and so on Regards , priti verma -- 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$$
Hi Priti, Please see if it help Public Sub selectfol() On Error Resume Next Set path1 = CreateObject(Shell.application).browseforfolder(0, Please choose a folder, 0, openat) pathm = path1.self.Path UserForm1.TextBox1.Text = pathm \ mysourcepath = pathm \ Set myobject = CreateObject(scripting.filesystemobject) Set mysource = myobject.getfolder(mysourcepath) Range(A1).Select m = 1 acount = 0 For Each myfile In mysource.Files myfile.Open acount = acount + 1 Next ReDim arrFiles(acount) As Variant i = 0 For Each myfile In mysource.Files arrFiles(i) = myfile.Name If m = 1 Then ActiveCell.Value = myfile.Name ActiveCell.Offset(1, 0).Select Else ActiveCell.Value = myfile.Name ActiveCell.Offset(1, 0).Select End If m = m + 1 i = i + 1 Next End Sub From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of priti verma Sent: Wednesday, July 24, 2013 5:21 PM To: excel-macros@googlegroups.com Subject: $$Excel-Macros$$ Hi everyone, Help me on this , i want all files name from folders. Folder1 foldera folderb -- 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 mailto:excel-macros+unsubscr...@googlegroups.com . To post to this group, send email to excel-macros@googlegroups.com mailto: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$$
Thank for quick response But this code is not working fine . Its giving Only first folder 's file name . I mean I have lots of folder and and file in main folder.and folder contain further folders and file and these folder also contains some folder and files. So i want all files name from all nested folder On Wed, Jul 24, 2013 at 6:17 AM, Excel Learn excellearn2...@gmail.comwrote: Hi Priti, ** ** Please see if it help ** ** ** ** Public Sub selectfol() On Error Resume Next Set path1 = CreateObject(Shell.application).browseforfolder(0, Please choose a folder, 0, openat) pathm = path1.self.Path UserForm1.TextBox1.Text = pathm \ mysourcepath = pathm \ Set myobject = CreateObject(scripting.filesystemobject) Set mysource = myobject.getfolder(mysourcepath) ** ** Range(A1).Select m = 1 acount = 0 For Each myfile In mysource.Files myfile.Open ** ** acount = acount + 1 Next ReDim arrFiles(acount) As Variant i = 0 For Each myfile In mysource.Files arrFiles(i) = myfile.Name If m = 1 Then ActiveCell.Value = myfile.Name ActiveCell.Offset(1, 0).Select Else ActiveCell.Value = myfile.Name ActiveCell.Offset(1, 0).Select End If m = m + 1 i = i + 1 Next ** ** End Sub ** ** ** ** ** ** *From:* excel-macros@googlegroups.com [mailto: excel-macros@googlegroups.com] *On Behalf Of *priti verma *Sent:* Wednesday, July 24, 2013 5:21 PM *To:* excel-macros@googlegroups.com *Subject:* $$Excel-Macros$$ ** ** Hi everyone, Help me on this , i want all files name from folders. ** ** Folder1 foldera folderb ** ** -- 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. -- 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
$$Excel-Macros$$ Sum query
Hi All, I have attached my query regarding sum function query I know this can be solved through pivot table, but I want the result in formulaes. Pls let me know if anyone can solve this? /Suresh -- 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. Sum function query.xls Description: MS-Excel spreadsheet
Re: $$Excel-Macros$$
PFA Dim Rng As Range, iRow As Integer Sub GetFolder() Dim fldr As FileDialog Set Rng = ActiveCell Set fldr = Application.FileDialog(msoFileDialogFolderPicker) fldr.AllowMultiSelect = False If fldr.Show = -1 Then Call ListIt(fldr.SelectedItems(1)) End Sub Private Function ListIt(SelectedPath As String, Optional tCol As Integer = 0) Dim FSO As Scripting.FileSystemObject, sFolder, sSubFolder, lPath On Error Resume Next Set FSO = New Scripting.FileSystemObject Set sFolder = FSO.GetFolder(SelectedPath) lPath = Split(SelectedPath, \) Rng.Offset(iRow, tCol).Value = lPath(UBound(lPath)) iRow = iRow + 1 For Each sSubFolder In sFolder.SubFolders Call ListIt(sSubFolder.Path, (tCol + 1)) Next End Function Pada 24/07/2013 19:37, priti verma menulis: Thank for quick response But this code is not working fine . Its giving Only first folder 's file name . I mean I have lots of folder and and file in main folder.and folder contain further folders and file and these folder also contains some folder and files. So i want all files name from all nested folder On Wed, Jul 24, 2013 at 6:17 AM, Excel Learn excellearn2...@gmail.com mailto:excellearn2...@gmail.com wrote: Hi Priti, Please see if it help Public Sub selectfol() On Error Resume Next Set path1 = CreateObject(Shell.application).browseforfolder(0, Please choose a folder, 0, openat) pathm = path1.self.Path UserForm1.TextBox1.Text = pathm \ mysourcepath = pathm \ Set myobject = CreateObject(scripting.filesystemobject) Set mysource = myobject.getfolder(mysourcepath) Range(A1).Select m = 1 acount = 0 For Each myfile In mysource.Files myfile.Open acount = acount + 1 Next ReDim arrFiles(acount) As Variant i = 0 For Each myfile In mysource.Files arrFiles(i) = myfile.Name If m = 1 Then ActiveCell.Value = myfile.Name ActiveCell.Offset(1, 0).Select Else ActiveCell.Value = myfile.Name ActiveCell.Offset(1, 0).Select End If m = m + 1 i = i + 1 Next End Sub *From:*excel-macros@googlegroups.com mailto:excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com mailto:excel-macros@googlegroups.com] *On Behalf Of *priti verma *Sent:* Wednesday, July 24, 2013 5:21 PM *To:* excel-macros@googlegroups.com mailto:excel-macros@googlegroups.com *Subject:* $$Excel-Macros$$ Hi everyone, Help me on this , i want all files name from folders. Folder1 foldera folderb -- 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 mailto:excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com mailto: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
Re: $$Excel-Macros$$ Sum query
Hi With the help of SUM IF, you can get the result. For ref. PFA On Wed, Jul 24, 2013 at 6:20 PM, suresh k brave.sur...@gmail.com wrote: Hi All, I have attached my query regarding sum function query I know this can be solved through pivot table, but I want the result in formulaes. Pls let me know if anyone can solve this? /Suresh -- 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. Sum function query.xls Description: MS-Excel spreadsheet
Re: $$Excel-Macros$$
Thanks Dp, But its giving only Nested foldersname. I want files name. Anyway i got idea from your Code On Wed, Jul 24, 2013 at 7:22 AM, De Premor d...@premor.net wrote: PFA Dim Rng As Range, iRow As Integer Sub GetFolder() Dim fldr As FileDialog Set Rng = ActiveCell Set fldr = Application.FileDialog(msoFileDialogFolderPicker) fldr.AllowMultiSelect = False If fldr.Show = -1 Then Call ListIt(fldr.SelectedItems(1)) End Sub Private Function ListIt(SelectedPath As String, Optional tCol As Integer = 0) Dim FSO As Scripting.FileSystemObject, sFolder, sSubFolder, lPath On Error Resume Next Set FSO = New Scripting.FileSystemObject Set sFolder = FSO.GetFolder(SelectedPath) lPath = Split(SelectedPath, \) Rng.Offset(iRow, tCol).Value = lPath(UBound(lPath)) iRow = iRow + 1 For Each sSubFolder In sFolder.SubFolders Call ListIt(sSubFolder.Path, (tCol + 1)) Next End Function Pada 24/07/2013 19:37, priti verma menulis: Thank for quick response But this code is not working fine . Its giving Only first folder 's file name . I mean I have lots of folder and and file in main folder.and folder contain further folders and file and these folder also contains some folder and files. So i want all files name from all nested folder On Wed, Jul 24, 2013 at 6:17 AM, Excel Learn excellearn2...@gmail.comwrote: Hi Priti, Please see if it help Public Sub selectfol() On Error Resume Next Set path1 = CreateObject(Shell.application).browseforfolder(0, Please choose a folder, 0, openat) pathm = path1.self.Path UserForm1.TextBox1.Text = pathm \ mysourcepath = pathm \ Set myobject = CreateObject(scripting.filesystemobject) Set mysource = myobject.getfolder(mysourcepath) Range(A1).Select m = 1 acount = 0 For Each myfile In mysource.Files myfile.Open acount = acount + 1 Next ReDim arrFiles(acount) As Variant i = 0 For Each myfile In mysource.Files arrFiles(i) = myfile.Name If m = 1 Then ActiveCell.Value = myfile.Name ActiveCell.Offset(1, 0).Select Else ActiveCell.Value = myfile.Name ActiveCell.Offset(1, 0).Select End If m = m + 1 i = i + 1 Next End Sub *From:* excel-macros@googlegroups.com [mailto: excel-macros@googlegroups.com] *On Behalf Of *priti verma *Sent:* Wednesday, July 24, 2013 5:21 PM *To:* excel-macros@googlegroups.com *Subject:* $$Excel-Macros$$ Hi everyone, Help me on this , i want all files name from folders. Folder1 foldera folderb -- 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
Re: $$Excel-Macros$$
I think you only need a foldername :D Try to change ListIt Function with this rev Private Function ListIt(SelectedPath As String, Optional tCol As Integer = 0) Dim FSO As Scripting.FileSystemObject, sFolder, sSubFolder, lPath, sFile On Error Resume Next Set FSO = New Scripting.FileSystemObject Set sFolder = FSO.GetFolder(SelectedPath) lPath = Split(SelectedPath, \) Rng.Offset(iRow, tCol).Value = [+] lPath(UBound(lPath)) For Each sFile In sFolder.Files iRow = iRow + 1 Rng.Offset(iRow, (tCol + 1)).Value = sFile.Name Next iRow = iRow + 1 For Each sSubFolder In sFolder.SubFolders Call ListIt(sSubFolder.Path, (tCol + 1)) Next End Function Rgds, [dp] Pada 24/07/2013 20:33, priti verma menulis: Thanks Dp, But its giving only Nested foldersname. I want files name. Anyway i got idea from your Code On Wed, Jul 24, 2013 at 7:22 AM, De Premor d...@premor.net mailto:d...@premor.net wrote: PFA Dim Rng As Range, iRow As Integer Sub GetFolder() Dim fldr As FileDialog Set Rng = ActiveCell Set fldr = Application.FileDialog(msoFileDialogFolderPicker) fldr.AllowMultiSelect = False If fldr.Show = -1 Then Call ListIt(fldr.SelectedItems(1)) End Sub Private Function ListIt(SelectedPath As String, Optional tCol As Integer = 0) Dim FSO As Scripting.FileSystemObject, sFolder, sSubFolder, lPath On Error Resume Next Set FSO = New Scripting.FileSystemObject Set sFolder = FSO.GetFolder(SelectedPath) lPath = Split(SelectedPath, \) Rng.Offset(iRow, tCol).Value = lPath(UBound(lPath)) iRow = iRow + 1 For Each sSubFolder In sFolder.SubFolders Call ListIt(sSubFolder.Path, (tCol + 1)) Next End Function Pada 24/07/2013 19:37, priti verma menulis: Thank for quick response But this code is not working fine . Its giving Only first folder 's file name . I mean I have lots of folder and and file in main folder.and folder contain further folders and file and these folder also contains some folder and files. So i want all files name from all nested folder On Wed, Jul 24, 2013 at 6:17 AM, Excel Learn excellearn2...@gmail.com mailto:excellearn2...@gmail.com wrote: Hi Priti, Please see if it help Public Sub selectfol() On Error Resume Next Set path1 = CreateObject(Shell.application).browseforfolder(0, Please choose a folder, 0, openat) pathm = path1.self.Path UserForm1.TextBox1.Text = pathm \ mysourcepath = pathm \ Set myobject = CreateObject(scripting.filesystemobject) Set mysource = myobject.getfolder(mysourcepath) Range(A1).Select m = 1 acount = 0 For Each myfile In mysource.Files myfile.Open acount = acount + 1 Next ReDim arrFiles(acount) As Variant i = 0 For Each myfile In mysource.Files arrFiles(i) = myfile.Name If m = 1 Then ActiveCell.Value = myfile.Name ActiveCell.Offset(1, 0).Select Else ActiveCell.Value = myfile.Name ActiveCell.Offset(1, 0).Select End If m = m + 1 i = i + 1 Next End Sub *From:*excel-macros@googlegroups.com mailto:excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com mailto:excel-macros@googlegroups.com] *On Behalf Of *priti verma *Sent:* Wednesday, July 24, 2013 5:21 PM *To:* excel-macros@googlegroups.com mailto:excel-macros@googlegroups.com *Subject:* $$Excel-Macros$$ Hi everyone, Help me on this , i want all files name from folders. Folder1 foldera folderb -- 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.
Re: $$Excel-Macros$$
Hi DP Perfect code Thanks For Your Time and Efforts. On Wed, Jul 24, 2013 at 7:53 AM, De Premor d...@premor.net wrote: I think you only need a foldername :D Try to change ListIt Function with this rev Private Function ListIt(SelectedPath As String, Optional tCol As Integer = 0) Dim FSO As Scripting.FileSystemObject, sFolder, sSubFolder, lPath, sFile On Error Resume Next Set FSO = New Scripting.FileSystemObject Set sFolder = FSO.GetFolder(SelectedPath) lPath = Split(SelectedPath, \) Rng.Offset(iRow, tCol).Value = [+] lPath(UBound(lPath)) For Each sFile In sFolder.Files iRow = iRow + 1 Rng.Offset(iRow, (tCol + 1)).Value = sFile.Name Next iRow = iRow + 1 For Each sSubFolder In sFolder.SubFolders Call ListIt(sSubFolder.Path, (tCol + 1)) Next End Function Rgds, [dp] Pada 24/07/2013 20:33, priti verma menulis: Thanks Dp, But its giving only Nested foldersname. I want files name. Anyway i got idea from your Code On Wed, Jul 24, 2013 at 7:22 AM, De Premor d...@premor.net wrote: PFA Dim Rng As Range, iRow As Integer Sub GetFolder() Dim fldr As FileDialog Set Rng = ActiveCell Set fldr = Application.FileDialog(msoFileDialogFolderPicker) fldr.AllowMultiSelect = False If fldr.Show = -1 Then Call ListIt(fldr.SelectedItems(1)) End Sub Private Function ListIt(SelectedPath As String, Optional tCol As Integer = 0) Dim FSO As Scripting.FileSystemObject, sFolder, sSubFolder, lPath On Error Resume Next Set FSO = New Scripting.FileSystemObject Set sFolder = FSO.GetFolder(SelectedPath) lPath = Split(SelectedPath, \) Rng.Offset(iRow, tCol).Value = lPath(UBound(lPath)) iRow = iRow + 1 For Each sSubFolder In sFolder.SubFolders Call ListIt(sSubFolder.Path, (tCol + 1)) Next End Function Pada 24/07/2013 19:37, priti verma menulis: Thank for quick response But this code is not working fine . Its giving Only first folder 's file name . I mean I have lots of folder and and file in main folder.and folder contain further folders and file and these folder also contains some folder and files. So i want all files name from all nested folder On Wed, Jul 24, 2013 at 6:17 AM, Excel Learn excellearn2...@gmail.comwrote: Hi Priti, Please see if it help Public Sub selectfol() On Error Resume Next Set path1 = CreateObject(Shell.application).browseforfolder(0, Please choose a folder, 0, openat) pathm = path1.self.Path UserForm1.TextBox1.Text = pathm \ mysourcepath = pathm \ Set myobject = CreateObject(scripting.filesystemobject) Set mysource = myobject.getfolder(mysourcepath) Range(A1).Select m = 1 acount = 0 For Each myfile In mysource.Files myfile.Open acount = acount + 1 Next ReDim arrFiles(acount) As Variant i = 0 For Each myfile In mysource.Files arrFiles(i) = myfile.Name If m = 1 Then ActiveCell.Value = myfile.Name ActiveCell.Offset(1, 0).Select Else ActiveCell.Value = myfile.Name ActiveCell.Offset(1, 0).Select End If m = m + 1 i = i + 1 Next End Sub *From:* excel-macros@googlegroups.com [mailto: excel-macros@googlegroups.com] *On Behalf Of *priti verma *Sent:* Wednesday, July 24, 2013 5:21 PM *To:* excel-macros@googlegroups.com *Subject:* $$Excel-Macros$$ Hi everyone, Help me on this , i want all files name from folders. Folder1 foldera folderb -- 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 @
$$Excel-Macros$$ Re: Translate PDF as a text
Hi, see (attached) if that's what you want Em quarta-feira, 24 de julho de 2013 07h29min47s UTC-3, Pravin Gunjal escreveu: Hello, I would like to translate this attached PDF texts (words) in to English to work out on it. I tried my best but couldn't get the exact result. Can someone help me out and inform, how to do it. Thanks in advance! *With regards,** **Pravin Gunjal.* -- 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. • : 013-14?;!FtzJ t--DotDFuo, dmFk.3 ;556ecdD t p.e) , ed 41 -e.bee.5-2 M/s. R.S. Enterprises, 11011-- 23 4?-.60,t8r: r7 pr nn Cc-AU 4--oS Rook.A. -fb?7- DJ u re0-0 E-4 : ttc, ,c).3,20r1 nz4 7.,Jizzlo,t)t ul)C: 7,1 e,Pn,DnnorIc3, T!; 3-5' -et 1, tn.) c, ei 08.07.2013. * * * * * * * * * Zc.7i0J,D T.V.6 c.)q„-r\lzt n7.%),tp rIv't.)4 elpeotuD ttNi 4s Zoo::! aDr2)n Q3z73tztc.)--a)t3_,„ te dc5a1 45 ntrIwztri,A: ar:pMF Qt.t.ME*N; ntp z..)denrIcrl0 ZUD gizotdotn,kotp m)c.tlc),71),Dtzt3 tizotdoJ3-Dnd. 30 Dot 45 ntrleAAOMn c.t.‘;_ror=f) nZ.tE ezzeotz.tnrttZ7. 45 inrleo-Dt c)J,DtsAzi ztodt34 edotvD titt-..;,ecsoontprle. t-zuDtT)it ;ctc)3 ez-z0E ,totap'Etc, t,3q 45 nitrO3.?_fr„.32,3 T,',0u4EVA-uzdz-Dr1 T;t3c) dc.)3 2,4ottc,, 90 ,537.1ct tod t35Dezzlc'q Zt3 exIloJnntl eJzMcr-T natt7)rle,t 0z9,7-1Q3 ezzk,ImrlDt_c,z1. r-qot 7,),0c4E-tt, L2 OoCt aDDen.,;)c)3 u-m-DoDFz-DrI3tt3 m-atr atit25a;2573 Li citoot t3-Zte)3 tD 4orlszertor:!. nzim 4s tZ)Dolt 07 ntrle, , n-Dr1 nzl't;)rt,),4 45-gfejt= 7,;,22,3Aizt. qt,) Q. dzzc Doodc)-6 e.2th ejg:567)A.» e7DE-t.3 ;t2sernJD n-Or..4_,t tog, ‘41-= t3Z,Jc. 2,) I t)JA)25 e3z7 q3-4,5-nr103, 8t3-6; tDZiet cltM t3V:o7Tal, cS);C:Ips$CO3 3 ulEztdoe,D, eta:, ,gtorl ±D6Damn,
$$Excel-Macros$$ 9e+307
Hi Group, Need information on what is 9E+307 and when/where/how to use it. Few example will be of very helpful to me with supporting links. -- Regards Santosh santoshkumar.subu...@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.
Re: $$Excel-Macros$$ 9e+307
Santoh, 9E+307 is the largest numeric value that can be represented in Excel. . Enjoy Team XLS On Thu, Jul 25, 2013 at 1:09 AM, santosh subudhi santoshkumar.subu...@gmail.com wrote: Hi Group, Need information on what is 9E+307 and when/where/how to use it. Few example will be of very helpful to me with supporting links. -- Regards Santosh santoshkumar.subu...@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. -- 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.
Fw: $$Excel-Macros$$ Want conditional lookup
- Forwarded Message - From: Waseem Saifi waseemsa...@gmail.com To: excel-macros excel-macros@googlegroups.com Sent: Wednesday, July 24, 2013 11:50 AM Subject: Re: $$Excel-Macros$$ Want conditional lookup Dear Laxman, PFA. On Wed, Jul 24, 2013 at 11:13 AM, LAKSHMAN PRASAD lakshman_...@yahoo.com wrote: Dear Expert, Want conditional lookup from sheet 1 those data which is active in column A , plz the attached file Thanks, Regards LAKSHMAN-- 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 mailto:excel-macros%2bunsubscr...@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. -- 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. book 1-solved.xlsx Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
Re: $$Excel-Macros$$ Sum query
You can use Sumif It's so simple ! it is simplest query I have ever found on this group. Regards, Waseem Saifi On Wed, Jul 24, 2013 at 6:51 PM, Ravinder Kumar ravinderbhardwa...@gmail.com wrote: Hi With the help of SUM IF, you can get the result. For ref. PFA On Wed, Jul 24, 2013 at 6:20 PM, suresh k brave.sur...@gmail.com wrote: Hi All, I have attached my query regarding sum function query I know this can be solved through pivot table, but I want the result in formulaes. Pls let me know if anyone can solve this? /Suresh -- 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. -- 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. Sum function query.xls Description: MS-Excel spreadsheet
Re: $$Excel-Macros$$ Sum query
=SUMIF($A$4:$A$54,H4,$B$4:$B$54) use this formula From: suresh k brave.sur...@gmail.com To: Excel group excel-macros@googlegroups.com Sent: Wednesday, July 24, 2013 6:20 PM Subject: $$Excel-Macros$$ Sum query Hi All, I have attached my query regarding sum function query I know this can be solved through pivot table, but I want the result in formulaes. Pls let me know if anyone can solve this? /Suresh -- 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.
