Try this for copying selected values in different sheets
Sub test()
Set Rng = Selection
For Each cls In Rng
For Each wks In ThisWorkbook.Sheets
If wks.Name <> "Shop A" Then
wks.Range("A" & Trim(Str(wks.Range("A65536").End(xlUp).R ow +
1))) = cls
End If
Next
Next
End Sub
On Mon, Jun 20, 2011 at 2:42 PM, John Mutesi <jmut...@mtc.com.na> wrote:
> Dear friends,
>
>
>
> See attachment for this problem.
>
> I want a code which ask you to select the product name (coffee, tea, sugar
> etc) in Shop A. Once selected, the product names should be copied and
> pasted into shops (shop B to shop E) below the heading. I thought of having
> a copy which uses an array to populate the items and then do the pasting
> from them.
>
>
>
> Kindly advice further.
>
> John
>
>
>
> ------------------------------
>
> This e-mail message and any attachment hereto are confidential information
> intended for a specific addressee and purpose. If you are not the intended
> recipient, or a person responsible for delivering it to the intended
> recipient, you may not disclose, copy, distribute or take any action based
> on the contents hereof, or retaining this message or any part of it, in any
> form whatsoever. Any such conduct is prohibited and may be unlawful. If you
> have received this e-mail in error, please notify the sender immediately by
> replying to this message and destroy all copies hereof. No opinion expressed
> by the sender necessarily constitutes the opinion of Mobile
> Telecommunications Ltd (MTC). This message does not constitute a guarantee
> or proof of the facts mentioned herein. No employee or intermediary is
> authorized to conclude a binding agreement on behalf of MTC by e-mail
> without the express written confirmation by a duly authorized representative
> of MTC. All reasonable precautions have been taken to ensure a virus free
> message however, MTC cannot guarantee this nor accept responsibility
> whatsoever for loss or damage arising from the use of this e-mail or
> attachments. MTC reserve the right to monitor all e-mail communications
> transmitted through our network.
>
> --
>
> ----------------------------------------------------------------------------------
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/discussexcel
>
--
Regards
Vasant
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
