Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Old January 31st 06, 05:03 PM posted to microsoft.public.excel.newusers
Douglas groom
 
Posts: n/a
Default copy some data to next sheet

My sheets are named 1,2,3....100
at any time i may be located at any sheet.
I wish to copy selected values to the same position from sheet "m" to the
next "n" sheets where n is not going to run past 100. The from and to
positions are concrete and the same. If you want colour they are mens
wedding suit items and party name.


  #2   Report Post  
Old January 31st 06, 05:37 PM posted to microsoft.public.excel.newusers
Ron de Bruin
 
Posts: n/a
Default copy some data to next sheet

Maybe you want this (there is no error check in this example if you are in sheet 100)

Sub CopySelection()
Dim myarea As Range
For Each myarea In Selection.Areas
With myarea
.Copy Destination:=.Parent.Next.Range(.Address)
End With
Next myarea
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Douglas groom" <Douglas wrote in message
...
My sheets are named 1,2,3....100
at any time i may be located at any sheet.
I wish to copy selected values to the same position from sheet "m" to the
next "n" sheets where n is not going to run past 100. The from and to
positions are concrete and the same. If you want colour they are mens
wedding suit items and party name.



  #3   Report Post  
Old January 31st 06, 05:45 PM posted to microsoft.public.excel.newusers
Gary''s Student
 
Posts: n/a
Default copy some data to next sheet

This is just an example going from Sheet1 to Sheet2. The copied cells don't
have to be connected. Select any combination you choose. You can change it
to go from any sheet to any other sheet:


Sub Macro10()
Dim sx As String
Dim r1 As Range
Dim r As Range
Sheets("Sheet1").Select
s1 = "Sheet1!A1:A10,C1:C10"
Set r1 = Range(s1)
For Each r In r1
sx = "Sheet2!" & r.Address
r.Copy Range(sx)
Next
End Sub
--
Gary''s Student


"Douglas groom" wrote:

My sheets are named 1,2,3....100
at any time i may be located at any sheet.
I wish to copy selected values to the same position from sheet "m" to the
next "n" sheets where n is not going to run past 100. The from and to
positions are concrete and the same. If you want colour they are mens
wedding suit items and party name.



Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
From several workbooks onto one excel worksheet steve Excel Discussion (Misc queries) 6 December 1st 05 08:03 AM
copy data in one sheet to multiple sheets in same workbook BrianMultiLanguage Excel Worksheet Functions 4 July 27th 05 07:26 PM
Does excel recognise names rather than cells? Sue Excel Worksheet Functions 9 May 22nd 05 04:51 AM
Multiple worksheet queries liam Excel Worksheet Functions 3 February 16th 05 06:52 PM
Function to automatically insert a new sheet as a result of data entry? Mark Mulik Excel Worksheet Functions 2 November 28th 04 02:21 AM


All times are GMT +1. The time now is 03:16 AM.

Powered by vBulletin® Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright 2004-2020 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Copyright © 2017