Re: $$Excel-Macros$$ Re: VBA to Destination of Value only
Thnkyou Guys for the codes. The code that Anoop sen t works very well, and I will go with that. Thanks for your help Lalit and Anoop Regards Charlie On Mon, Dec 31, 2012 at 7:45 PM, Anoop K Sharma aks.sharm...@gmail.comwrote: Please try the below one. Sub PasteValueOnly() Dim rng As Range Set rng = Sheets(DailyList).Range(ItemsList) rng.Copy Sheets(ItemsListArchives).Range(D1).PasteSpecial xlPasteValues End Sub On Mon, Dec 31, 2012 at 12:01 PM, Lalit Mohan Pandey mohan.pande...@gmail.com wrote: Dear Charlie, Please share your file with us if it is confidential then please share sample at least for better clearity. Regards, Lalit Mohan On Monday, 31 December 2012 11:46:32 UTC+5:30, sswcharlie wrote: Hi Lalit Have tried the code , same result. Getting the 'application defined or object defined error' message. Can you review for me. A mystery to solve. Thnaks Charlie On Mon, Dec 31, 2012 at 4:11 PM, Lalit Mohan Pandey mohan.p...@gmail.com wrote: Hi Charlie, You can copy only value from source to destination using below code also: Sub TestCopyValues() Dim varArray()As Variant varArray = Sheets(DailyList).Range(**ItemsList).Value Sheets(ItemsListArchives).**Range(D).Resize(UBound(**varArray), UBound(varArray, 2)).Value = varArray Erase varArray End Sub Hope this will help you. Regards, Lalit Mohan On Monday, 31 December 2012 08:19:44 UTC+5:30, sswcharlie wrote: Hi Ashish Thanks for code. Still not working. Has message to say 'application defined or object defined error'. Using XL2000 Note that my code without the .value works fine and copies across except it has the error messages. Just need to addthe value only. Thnaks Charlie On Sunday, December 30, 2012 8:45:51 PM UTC+13, sswcharlie wrote: Hi I want to copy the values only to another sheet. Without .value on the end it copies thru with error messages. If I put . value on the end it comes up with message 'copy method of range class failed'. Do not want to use copy/paste special method. Want to use 'Destination as shown. Sheets(DailyList).Range(**Ite**msList).Copy Destination:=Sheets(**ItemsList**Archives).Range(D Rows.Count).End(xlUp).Offset(**7**).value Found other code on the net that just used the .value but one above it does not work. Do I have to make a small change ? or does the .value go in a different position ? Thanks Charlie Harris -- Join official Facebook page of this forum @ https://www.facebook.com/** discussexcel https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To post to this group, send email to excel-...@googlegroups.com. To unsubscribe from this group, send email to excel-macros...@** googlegroups.com. Visit this group at http://groups.google.com/**group/excel-macros?hl=enhttp://groups.google.com/group/excel-macros?hl=en . -- Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To post to this group, send email to excel-macros@googlegroups.com. To unsubscribe from this group, send email to excel-macros+unsubscr...@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros?hl=en. -- Regards, Anoop Sr. Developer -- 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
Re: $$Excel-Macros$$ Re: VBA to Destination of Value only
Hi Lalit Have tried the code , same result. Getting the 'application defined or object defined error' message. Can you review for me. A mystery to solve. Thnaks Charlie On Mon, Dec 31, 2012 at 4:11 PM, Lalit Mohan Pandey mohan.pande...@gmail.com wrote: Hi Charlie, You can copy only value from source to destination using below code also: Sub TestCopyValues() Dim varArray()As Variant varArray = Sheets(DailyList).Range(ItemsList).Value Sheets(ItemsListArchives).Range(D).Resize(UBound(varArray), UBound(varArray, 2)).Value = varArray Erase varArray End Sub Hope this will help you. Regards, Lalit Mohan On Monday, 31 December 2012 08:19:44 UTC+5:30, sswcharlie wrote: Hi Ashish Thanks for code. Still not working. Has message to say 'application defined or object defined error'. Using XL2000 Note that my code without the .value works fine and copies across except it has the error messages. Just need to addthe value only. Thnaks Charlie On Sunday, December 30, 2012 8:45:51 PM UTC+13, sswcharlie wrote: Hi I want to copy the values only to another sheet. Without .value on the end it copies thru with error messages. If I put . value on the end it comes up with message 'copy method of range class failed'. Do not want to use copy/paste special method. Want to use 'Destination as shown. Sheets(DailyList).Range(**ItemsList).Copy Destination:=Sheets(**ItemsListArchives).Range(D Rows.Count).End(xlUp).Offset(**7).value Found other code on the net that just used the .value but one above it does not work. Do I have to make a small change ? or does the .value go in a different position ? Thanks Charlie Harris -- Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To post to this group, send email to excel-macros@googlegroups.com. To unsubscribe from this group, send email to excel-macros+unsubscr...@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros?hl=en. -- Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To post to this group, send email to excel-macros@googlegroups.com. To unsubscribe from this group, send email to excel-macros+unsubscr...@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros?hl=en.
Re: $$Excel-Macros$$ Re: VBA to Destination of Value only
Dear Charlie, Please share your file with us if it is confidential then please share sample at least for better clearity. Regards, Lalit Mohan On Monday, 31 December 2012 11:46:32 UTC+5:30, sswcharlie wrote: Hi Lalit Have tried the code , same result. Getting the 'application defined or object defined error' message. Can you review for me. A mystery to solve. Thnaks Charlie On Mon, Dec 31, 2012 at 4:11 PM, Lalit Mohan Pandey mohan.p...@gmail.comjavascript: wrote: Hi Charlie, You can copy only value from source to destination using below code also: Sub TestCopyValues() Dim varArray()As Variant varArray = Sheets(DailyList).Range(ItemsList).Value Sheets(ItemsListArchives).Range(D).Resize(UBound(varArray), UBound(varArray, 2)).Value = varArray Erase varArray End Sub Hope this will help you. Regards, Lalit Mohan On Monday, 31 December 2012 08:19:44 UTC+5:30, sswcharlie wrote: Hi Ashish Thanks for code. Still not working. Has message to say 'application defined or object defined error'. Using XL2000 Note that my code without the .value works fine and copies across except it has the error messages. Just need to addthe value only. Thnaks Charlie On Sunday, December 30, 2012 8:45:51 PM UTC+13, sswcharlie wrote: Hi I want to copy the values only to another sheet. Without .value on the end it copies thru with error messages. If I put . value on the end it comes up with message 'copy method of range class failed'. Do not want to use copy/paste special method. Want to use 'Destination as shown. Sheets(DailyList).Range(**ItemsList).Copy Destination:=Sheets(**ItemsListArchives).Range(D Rows.Count).End(xlUp).Offset(**7).value Found other code on the net that just used the .value but one above it does not work. Do I have to make a small change ? or does the .value go in a different position ? Thanks Charlie Harris -- Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To post to this group, send email to excel-...@googlegroups.comjavascript: . To unsubscribe from this group, send email to excel-macros...@googlegroups.com javascript:. Visit this group at http://groups.google.com/group/excel-macros?hl=en. -- Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To post to this group, send email to excel-macros@googlegroups.com. To unsubscribe from this group, send email to excel-macros+unsubscr...@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros?hl=en.
Re: $$Excel-Macros$$ Re: VBA to Destination of Value only
Please try the below one. Sub PasteValueOnly() Dim rng As Range Set rng = Sheets(DailyList).Range(ItemsList) rng.Copy Sheets(ItemsListArchives).Range(D1).PasteSpecial xlPasteValues End Sub On Mon, Dec 31, 2012 at 12:01 PM, Lalit Mohan Pandey mohan.pande...@gmail.com wrote: Dear Charlie, Please share your file with us if it is confidential then please share sample at least for better clearity. Regards, Lalit Mohan On Monday, 31 December 2012 11:46:32 UTC+5:30, sswcharlie wrote: Hi Lalit Have tried the code , same result. Getting the 'application defined or object defined error' message. Can you review for me. A mystery to solve. Thnaks Charlie On Mon, Dec 31, 2012 at 4:11 PM, Lalit Mohan Pandey mohan.p...@gmail.com wrote: Hi Charlie, You can copy only value from source to destination using below code also: Sub TestCopyValues() Dim varArray()As Variant varArray = Sheets(DailyList).Range(**ItemsList).Value Sheets(ItemsListArchives).**Range(D).Resize(UBound(**varArray), UBound(varArray, 2)).Value = varArray Erase varArray End Sub Hope this will help you. Regards, Lalit Mohan On Monday, 31 December 2012 08:19:44 UTC+5:30, sswcharlie wrote: Hi Ashish Thanks for code. Still not working. Has message to say 'application defined or object defined error'. Using XL2000 Note that my code without the .value works fine and copies across except it has the error messages. Just need to addthe value only. Thnaks Charlie On Sunday, December 30, 2012 8:45:51 PM UTC+13, sswcharlie wrote: Hi I want to copy the values only to another sheet. Without .value on the end it copies thru with error messages. If I put . value on the end it comes up with message 'copy method of range class failed'. Do not want to use copy/paste special method. Want to use 'Destination as shown. Sheets(DailyList).Range(**Ite**msList).Copy Destination:=Sheets( **ItemsList**Archives).Range(D Rows.Count).End(xlUp).Offset(**7** ).value Found other code on the net that just used the .value but one above it does not work. Do I have to make a small change ? or does the .value go in a different position ? Thanks Charlie Harris -- Join official Facebook page of this forum @ https://www.facebook.com/** discussexcel https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To post to this group, send email to excel-...@googlegroups.com. To unsubscribe from this group, send email to excel-macros...@** googlegroups.com. Visit this group at http://groups.google.com/**group/excel-macros?hl=enhttp://groups.google.com/group/excel-macros?hl=en . -- Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To post to this group, send email to excel-macros@googlegroups.com. To unsubscribe from this group, send email to excel-macros+unsubscr...@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros?hl=en. -- Regards, Anoop Sr. Developer -- 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