$$Excel-Macros$$ Multiple Order Should Pickup
Dear Friends, Greetings! I have attached an excel file. The data is already entered in this file and nothing can be changed. The Qty column must be multiple of Pack column. If it is correct then it should display: Correct otherwise Incorrect in Result column. Hope you would help me. Thank you. 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/d/optout. 16.05.2014.xlsx Description: MS-Excel 2007 spreadsheet
Re: $$Excel-Macros$$ ODS TO EXCEL CONVERSION PROBLEM
Hi Try this code.. Sub SaveODSToXLSX() Dim StrFilename As String Dim StrDocName As String Dim StrPath As String Dim oWorkbook As Workbook Dim fDialog As FileDialog Dim intPos As Integer With Application.FileDialog(msoFileDialogFolderPicker) .Title = Choose the folder .Show End With On Error Resume Next StrPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) \ If Right(StrPath, 1) \ Then StrPath = StrPath + \ If Left(StrPath, 1) = Chr(34) Then StrPath = Mid(StrPath, 2, Len(StrPath) - 2) End If StrFilename = Dir$(StrPath *.ods) While Len(StrFilename) 0 Set oWorkbook = Workbooks.Open(StrPath StrFilename) StrDocName = ActiveWorkbook.FullName intPos = InStrRev(StrDocName, .) StrFocName = Left(StrDocName, intPos - 1) StrDocName = StrDocName .xlsx oWorkbook.SaveAs Filename:=StrDocName, FileFormat:=51 oWorkbook.Close Savechanges:=wdDoNotSaveChanges StrFilename = Dir$() Wend MsgBox Conversion is completed, , ODS to XLSX Exit Sub End Sub Cheers!! On Thu, May 15, 2014 at 11:08 PM, renuka chari jva.ch...@gmail.com wrote: Dear sir, PFA On Thursday, 15 May 2014 13:39:33 UTC+5:30, Vabz wrote: what error you are getting? Share screen shot!! On Thu, May 15, 2014 at 12:59 AM, Renukachari Kasee jva@gmail.comwrote: Dear experts please suggest how to convert bunch of openoffice clac ods formats in a folder i want to convert ods to xlsx format here i am sharing one the web resource, while execute the code it will shows error message. please solve this query... Thanks Regards´¨) ¸ •´ ¸.•*´¨) ¸.•*¨) (¸.•´ (¸.•* ♥♥♥...♪♪♪RenukaChari. Kasee...♥♥♥...♪♪♪ P Let us do our best to save nature, save water, plant trees, protect greenery, keep our surroundings clean, reduce usage of plastics, and use renewable energy sources. -- 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...@googlegroups.com. To post to this group, send email to excel-...@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. -- 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/d/optout. -- 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
Re: $$Excel-Macros$$ Multiple Order Should Pickup
Check this.. Cheers!! On Fri, May 16, 2014 at 12:03 PM, Pravin Gunjal isk1...@gmail.com wrote: Dear Friends, Greetings! I have attached an excel file. The data is already entered in this file and nothing can be changed. The Qty column must be multiple of Pack column. If it is correct then it should display: Correct otherwise Incorrect in Result column. Hope you would help me. Thank you. 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/d/optout. -- 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/d/optout. 16.05.2014.xlsx Description: MS-Excel 2007 spreadsheet
Re: $$Excel-Macros$$ Excel macro from 2003 no longer works in Excel 2010
Paul, that was the fix, thank you very much for looking into this! Scott On Thursday, May 15, 2014 4:44:24 AM UTC-7, Paul Schreiner wrote: For: Workbooks(ESS CentreVu Stats Half).Worksheets(Mel).Range(b3).Value Is the workbook ESS CentreVu Stats Half open? I tested code with my workbook. It seems that the file extension must be included. In my case: Workbooks(Ora_RMS_Flags_Master.xlsb).Sheets(Ora_PN).Range(B3).Value works but: Workbooks(Ora_RMS_Flags_Master).Sheets(Ora_PN).Range(B3).Value Does not... so it looks like you simply need to include the file extension. *Paul* - *“Do all the good you can,By all the means you can,In all the ways you can,In all the places you can,At all the times you can,To all the people you can,As long as ever you can.” - John Wesley* - *From:* Sabosis scott...@henryschein.com javascript: *To:* excel-...@googlegroups.com javascript: *Sent:* Wednesday, May 14, 2014 8:03 PM *Subject:* $$Excel-Macros$$ Excel macro from 2003 no longer works in Excel 2010 Hello- I am getting an error message on a certain line in my module that always worked before switching to Office 2010. The line checks for a zero value in a cell and will quit excel if the value is zero. If not zero then the code continues. I am getting an error on this line though as we are switching over to Office 2010. If Workbooks(ESS CentreVu Stats Half).Worksheets(Mel).Range(b3).Value = 0 Then Call CancelReport End If Any idea what is causing this to error out? It is the first line that is highlighted when i debug. Any help would be greatly appreciated. Thanks Scott -- 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...@googlegroups.com javascript:. To post to this group, send email to excel-...@googlegroups.comjavascript: . Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. -- 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/d/optout.
Re: $$Excel-Macros$$ ODS TO EXCEL CONVERSION PROBLEM
super sir thanks On Friday, 16 May 2014 13:47:00 UTC+5:30, Vabz wrote: Hi Try this code.. Sub SaveODSToXLSX() Dim StrFilename As String Dim StrDocName As String Dim StrPath As String Dim oWorkbook As Workbook Dim fDialog As FileDialog Dim intPos As Integer With Application.FileDialog(msoFileDialogFolderPicker) .Title = Choose the folder .Show End With On Error Resume Next StrPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) \ If Right(StrPath, 1) \ Then StrPath = StrPath + \ If Left(StrPath, 1) = Chr(34) Then StrPath = Mid(StrPath, 2, Len(StrPath) - 2) End If StrFilename = Dir$(StrPath *.ods) While Len(StrFilename) 0 Set oWorkbook = Workbooks.Open(StrPath StrFilename) StrDocName = ActiveWorkbook.FullName intPos = InStrRev(StrDocName, .) StrFocName = Left(StrDocName, intPos - 1) StrDocName = StrDocName .xlsx oWorkbook.SaveAs Filename:=StrDocName, FileFormat:=51 oWorkbook.Close Savechanges:=wdDoNotSaveChanges StrFilename = Dir$() Wend MsgBox Conversion is completed, , ODS to XLSX Exit Sub End Sub Cheers!! On Thu, May 15, 2014 at 11:08 PM, renuka chari jva@gmail.comjavascript: wrote: Dear sir, PFA On Thursday, 15 May 2014 13:39:33 UTC+5:30, Vabz wrote: what error you are getting? Share screen shot!! On Thu, May 15, 2014 at 12:59 AM, Renukachari Kasee jva@gmail.comwrote: Dear experts please suggest how to convert bunch of openoffice clac ods formats in a folder i want to convert ods to xlsx format here i am sharing one the web resource, while execute the code it will shows error message. please solve this query... Thanks Regards´¨) ¸ •´ ¸.•*´¨) ¸.•*¨) (¸.•´ (¸.•* ♥♥♥...♪♪♪RenukaChari. Kasee...♥♥♥...♪♪♪ P Let us do our best to save nature, save water, plant trees, protect greenery, keep our surroundings clean, reduce usage of plastics, and use renewable energy sources. -- 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...@googlegroups.com. To post to this group, send email to excel-...@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. -- 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...@googlegroups.com javascript:. To post to this group, send email to excel-...@googlegroups.comjavascript: . Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. -- 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
