Re: $$Excel-Macros$$ Run time error - Type mismatch
Hi Check reference is given to Microsoft Visual Basic for Applications Extensibility 5.x Thanks On Mon, Apr 28, 2014 at 5:50 AM, Sam Mathai Chacko samde...@gmail.comwrote: Ondrej, for that you'll have to enable programmatic access to VBA. Just search the internet how to do that, or post back. Someone will help you. Regards, Sam Mathai Chacko On Apr 27, 2014 7:49 PM, Ondrej o.pel...@gmail.com wrote: HI buddies there is an error in the last sequence of this code (bold), and I can not find the reason why please help Sub btn_vytvorit_Click() Dim ws As Worksheet Dim wsName As String, Name As String Dim MsgError As String Dim wsCopyFrom As Worksheet Set wsCopyFrom = Worksheets(vzorovy_zapis) Dim Msg As String Dim msgsmazat As String Dim riadky As Range Dim noveriadky As Range Dim leden As Range Set leden = Range(A17:AA62) MsgError = Zadaný list již existuje! Vyberte bunku s jiným kódem. Potvrďte End. 'generate ws If ActiveCell.Column 2 Then MsgBox (Nemáte označený kód zaměstnance) Sheets(db_kontakty).Activate Else If Not IsEmpty(ActiveCell) Then Name = ActiveCell.Value Set ws = Worksheets.Add ws.Move after:=Sheets(Sheets.Count) 'not to have two equal ws Dim wks As Worksheet For Each wks In ActiveWorkbook.Worksheets If wks.Name = Name Then MsgBox MsgError, vbOKOnly, Pozor On Error GoTo Chyba End If Next wks ws.Name = Name 'copy data from source wsCopyFrom.Columns(A:AG).Copy ws.Range(A1:AG1000).PasteSpecial (xlPasteAll) ws.Range(S2).Value = ws.Name 'end of creating ws+setup row heights Set riadky = wsCopyFrom.Range(A1:AG1000) Set noveriadky = ws.Range(A1:AG1000) With riadky For r = 1 To .Rows.Count noveriadky.Rows(r).RowHeight = .Rows(r).RowHeight Next r End With Msg = Vložte údaje MsgBox (Msg) Chyba: Sheets(db_kontakty).Activate End If End If Dim i As Integer Dim SrcCmod As VBIDE.CodeModule Dim DstCmod As VBIDE.CodeModule * Set SrcCmod = ActiveWorkbook.VBProject.VBComponents(wsCopyFrom).CodeModule* Set DstCmod = ActiveWorkbook.VBProject.VBComponents(ws).CodeModule For i = 1 To SrcCmod.CountOfLines DstCmod.InsertLines i, SrcCmod.Lines(i, 1) Next i End Sub -- 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. -- 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,
Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file
Dear all excel champs friends Can any one proper guide on this topic means it uis possible or not? Regards Amar On Fri, Apr 11, 2014 at 12:21 PM, amar takale amartak...@gmail.com wrote: Dear Ashish sir Pls help me on this solution. I would appreciate very much Sir Regards Amar Takale On Mon, Apr 7, 2014 at 4:47 PM, amar takale amartak...@gmail.com wrote: Dear Expert team can anyone give me solution on this topic? Regards Amar On Wed, Apr 2, 2014 at 12:59 PM, amar takale amartak...@gmail.com wrote: Dear Ravinder Perfect,You are done it. I am really thankful for its wonderful coding. I have some other query regarding this issue topic (If you have sufficient time regarding my query) Single Excel sheet more than 2 tables 1) I will create button click then automatic table copy paste in word.(First data range fixed of table).there are more than two table with different range.I want all table copy paste in one word file one by one below after one click button. Single Excel sheet one table 1) I will create button click then automatic table copy paste in word.(First data range fixed of table).code not asking for select range. As always Thank you all for your help. I greatly appreciated it. Regards Amar On Wed, Apr 2, 2014 at 12:31 PM, Ravinder ravinderexcelgr...@gmail.com wrote: Try this file -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Wednesday, April 02, 2014 12:22 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ravinder Actually it show like Missing: Microsoft Word 14.0 Object Library Attached screen shot here Regards Amar On Wed, Apr 2, 2014 at 12:09 PM, Ravinder ravinderexcelgr...@gmail.com wrote: Press alt + F11 then go in tools then reference select Microsoft Word 14.0 Object Library library number can b 12.0 or else. Please see attached excel file. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Wednesday, April 02, 2014 10:50 AM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ravinder Thanks for reply but how to do it.Pls give me guidance or give modified code. Regards Amar On Tue, Apr 1, 2014 at 9:31 PM, ravinder negi ravindervbacli...@gmail.com wrote: have u added the library word object library in vba On Mon, Mar 31, 2014 at 10:02 PM, amar takale amartak...@gmail.com wrote: Dear Ravinder VBA Code not working.Attached Error Screen shot here.Pls see guide me.I have no knowledge of VBA. In excel there are no show Microsoft Word library in Tools-reference option but show it as Microsoft Word 11.0 Object library Pls look in this issue. Regards Amar On Mon, Mar 31, 2014 at 5:39 PM, Ravinder ravindervbacli...@gmail.com wrote: Note:- add word library Microsoft Word library This is simply copy and paste value from excel to word and you need to select range (will be asked by program) which you want to transfer in word Sub Button1_Click() Dim wrd As New Word.Application Dim doc As Word.Document Dim RNG As Range Set RNG = Application.InputBox(Please Select Range to Transfer in Word:, Type:=8) Set doc = wrd.documents.Add wrd.Visible = True 'if you dont want to show wrd application then just use false instead of true RNG.Copy wrd.Selection.Paste Set tbl = doc.Tables(1) doc.SaveAs2 ThisWorkbook.Path \ ActiveSheet.Name .doc 'change save as path as per ur requirement End Sub -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Monday, March 31, 2014 3:35 PM To: excel-macros@googlegroups.com Subject: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ashish Sir, I learned many VBA work from your Code which is a lot of time saving easy to do. Before one week on our excel forum one topic discussed as (Macro to Import Word Tables to Excel from a folder). I got code from word to excel but I required excel to word.I use excel 2003. Can you share code excel to word table as proper in one sheet with respective sheet name. I would appreciate very much if you can help me on this. Regards -- 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
RE: $$Excel-Macros$$ How to share Code/Macro ?
Check the same link now… http://excelvbasupport.com/forum/showthread.php?tid=8 Warm Regards, Ravi Kumar. From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Suyog Kulkarni Sent: Monday, April 28, 2014 2:35 PM To: excel-macros@googlegroups.com Cc: Soum Subject: Re: $$Excel-Macros$$ How to share Code/Macro ? Ravinder, Thanks for help, I did all your suggested steps I've created the Add in. I've copied that file to following path. I hope I'm correct. C:\Program Files\Microsoft Office\Office12\XLSTART But still I can't see the same in add-in. Attached is copy of My Menu My new Add in file. Kindly try both. If I just double click My menu that gets automatically added into the above folder. Same way I would like to do for new add in. Pl help. With Regards, Suyog On Saturday, 26 April 2014 15:06:00 UTC+5:30, ravinder negi wrote: Pls visit below link for solution http://excelvbasupport.com/forum/showthread.php?tid=8 From: excel-...@googlegroups.com javascript: [mailto:excel-...@googlegroups.com javascript: ] On Behalf Of Suyog Kulkarni Sent: Saturday, April 26, 2014 2:40 PM To: excel-...@googlegroups.com javascript: Subject: $$Excel-Macros$$ How to share Code/Macro ? Hello All, Kindly refer attached file, I've created macro but I want to share this macro to other users. Following are my difficulties. 1. How can I secure the code ? Kindly add password 12345 for this file. 2. To run the code I need to keep this file open but which I don't want normal user to do ? This macro should run automatically on any pc. 3. Can I add Any additional button which would be appear along with the exiting toolbar of excel ? so that normal use will only click that button without headache ? Kindly advice me. With Regards, Suyog -- 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.com javascript: . 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 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/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.
RE: $$Excel-Macros$$ VBA Code to Import Excel table in Word file
Visit on the below link and check if you are asking for the same http://excelvbasupport.com/forum/showthread.php?tid=22 Warm Regards, Ravi Kumar. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Monday, April 28, 2014 3:00 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear all excel champs friends Can any one proper guide on this topic means it uis possible or not? Regards Amar On Fri, Apr 11, 2014 at 12:21 PM, amar takale amartak...@gmail.com wrote: Dear Ashish sir Pls help me on this solution. I would appreciate very much Sir Regards Amar Takale On Mon, Apr 7, 2014 at 4:47 PM, amar takale amartak...@gmail.com wrote: Dear Expert team can anyone give me solution on this topic? Regards Amar On Wed, Apr 2, 2014 at 12:59 PM, amar takale amartak...@gmail.com wrote: Dear Ravinder Perfect,You are done it. I am really thankful for its wonderful coding. I have some other query regarding this issue topic (If you have sufficient time regarding my query) Single Excel sheet more than 2 tables 1) I will create button click then automatic table copy paste in word.(First data range fixed of table).there are more than two table with different range.I want all table copy paste in one word file one by one below after one click button. Single Excel sheet one table 1) I will create button click then automatic table copy paste in word.(First data range fixed of table).code not asking for select range. As always Thank you all for your help. I greatly appreciated it. Regards Amar On Wed, Apr 2, 2014 at 12:31 PM, Ravinder ravinderexcelgr...@gmail.com wrote: Try this file -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Wednesday, April 02, 2014 12:22 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ravinder Actually it show like Missing: Microsoft Word 14.0 Object Library Attached screen shot here Regards Amar On Wed, Apr 2, 2014 at 12:09 PM, Ravinder ravinderexcelgr...@gmail.com wrote: Press alt + F11 then go in tools then reference select Microsoft Word 14.0 Object Library library number can b 12.0 or else. Please see attached excel file. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Wednesday, April 02, 2014 10:50 AM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ravinder Thanks for reply but how to do it.Pls give me guidance or give modified code. Regards Amar On Tue, Apr 1, 2014 at 9:31 PM, ravinder negi ravindervbacli...@gmail.com wrote: have u added the library word object library in vba On Mon, Mar 31, 2014 at 10:02 PM, amar takale amartak...@gmail.com wrote: Dear Ravinder VBA Code not working.Attached Error Screen shot here.Pls see guide me.I have no knowledge of VBA. In excel there are no show Microsoft Word library in Tools-reference option but show it as Microsoft Word 11.0 Object library Pls look in this issue. Regards Amar On Mon, Mar 31, 2014 at 5:39 PM, Ravinder ravindervbacli...@gmail.com wrote: Note:- add word library Microsoft Word library This is simply copy and paste value from excel to word and you need to select range (will be asked by program) which you want to transfer in word Sub Button1_Click() Dim wrd As New Word.Application Dim doc As Word.Document Dim RNG As Range Set RNG = Application.InputBox(Please Select Range to Transfer in Word:, Type:=8) Set doc = wrd.documents.Add wrd.Visible = True 'if you dont want to show wrd application then just use false instead of true RNG.Copy wrd.Selection.Paste Set tbl = doc.Tables(1) doc.SaveAs2 ThisWorkbook.Path \ ActiveSheet.Name .doc 'change save as path as per ur requirement End Sub -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Monday, March 31, 2014 3:35 PM To: excel-macros@googlegroups.com Subject: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ashish Sir, I learned many VBA work from your Code which is a lot of time saving easy to do. Before one week on our excel forum one topic discussed as (Macro to Import Word Tables to Excel from a folder). I got code from word to excel but I required excel to word.I use excel 2003. Can you share code excel to word table as proper in one sheet with respective sheet name. I would appreciate very much if you can help me on this. Regards -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you
RE: $$Excel-Macros$$ VBA Code to Import Excel table in Word file
Hi Amar, PFB link for your solution, now you can add whatever the table in excel and copy paste in word one by one,, pls revert if you are looking something else. On this... http://excelvbasupport.com/forum/showthread.php?tid=23 -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Ravi Kumar Sent: Monday, April 28, 2014 3:20 PM To: excel-macros@googlegroups.com Subject: RE: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Visit on the below link and check if you are asking for the same http://excelvbasupport.com/forum/showthread.php?tid=22 Warm Regards, Ravi Kumar. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Monday, April 28, 2014 3:00 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear all excel champs friends Can any one proper guide on this topic means it uis possible or not? Regards Amar On Fri, Apr 11, 2014 at 12:21 PM, amar takale amartak...@gmail.com wrote: Dear Ashish sir Pls help me on this solution. I would appreciate very much Sir Regards Amar Takale On Mon, Apr 7, 2014 at 4:47 PM, amar takale amartak...@gmail.com wrote: Dear Expert team can anyone give me solution on this topic? Regards Amar On Wed, Apr 2, 2014 at 12:59 PM, amar takale amartak...@gmail.com wrote: Dear Ravinder Perfect,You are done it. I am really thankful for its wonderful coding. I have some other query regarding this issue topic (If you have sufficient time regarding my query) Single Excel sheet more than 2 tables 1) I will create button click then automatic table copy paste in word.(First data range fixed of table).there are more than two table with different range.I want all table copy paste in one word file one by one below after one click button. Single Excel sheet one table 1) I will create button click then automatic table copy paste in word.(First data range fixed of table).code not asking for select range. As always Thank you all for your help. I greatly appreciated it. Regards Amar On Wed, Apr 2, 2014 at 12:31 PM, Ravinder ravinderexcelgr...@gmail.com wrote: Try this file -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Wednesday, April 02, 2014 12:22 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ravinder Actually it show like Missing: Microsoft Word 14.0 Object Library Attached screen shot here Regards Amar On Wed, Apr 2, 2014 at 12:09 PM, Ravinder ravinderexcelgr...@gmail.com wrote: Press alt + F11 then go in tools then reference select Microsoft Word 14.0 Object Library library number can b 12.0 or else. Please see attached excel file. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Wednesday, April 02, 2014 10:50 AM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ravinder Thanks for reply but how to do it.Pls give me guidance or give modified code. Regards Amar On Tue, Apr 1, 2014 at 9:31 PM, ravinder negi ravindervbacli...@gmail.com wrote: have u added the library word object library in vba On Mon, Mar 31, 2014 at 10:02 PM, amar takale amartak...@gmail.com wrote: Dear Ravinder VBA Code not working.Attached Error Screen shot here.Pls see guide me.I have no knowledge of VBA. In excel there are no show Microsoft Word library in Tools-reference option but show it as Microsoft Word 11.0 Object library Pls look in this issue. Regards Amar On Mon, Mar 31, 2014 at 5:39 PM, Ravinder ravindervbacli...@gmail.com wrote: Note:- add word library Microsoft Word library This is simply copy and paste value from excel to word and you need to select range (will be asked by program) which you want to transfer in word Sub Button1_Click() Dim wrd As New Word.Application Dim doc As Word.Document Dim RNG As Range Set RNG = Application.InputBox(Please Select Range to Transfer in Word:, Type:=8) Set doc = wrd.documents.Add wrd.Visible = True 'if you dont want to show wrd application then just use false instead of true RNG.Copy wrd.Selection.Paste Set tbl = doc.Tables(1) doc.SaveAs2 ThisWorkbook.Path \ ActiveSheet.Name .doc 'change save as path as per ur requirement End Sub -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Monday, March 31, 2014 3:35 PM To: excel-macros@googlegroups.com Subject: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ashish Sir, I learned many VBA
RE: $$Excel-Macros$$ VBA Code to Import Excel table in Word file
No need to do anything just comment the two lines 'Dim wrdapps As Word.Application 'Dim wrddoc As Word.Document It would work Warm Regards, Ravi Kumar. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Monday, April 28, 2014 3:34 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ravi I found example file in above link forum but there are error show cant find project or library.PFA both file.Pls see it Regards Amar On Mon, Apr 28, 2014 at 3:19 PM, Ravi Kumar excellearn2...@gmail.com wrote: Visit on the below link and check if you are asking for the same http://excelvbasupport.com/forum/showthread.php?tid=22 Warm Regards, Ravi Kumar. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Monday, April 28, 2014 3:00 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear all excel champs friends Can any one proper guide on this topic means it uis possible or not? Regards Amar On Fri, Apr 11, 2014 at 12:21 PM, amar takale amartak...@gmail.com wrote: Dear Ashish sir Pls help me on this solution. I would appreciate very much Sir Regards Amar Takale On Mon, Apr 7, 2014 at 4:47 PM, amar takale amartak...@gmail.com wrote: Dear Expert team can anyone give me solution on this topic? Regards Amar On Wed, Apr 2, 2014 at 12:59 PM, amar takale amartak...@gmail.com wrote: Dear Ravinder Perfect,You are done it. I am really thankful for its wonderful coding. I have some other query regarding this issue topic (If you have sufficient time regarding my query) Single Excel sheet more than 2 tables 1) I will create button click then automatic table copy paste in word.(First data range fixed of table).there are more than two table with different range.I want all table copy paste in one word file one by one below after one click button. Single Excel sheet one table 1) I will create button click then automatic table copy paste in word.(First data range fixed of table).code not asking for select range. As always Thank you all for your help. I greatly appreciated it. Regards Amar On Wed, Apr 2, 2014 at 12:31 PM, Ravinder ravinderexcelgr...@gmail.com wrote: Try this file -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Wednesday, April 02, 2014 12:22 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ravinder Actually it show like Missing: Microsoft Word 14.0 Object Library Attached screen shot here Regards Amar On Wed, Apr 2, 2014 at 12:09 PM, Ravinder ravinderexcelgr...@gmail.com wrote: Press alt + F11 then go in tools then reference select Microsoft Word 14.0 Object Library library number can b 12.0 or else. Please see attached excel file. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Wednesday, April 02, 2014 10:50 AM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ravinder Thanks for reply but how to do it.Pls give me guidance or give modified code. Regards Amar On Tue, Apr 1, 2014 at 9:31 PM, ravinder negi ravindervbacli...@gmail.com wrote: have u added the library word object library in vba On Mon, Mar 31, 2014 at 10:02 PM, amar takale amartak...@gmail.com wrote: Dear Ravinder VBA Code not working.Attached Error Screen shot here.Pls see guide me.I have no knowledge of VBA. In excel there are no show Microsoft Word library in Tools-reference option but show it as Microsoft Word 11.0 Object library Pls look in this issue. Regards Amar On Mon, Mar 31, 2014 at 5:39 PM, Ravinder ravindervbacli...@gmail.com wrote: Note:- add word library Microsoft Word library This is simply copy and paste value from excel to word and you need to select range (will be asked by program) which you want to transfer in word Sub Button1_Click() Dim wrd As New Word.Application Dim doc As Word.Document Dim RNG As Range Set RNG = Application.InputBox(Please Select Range to Transfer in Word:, Type:=8) Set doc = wrd.documents.Add wrd.Visible = True 'if you dont want to show wrd application then just use false instead of true RNG.Copy wrd.Selection.Paste Set tbl = doc.Tables(1) doc.SaveAs2 ThisWorkbook.Path \ ActiveSheet.Name .doc 'change save as path as per ur requirement End Sub -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Monday, March 31,
Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file
Dear Ravi Sheet not work with modified code Pls send me excel sheet with this modified code. (In references show Missing: Microsoft Word 14.0 Object Library) Regards amar On Mon, Apr 28, 2014 at 3:40 PM, Ravi Kumar excellearn2...@gmail.com wrote: No need to do anything just comment the two lines 'Dim wrdapps As Word.Application 'Dim wrddoc As Word.Document It would work Warm Regards, Ravi Kumar. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Monday, April 28, 2014 3:34 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ravi I found example file in above link forum but there are error show cant find project or library.PFA both file.Pls see it Regards Amar On Mon, Apr 28, 2014 at 3:19 PM, Ravi Kumar excellearn2...@gmail.com wrote: Visit on the below link and check if you are asking for the same http://excelvbasupport.com/forum/showthread.php?tid=22 Warm Regards, Ravi Kumar. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Monday, April 28, 2014 3:00 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear all excel champs friends Can any one proper guide on this topic means it uis possible or not? Regards Amar On Fri, Apr 11, 2014 at 12:21 PM, amar takale amartak...@gmail.com wrote: Dear Ashish sir Pls help me on this solution. I would appreciate very much Sir Regards Amar Takale On Mon, Apr 7, 2014 at 4:47 PM, amar takale amartak...@gmail.com wrote: Dear Expert team can anyone give me solution on this topic? Regards Amar On Wed, Apr 2, 2014 at 12:59 PM, amar takale amartak...@gmail.com wrote: Dear Ravinder Perfect,You are done it. I am really thankful for its wonderful coding. I have some other query regarding this issue topic (If you have sufficient time regarding my query) Single Excel sheet more than 2 tables 1) I will create button click then automatic table copy paste in word.(First data range fixed of table).there are more than two table with different range.I want all table copy paste in one word file one by one below after one click button. Single Excel sheet one table 1) I will create button click then automatic table copy paste in word.(First data range fixed of table).code not asking for select range. As always Thank you all for your help. I greatly appreciated it. Regards Amar On Wed, Apr 2, 2014 at 12:31 PM, Ravinder ravinderexcelgr...@gmail.com wrote: Try this file -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Wednesday, April 02, 2014 12:22 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ravinder Actually it show like Missing: Microsoft Word 14.0 Object Library Attached screen shot here Regards Amar On Wed, Apr 2, 2014 at 12:09 PM, Ravinder ravinderexcelgr...@gmail.com wrote: Press alt + F11 then go in tools then reference select Microsoft Word 14.0 Object Library library number can b 12.0 or else. Please see attached excel file. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Wednesday, April 02, 2014 10:50 AM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ravinder Thanks for reply but how to do it.Pls give me guidance or give modified code. Regards Amar On Tue, Apr 1, 2014 at 9:31 PM, ravinder negi ravindervbacli...@gmail.com wrote: have u added the library word object library in vba On Mon, Mar 31, 2014 at 10:02 PM, amar takale amartak...@gmail.com wrote: Dear Ravinder VBA Code not working.Attached Error Screen shot here.Pls see guide me.I have no knowledge of VBA. In excel there are no show Microsoft Word library in Tools-reference option but show it as Microsoft Word 11.0 Object library Pls look in this issue. Regards Amar On Mon, Mar 31, 2014 at 5:39 PM, Ravinder ravindervbacli...@gmail.com wrote: Note:- add word library Microsoft Word library This is simply copy and paste value from excel to word and you need to select range (will be asked by program) which you want to transfer in word Sub Button1_Click() Dim wrd As New Word.Application Dim doc As Word.Document Dim RNG As Range Set RNG = Application.InputBox(Please Select Range to Transfer in Word:, Type:=8) Set doc = wrd.documents.Add wrd.Visible = True 'if you dont want to show wrd application then just use false instead of true RNG.Copy wrd.Selection.Paste Set tbl = doc.Tables(1) doc.SaveAs2 ThisWorkbook.Path \
RE: $$Excel-Macros$$ VBA Code to Import Excel table in Word file
Ok check the below link http://excelvbasupport.com/forum/showthread.php?tid=23 Warm Regards, Ravi Kumar. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Monday, April 28, 2014 4:02 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ravi Sheet not work with modified code Pls send me excel sheet with this modified code. (In references show Missing: Microsoft Word 14.0 Object Library) Regards amar On Mon, Apr 28, 2014 at 3:40 PM, Ravi Kumar excellearn2...@gmail.com wrote: No need to do anything just comment the two lines 'Dim wrdapps As Word.Application 'Dim wrddoc As Word.Document It would work Warm Regards, Ravi Kumar. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Monday, April 28, 2014 3:34 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ravi I found example file in above link forum but there are error show cant find project or library.PFA both file.Pls see it Regards Amar On Mon, Apr 28, 2014 at 3:19 PM, Ravi Kumar excellearn2...@gmail.com wrote: Visit on the below link and check if you are asking for the same http://excelvbasupport.com/forum/showthread.php?tid=22 Warm Regards, Ravi Kumar. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Monday, April 28, 2014 3:00 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear all excel champs friends Can any one proper guide on this topic means it uis possible or not? Regards Amar On Fri, Apr 11, 2014 at 12:21 PM, amar takale amartak...@gmail.com wrote: Dear Ashish sir Pls help me on this solution. I would appreciate very much Sir Regards Amar Takale On Mon, Apr 7, 2014 at 4:47 PM, amar takale amartak...@gmail.com wrote: Dear Expert team can anyone give me solution on this topic? Regards Amar On Wed, Apr 2, 2014 at 12:59 PM, amar takale amartak...@gmail.com wrote: Dear Ravinder Perfect,You are done it. I am really thankful for its wonderful coding. I have some other query regarding this issue topic (If you have sufficient time regarding my query) Single Excel sheet more than 2 tables 1) I will create button click then automatic table copy paste in word.(First data range fixed of table).there are more than two table with different range.I want all table copy paste in one word file one by one below after one click button. Single Excel sheet one table 1) I will create button click then automatic table copy paste in word.(First data range fixed of table).code not asking for select range. As always Thank you all for your help. I greatly appreciated it. Regards Amar On Wed, Apr 2, 2014 at 12:31 PM, Ravinder ravinderexcelgr...@gmail.com wrote: Try this file -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Wednesday, April 02, 2014 12:22 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ravinder Actually it show like Missing: Microsoft Word 14.0 Object Library Attached screen shot here Regards Amar On Wed, Apr 2, 2014 at 12:09 PM, Ravinder ravinderexcelgr...@gmail.com wrote: Press alt + F11 then go in tools then reference select Microsoft Word 14.0 Object Library library number can b 12.0 or else. Please see attached excel file. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Wednesday, April 02, 2014 10:50 AM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ravinder Thanks for reply but how to do it.Pls give me guidance or give modified code. Regards Amar On Tue, Apr 1, 2014 at 9:31 PM, ravinder negi ravindervbacli...@gmail.com wrote: have u added the library word object library in vba On Mon, Mar 31, 2014 at 10:02 PM, amar takale amartak...@gmail.com wrote: Dear Ravinder VBA Code not working.Attached Error Screen shot here.Pls see guide me.I have no knowledge of VBA. In excel there are no show Microsoft Word library in Tools-reference option but show it as Microsoft Word 11.0 Object library Pls look in this issue. Regards Amar On Mon, Mar 31, 2014 at 5:39 PM, Ravinder ravindervbacli...@gmail.com wrote: Note:- add word library Microsoft Word library This is simply copy and paste value from excel to word and you need to select range (will be asked by program) which you want to transfer in word Sub
Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file
Same error show cant find project or library On Mon, Apr 28, 2014 at 4:10 PM, Ravi Kumar excellearn2...@gmail.com wrote: Ok check the below link http://excelvbasupport.com/forum/showthread.php?tid=23 Warm Regards, Ravi Kumar. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Monday, April 28, 2014 4:02 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ravi Sheet not work with modified code Pls send me excel sheet with this modified code. (In references show Missing: Microsoft Word 14.0 Object Library) Regards amar On Mon, Apr 28, 2014 at 3:40 PM, Ravi Kumar excellearn2...@gmail.com wrote: No need to do anything just comment the two lines 'Dim wrdapps As Word.Application 'Dim wrddoc As Word.Document It would work Warm Regards, Ravi Kumar. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Monday, April 28, 2014 3:34 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ravi I found example file in above link forum but there are error show cant find project or library.PFA both file.Pls see it Regards Amar On Mon, Apr 28, 2014 at 3:19 PM, Ravi Kumar excellearn2...@gmail.com wrote: Visit on the below link and check if you are asking for the same http://excelvbasupport.com/forum/showthread.php?tid=22 Warm Regards, Ravi Kumar. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Monday, April 28, 2014 3:00 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear all excel champs friends Can any one proper guide on this topic means it uis possible or not? Regards Amar On Fri, Apr 11, 2014 at 12:21 PM, amar takale amartak...@gmail.com wrote: Dear Ashish sir Pls help me on this solution. I would appreciate very much Sir Regards Amar Takale On Mon, Apr 7, 2014 at 4:47 PM, amar takale amartak...@gmail.com wrote: Dear Expert team can anyone give me solution on this topic? Regards Amar On Wed, Apr 2, 2014 at 12:59 PM, amar takale amartak...@gmail.com wrote: Dear Ravinder Perfect,You are done it. I am really thankful for its wonderful coding. I have some other query regarding this issue topic (If you have sufficient time regarding my query) Single Excel sheet more than 2 tables 1) I will create button click then automatic table copy paste in word.(First data range fixed of table).there are more than two table with different range.I want all table copy paste in one word file one by one below after one click button. Single Excel sheet one table 1) I will create button click then automatic table copy paste in word.(First data range fixed of table).code not asking for select range. As always Thank you all for your help. I greatly appreciated it. Regards Amar On Wed, Apr 2, 2014 at 12:31 PM, Ravinder ravinderexcelgr...@gmail.com wrote: Try this file -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Wednesday, April 02, 2014 12:22 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ravinder Actually it show like Missing: Microsoft Word 14.0 Object Library Attached screen shot here Regards Amar On Wed, Apr 2, 2014 at 12:09 PM, Ravinder ravinderexcelgr...@gmail.com wrote: Press alt + F11 then go in tools then reference select Microsoft Word 14.0 Object Library library number can b 12.0 or else. Please see attached excel file. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Wednesday, April 02, 2014 10:50 AM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ravinder Thanks for reply but how to do it.Pls give me guidance or give modified code. Regards Amar On Tue, Apr 1, 2014 at 9:31 PM, ravinder negi ravindervbacli...@gmail.com wrote: have u added the library word object library in vba On Mon, Mar 31, 2014 at 10:02 PM, amar takale amartak...@gmail.com wrote: Dear Ravinder VBA Code not working.Attached Error Screen shot here.Pls see guide me.I have no knowledge of VBA. In excel there are no show Microsoft Word library in Tools-reference option but show it as Microsoft Word 11.0 Object library Pls look in this issue. Regards Amar On Mon, Mar 31, 2014 at 5:39 PM, Ravinder ravindervbacli...@gmail.com wrote: Note:- add word library Microsoft Word library This is simply copy and paste value from
RE: $$Excel-Macros$$ VBA Code to Import Excel table in Word file
Try this Sub Button1_Click() Dim wb As Workbook Dim ws As Worksheet Dim tbl As ListObject Dim wrd As Object Dim doc As Object Dim sel As Object Set wb = ThisWorkbook Set ws = wb.Sheets(1) Set wrd = CreateObject(word.application) wrd.Visible = True Set doc = wrd.Documents.Add For Each tbl In ws.ListObjects tbl.Range.Copy wrd.Selection.Paste wrd.Selection.TypeParagraph Next Application.CutCopyMode = xlCopy MsgBox Done End Sub Warm Regards, Ravi Kumar. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Monday, April 28, 2014 4:15 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Same error show cant find project or library On Mon, Apr 28, 2014 at 4:10 PM, Ravi Kumar excellearn2...@gmail.com wrote: Ok check the below link http://excelvbasupport.com/forum/showthread.php?tid=23 Warm Regards, Ravi Kumar. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Monday, April 28, 2014 4:02 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ravi Sheet not work with modified code Pls send me excel sheet with this modified code. (In references show Missing: Microsoft Word 14.0 Object Library) Regards amar On Mon, Apr 28, 2014 at 3:40 PM, Ravi Kumar excellearn2...@gmail.com wrote: No need to do anything just comment the two lines 'Dim wrdapps As Word.Application 'Dim wrddoc As Word.Document It would work Warm Regards, Ravi Kumar. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Monday, April 28, 2014 3:34 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ravi I found example file in above link forum but there are error show cant find project or library.PFA both file.Pls see it Regards Amar On Mon, Apr 28, 2014 at 3:19 PM, Ravi Kumar excellearn2...@gmail.com wrote: Visit on the below link and check if you are asking for the same http://excelvbasupport.com/forum/showthread.php?tid=22 Warm Regards, Ravi Kumar. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Monday, April 28, 2014 3:00 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear all excel champs friends Can any one proper guide on this topic means it uis possible or not? Regards Amar On Fri, Apr 11, 2014 at 12:21 PM, amar takale amartak...@gmail.com wrote: Dear Ashish sir Pls help me on this solution. I would appreciate very much Sir Regards Amar Takale On Mon, Apr 7, 2014 at 4:47 PM, amar takale amartak...@gmail.com wrote: Dear Expert team can anyone give me solution on this topic? Regards Amar On Wed, Apr 2, 2014 at 12:59 PM, amar takale amartak...@gmail.com wrote: Dear Ravinder Perfect,You are done it. I am really thankful for its wonderful coding. I have some other query regarding this issue topic (If you have sufficient time regarding my query) Single Excel sheet more than 2 tables 1) I will create button click then automatic table copy paste in word.(First data range fixed of table).there are more than two table with different range.I want all table copy paste in one word file one by one below after one click button. Single Excel sheet one table 1) I will create button click then automatic table copy paste in word.(First data range fixed of table).code not asking for select range. As always Thank you all for your help. I greatly appreciated it. Regards Amar On Wed, Apr 2, 2014 at 12:31 PM, Ravinder ravinderexcelgr...@gmail.com wrote: Try this file -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Wednesday, April 02, 2014 12:22 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ravinder Actually it show like Missing: Microsoft Word 14.0 Object Library Attached screen shot here Regards Amar On Wed, Apr 2, 2014 at 12:09 PM, Ravinder ravinderexcelgr...@gmail.com wrote: Press alt + F11 then go in tools then reference select Microsoft Word 14.0 Object Library library number can b 12.0 or else. Please see attached excel file. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Wednesday, April 02, 2014 10:50 AM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ravinder Thanks for reply but how
Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file
Dear ravi ,Can you Pls send me sample excel On Mon, Apr 28, 2014 at 4:24 PM, Ravi Kumar excellearn2...@gmail.com wrote: Try this Sub Button1_Click() Dim wb As Workbook Dim ws As Worksheet Dim tbl As ListObject Dim wrd As Object Dim doc As Object Dim sel As Object Set wb = ThisWorkbook Set ws = wb.Sheets(1) Set wrd = CreateObject(word.application) wrd.Visible = True Set doc = wrd.Documents.Add For Each tbl In ws.ListObjects tbl.Range.Copy wrd.Selection.Paste wrd.Selection.TypeParagraph Next Application.CutCopyMode = xlCopy MsgBox Done End Sub Warm Regards, Ravi Kumar. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Monday, April 28, 2014 4:15 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Same error show cant find project or library On Mon, Apr 28, 2014 at 4:10 PM, Ravi Kumar excellearn2...@gmail.com wrote: Ok check the below link http://excelvbasupport.com/forum/showthread.php?tid=23 Warm Regards, Ravi Kumar. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Monday, April 28, 2014 4:02 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ravi Sheet not work with modified code Pls send me excel sheet with this modified code. (In references show Missing: Microsoft Word 14.0 Object Library) Regards amar On Mon, Apr 28, 2014 at 3:40 PM, Ravi Kumar excellearn2...@gmail.com wrote: No need to do anything just comment the two lines 'Dim wrdapps As Word.Application 'Dim wrddoc As Word.Document It would work Warm Regards, Ravi Kumar. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Monday, April 28, 2014 3:34 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ravi I found example file in above link forum but there are error show cant find project or library.PFA both file.Pls see it Regards Amar On Mon, Apr 28, 2014 at 3:19 PM, Ravi Kumar excellearn2...@gmail.com wrote: Visit on the below link and check if you are asking for the same http://excelvbasupport.com/forum/showthread.php?tid=22 Warm Regards, Ravi Kumar. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Monday, April 28, 2014 3:00 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear all excel champs friends Can any one proper guide on this topic means it uis possible or not? Regards Amar On Fri, Apr 11, 2014 at 12:21 PM, amar takale amartak...@gmail.com wrote: Dear Ashish sir Pls help me on this solution. I would appreciate very much Sir Regards Amar Takale On Mon, Apr 7, 2014 at 4:47 PM, amar takale amartak...@gmail.com wrote: Dear Expert team can anyone give me solution on this topic? Regards Amar On Wed, Apr 2, 2014 at 12:59 PM, amar takale amartak...@gmail.com wrote: Dear Ravinder Perfect,You are done it. I am really thankful for its wonderful coding. I have some other query regarding this issue topic (If you have sufficient time regarding my query) Single Excel sheet more than 2 tables 1) I will create button click then automatic table copy paste in word.(First data range fixed of table).there are more than two table with different range.I want all table copy paste in one word file one by one below after one click button. Single Excel sheet one table 1) I will create button click then automatic table copy paste in word.(First data range fixed of table).code not asking for select range. As always Thank you all for your help. I greatly appreciated it. Regards Amar On Wed, Apr 2, 2014 at 12:31 PM, Ravinder ravinderexcelgr...@gmail.com wrote: Try this file -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Wednesday, April 02, 2014 12:22 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ravinder Actually it show like Missing: Microsoft Word 14.0 Object Library Attached screen shot here Regards Amar On Wed, Apr 2, 2014 at 12:09 PM, Ravinder ravinderexcelgr...@gmail.com wrote: Press alt + F11 then go in tools then reference select Microsoft Word 14.0 Object Library library number can b 12.0 or else. Please see attached excel file. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Wednesday, April 02, 2014 10:50 AM To:
Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file
OK On Mon, Apr 28, 2014 at 4:55 PM, Ravi Kumar excellearn2...@gmail.com wrote: Ok PFA... You can also post your queries in below link by click on New Thread http://excelvbasupport.com/forum/forumdisplay.php?fid=6 Warm Regards, Ravi Kumar. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Monday, April 28, 2014 4:48 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear ravi ,Can you Pls send me sample excel On Mon, Apr 28, 2014 at 4:24 PM, Ravi Kumar excellearn2...@gmail.com wrote: Try this Sub Button1_Click() Dim wb As Workbook Dim ws As Worksheet Dim tbl As ListObject Dim wrd As Object Dim doc As Object Dim sel As Object Set wb = ThisWorkbook Set ws = wb.Sheets(1) Set wrd = CreateObject(word.application) wrd.Visible = True Set doc = wrd.Documents.Add For Each tbl In ws.ListObjects tbl.Range.Copy wrd.Selection.Paste wrd.Selection.TypeParagraph Next Application.CutCopyMode = xlCopy MsgBox Done End Sub Warm Regards, Ravi Kumar. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Monday, April 28, 2014 4:15 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Same error show cant find project or library On Mon, Apr 28, 2014 at 4:10 PM, Ravi Kumar excellearn2...@gmail.com wrote: Ok check the below link http://excelvbasupport.com/forum/showthread.php?tid=23 Warm Regards, Ravi Kumar. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Monday, April 28, 2014 4:02 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ravi Sheet not work with modified code Pls send me excel sheet with this modified code. (In references show Missing: Microsoft Word 14.0 Object Library) Regards amar On Mon, Apr 28, 2014 at 3:40 PM, Ravi Kumar excellearn2...@gmail.com wrote: No need to do anything just comment the two lines 'Dim wrdapps As Word.Application 'Dim wrddoc As Word.Document It would work Warm Regards, Ravi Kumar. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Monday, April 28, 2014 3:34 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ravi I found example file in above link forum but there are error show cant find project or library.PFA both file.Pls see it Regards Amar On Mon, Apr 28, 2014 at 3:19 PM, Ravi Kumar excellearn2...@gmail.com wrote: Visit on the below link and check if you are asking for the same http://excelvbasupport.com/forum/showthread.php?tid=22 Warm Regards, Ravi Kumar. -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Monday, April 28, 2014 3:00 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear all excel champs friends Can any one proper guide on this topic means it uis possible or not? Regards Amar On Fri, Apr 11, 2014 at 12:21 PM, amar takale amartak...@gmail.com wrote: Dear Ashish sir Pls help me on this solution. I would appreciate very much Sir Regards Amar Takale On Mon, Apr 7, 2014 at 4:47 PM, amar takale amartak...@gmail.com wrote: Dear Expert team can anyone give me solution on this topic? Regards Amar On Wed, Apr 2, 2014 at 12:59 PM, amar takale amartak...@gmail.com wrote: Dear Ravinder Perfect,You are done it. I am really thankful for its wonderful coding. I have some other query regarding this issue topic (If you have sufficient time regarding my query) Single Excel sheet more than 2 tables 1) I will create button click then automatic table copy paste in word.(First data range fixed of table).there are more than two table with different range.I want all table copy paste in one word file one by one below after one click button. Single Excel sheet one table 1) I will create button click then automatic table copy paste in word.(First data range fixed of table).code not asking for select range. As always Thank you all for your help. I greatly appreciated it. Regards Amar On Wed, Apr 2, 2014 at 12:31 PM, Ravinder ravinderexcelgr...@gmail.com wrote: Try this file -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Wednesday, April 02, 2014 12:22 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file Dear Ravinder
$$Excel-Macros$$ Fwd: regarding getpivot data
Dear friends can any one explain the use of getpivot data... i have excel 2010 and it seems much advanced formulas and all so if any one have working with examples of such new formula pls suggest me or guide me... thanks to all ashish -- 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.
$$Excel-Macros$$ Fwd: scenario manager
dear experts can u please explain the function of scenario manager and where can we use this as some of my senior had told me that its very useful but i have not much knowledge of this funtion. ashish -- 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.
Fwd: $$Excel-Macros$$ Fwd: regarding getpivot data
Dear friends can any one explain the use of getpivot data... i have excel 2010 and it seems much advanced formulas and all so if any one have working with examples of such new formula pls suggest me or guide me... thanks to all ashish -- 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.
$$Excel-Macros$$ formula issue
Dear Sir I have downloaded a file from the net but unable to understand the logic in column Q AND R as the file is read only only so can anyone say me how that delay had been calculated and interest is calculated... thanks in advance regards LKM -- 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$$ Run time error - Type mismatch
Vaibhav, before giving a solution, it is always a kind thing to do to ensure you validate what you are saying. If the Applications Extensibility library reference wasn't added, the sub-routine wouldn't have even execute because the declaration in the following lines would have not compiled. Dim SrcCmod As VBIDE.CodeModule Dim DstCmod As VBIDE.CodeModule Thanks, Sam Mathai Chacko On Mon, Apr 28, 2014 at 1:30 PM, Vaibhav Joshi v...@vabs.in wrote: Hi Check reference is given to Microsoft Visual Basic for Applications Extensibility 5.x Thanks On Mon, Apr 28, 2014 at 5:50 AM, Sam Mathai Chacko samde...@gmail.comwrote: Ondrej, for that you'll have to enable programmatic access to VBA. Just search the internet how to do that, or post back. Someone will help you. Regards, Sam Mathai Chacko On Apr 27, 2014 7:49 PM, Ondrej o.pel...@gmail.com wrote: HI buddies there is an error in the last sequence of this code (bold), and I can not find the reason why please help Sub btn_vytvorit_Click() Dim ws As Worksheet Dim wsName As String, Name As String Dim MsgError As String Dim wsCopyFrom As Worksheet Set wsCopyFrom = Worksheets(vzorovy_zapis) Dim Msg As String Dim msgsmazat As String Dim riadky As Range Dim noveriadky As Range Dim leden As Range Set leden = Range(A17:AA62) MsgError = Zadaný list již existuje! Vyberte bunku s jiným kódem. Potvrďte End. 'generate ws If ActiveCell.Column 2 Then MsgBox (Nemáte označený kód zaměstnance) Sheets(db_kontakty).Activate Else If Not IsEmpty(ActiveCell) Then Name = ActiveCell.Value Set ws = Worksheets.Add ws.Move after:=Sheets(Sheets.Count) 'not to have two equal ws Dim wks As Worksheet For Each wks In ActiveWorkbook.Worksheets If wks.Name = Name Then MsgBox MsgError, vbOKOnly, Pozor On Error GoTo Chyba End If Next wks ws.Name = Name 'copy data from source wsCopyFrom.Columns(A:AG).Copy ws.Range(A1:AG1000).PasteSpecial (xlPasteAll) ws.Range(S2).Value = ws.Name 'end of creating ws+setup row heights Set riadky = wsCopyFrom.Range(A1:AG1000) Set noveriadky = ws.Range(A1:AG1000) With riadky For r = 1 To .Rows.Count noveriadky.Rows(r).RowHeight = .Rows(r).RowHeight Next r End With Msg = Vložte údaje MsgBox (Msg) Chyba: Sheets(db_kontakty).Activate End If End If Dim i As Integer Dim SrcCmod As VBIDE.CodeModule Dim DstCmod As VBIDE.CodeModule * Set SrcCmod = ActiveWorkbook.VBProject.VBComponents(wsCopyFrom).CodeModule* Set DstCmod = ActiveWorkbook.VBProject.VBComponents(ws).CodeModule For i = 1 To SrcCmod.CountOfLines DstCmod.InsertLines i, SrcCmod.Lines(i, 1) Next i End Sub -- 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
Re: $$Excel-Macros$$ Re: find duplicate rows of data between sheets macro
Hi Paul, The code given above works well for the sheets in same workbook. send me the code for data in two different work books. Regards Eugene On Fri, Apr 25, 2014 at 9:15 PM, Paul Schreiner schreiner_p...@att.netwrote: It works perfectly in my workbook. Row 6 is unhighlighted in sheet1 and 6 and 13 are unhighlighted in sheet2. better check to make sure the macro was copied correctly, here it is from my workbook: Option Explicit Public Dict_Data1, Dict_Data2 Sub Compare() Dim Sht1, Sht2 Dim nRows, r, sData, rArray, inx Dim tstart, tstop, TElapsed, TMin, TSec, msg '- Application.ScreenUpdating = False '- tstart = Timer Set Dict_Data1 = CreateObject(Scripting.Dictionary) Set Dict_Data2 = CreateObject(Scripting.Dictionary) Dict_Data1.RemoveAll Dict_Data2.RemoveAll '- 'Identify sheets to compare '- Sht1 = Sheet1 Sht2 = Sheet2 '- ' Clear Highlighting '- Sheets(Sht1).Select With Cells.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With Sheets(Sht2).Select With Cells.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With '- ' Load data from Sht1 into Dictionary Object '- nRows = Application.WorksheetFunction.CountA(Sheets(Sht1).Range(A1:A Sheets(Sht1).Rows.Count)) For r = 2 To nRows If (r Mod 1000 = 0) Then Application.StatusBar = Loading Sht1 row r of nRows sData = Trim(Sheets(Sht1).Cells(r, A).Value) sData = sData | Trim(Sheets(Sht1).Cells(r, B).Value) sData = sData | Trim(Sheets(Sht1).Cells(r, C).Value) sData = sData | Trim(Sheets(Sht1).Cells(r, D).Value) sData = sData | Trim(Sheets(Sht1).Cells(r, F).Value) sData = sData | Trim(Sheets(Sht1).Cells(r, H).Value) sData = sData | Trim(Sheets(Sht1).Cells(r, I).Value) If (Not Dict_Data1.exists(sData)) Then Dict_Data1.Add sData, r '-- Else ' In case of duplicate rows, collect all row numbers '-- Dict_Data1.Item(sData) = Dict_Data1.Item(sData) , r End If Next '- ' Process Sht2 data, compare to sht1 '- nRows = Application.WorksheetFunction.CountA(Sheets(Sht2).Range(A1:A Sheets(Sht2).Rows.Count)) For r = 2 To nRows If (r Mod 1000 = 0) Then Application.StatusBar = Processing Sht2 row r of nRows sData = Trim(Sheets(Sht2).Cells(r, A).Value) sData = sData | Trim(Sheets(Sht2).Cells(r, B).Value) sData = sData | Trim(Sheets(Sht2).Cells(r, C).Value) sData = sData | Trim(Sheets(Sht2).Cells(r, D).Value) sData = sData | Trim(Sheets(Sht2).Cells(r, F).Value) sData = sData | Trim(Sheets(Sht2).Cells(r, H).Value) sData = sData | Trim(Sheets(Sht2).Cells(r, I).Value) If (Dict_Data1.exists(sData)) Then '--- 'highlight row in sht2 '--- Sheets(Sht2).Select With Sheets(Sht2).Range(Cells(r, A), Cells(r, I)).Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End With '--- 'highlight rows in sht1 '--- Sheets(Sht1).Select rArray = Split(Dict_Data1.Item(sData), ,) For inx = 0 To UBound(rArray) With Sheets(Sht1).Range(Cells(rArray(inx), A), Cells(rArray(inx), I)).Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End With Next inx End If Next Application.StatusBar = False Application.ScreenUpdating = True ' msg =
Re: $$Excel-Macros$$ Re: find duplicate rows of data between sheets macro
Any place you have: Sheets( add the workbook name: Workbooks(Firstfile).Sheets( For the workbook that contains the code, you can use: Thisworkbook.Sheets( 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: Eugene Bernard eugene.bern...@gmail.com To: excel-macros@googlegroups.com Sent: Monday, April 28, 2014 11:49 AM Subject: Re: $$Excel-Macros$$ Re: find duplicate rows of data between sheets macro Hi Paul, The code given above works well for the sheets in same workbook. send me the code for data in two different work books. Regards Eugene On Fri, Apr 25, 2014 at 9:15 PM, Paul Schreiner schreiner_p...@att.net wrote: It works perfectly in my workbook. Row 6 is unhighlighted in sheet1 and 6 and 13 are unhighlighted in sheet2. better check to make sure the macro was copied correctly, here it is from my workbook: Option Explicit Public Dict_Data1, Dict_Data2 Sub Compare() Dim Sht1, Sht2 Dim nRows, r, sData, rArray, inx Dim tstart, tstop, TElapsed, TMin, TSec, msg '- Application.ScreenUpdating = False '- tstart = Timer Set Dict_Data1 = CreateObject(Scripting.Dictionary) Set Dict_Data2 = CreateObject(Scripting.Dictionary) Dict_Data1.RemoveAll Dict_Data2.RemoveAll '- 'Identify sheets to compare '- Sht1 = Sheet1 Sht2 = Sheet2 '- ' Clear Highlighting '- Sheets(Sht1).Select With Cells.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With Sheets(Sht2).Select With Cells.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With '- ' Load data from Sht1 into Dictionary Object '- nRows = Application.WorksheetFunction.CountA(Sheets(Sht1).Range(A1:A Sheets(Sht1).Rows.Count)) For r = 2 To nRows If (r Mod 1000 = 0) Then Application.StatusBar = Loading Sht1 row r of nRows sData = Trim(Sheets(Sht1).Cells(r, A).Value) sData = sData | Trim(Sheets(Sht1).Cells(r, B).Value) sData = sData | Trim(Sheets(Sht1).Cells(r, C).Value) sData = sData | Trim(Sheets(Sht1).Cells(r, D).Value) sData = sData | Trim(Sheets(Sht1).Cells(r, F).Value) sData = sData | Trim(Sheets(Sht1).Cells(r, H).Value) sData = sData | Trim(Sheets(Sht1).Cells(r, I).Value) If (Not Dict_Data1.exists(sData)) Then Dict_Data1.Add sData, r '-- Else ' In case of duplicate rows, collect all row numbers '-- Dict_Data1.Item(sData) = Dict_Data1.Item(sData) , r End If Next '- ' Process Sht2 data, compare to sht1 '- nRows = Application.WorksheetFunction.CountA(Sheets(Sht2).Range(A1:A Sheets(Sht2).Rows.Count)) For r = 2 To nRows If (r Mod 1000 = 0) Then Application.StatusBar = Processing Sht2 row r of nRows sData = Trim(Sheets(Sht2).Cells(r, A).Value) sData = sData | Trim(Sheets(Sht2).Cells(r, B).Value) sData = sData | Trim(Sheets(Sht2).Cells(r, C).Value) sData = sData | Trim(Sheets(Sht2).Cells(r, D).Value) sData = sData | Trim(Sheets(Sht2).Cells(r, F).Value) sData = sData | Trim(Sheets(Sht2).Cells(r, H).Value) sData = sData | Trim(Sheets(Sht2).Cells(r, I).Value) If (Dict_Data1.exists(sData)) Then '--- 'highlight row in sht2 '--- Sheets(Sht2).Select With Sheets(Sht2).Range(Cells(r, A), Cells(r, I)).Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End With '--- 'highlight rows in sht1 '--- Sheets(Sht1).Select rArray
$$Excel-Macros$$ please help me on index match or offset function to calculate top 5 consolidated locations and amounts
Dear experts, please help me 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+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. Problem.xlsx Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
Re: $$Excel-Macros$$ formula issue with sample sheet
Hi Modi, Im not clear with Defaults month (column Q) because it does not match with due date and payment day. But Defaults Interest (column R) is calculate by if *defaults months*greater than 0 then *TDS amount * 1.5% * defaults months* else the defaults interest will be *0*. (=if(defaultsmonth0,TDS amount * 1.5% * defaults months,0) Thanks Regards, Ganesh N On Mon, Apr 28, 2014 at 7:15 PM, L.K. Modi ca.mod...@gmail.com wrote: Dear Sir I have downloaded a file from the net but unable to understand the logic in column Q AND R as the file is read only only so can anyone say me how that delay had been calculated and interest is calculated... thanks in advance regards LKM -- 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.
Re: $$Excel-Macros$$ formula issue
Hi Attachment is missing.. Thx On Mon, Apr 28, 2014 at 7:14 PM, L.K. Modi ca.mod...@gmail.com wrote: Dear Sir I have downloaded a file from the net but unable to understand the logic in column Q AND R as the file is read only only so can anyone say me how that delay had been calculated and interest is calculated... thanks in advance regards LKM -- 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.
Re: $$Excel-Macros$$ please help me on index match or offset function to calculate top 5 consolidated locations and amounts
Hi You can do using Pivot Table, see attached file. 1. In the Pivot Table, click the drop down arrow in the RowLabels field heading. 2. In the pop-up menu, click Value Filters, then click Top 10 change it to 5. You can sort on Descending on Output by going thru More Sort option under filter Cheers! On Mon, Apr 28, 2014 at 10:31 PM, Renukachari Kasee jva.ch...@gmail.comwrote: Dear experts, please help me 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+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. Return Top5.xlsx Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
