| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
paste range from one sheet to each sheet after
Doesn't work....
Any clues? Sub Macro1() ' 'copy range from template sheet Sheets("Ind Templates").Select Rows("38:50").Select Selection.Copy 'for each sheet in workbook after "ind templates" x = Sheets("Ind templates").Index For Each Sh In ThisWorkbook.Sheets If Sh.Index x Then 'paste the copied data 1row below the last row used Range("A365").Select Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Select Selection.Paste End If Next End Sub |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
paste range from one sheet to each sheet after
Hi
This should do it: Sub Macro1() ' Dim sh As Worksheet 'copy range from template sheet Sheets("Ind Templates").Rows("38:50").Copy 'for each sheet in workbook after "ind templates" x = Sheets("Ind Templates").Index For Each sh In ThisWorkbook.Sheets If sh.Index x Then 'paste the copied data 1row below the last row used sh.Paste sh.Range("A" & Rows.Count).End(xlUp).Offset(1, 0) End If Next Application.CutCopyMode = False End Sub Hopes this helps. --- Per On 6 Maj, 21:40, "J.W. Aldridge" wrote: Doesn't work.... Any clues? Sub Macro1() ' 'copy range from template sheet Sheets("Ind Templates").Select Rows("38:50").Select Selection.Copy 'for each sheet in workbook after "ind templates" x = Sheets("Ind templates").Index For Each Sh In ThisWorkbook.Sheets If Sh.Index x Then 'paste the copied data 1row below the last row used Range("A365").Select Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Select Selection.Paste End If Next End Sub |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
paste range from one sheet to each sheet after
THANX!!!
....you're a life saver! |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
paste range from one sheet to each sheet after
purfecto!
thanx |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| paste range to all sheets after specified sheet | Excel Programming | |||
| Line count in sheet determines paste range in another sheet | Excel Programming | |||
| Line count in 1 sheet to determine paste range in 2nd sheet. | Excel Programming | |||
| Paste range from one sheet to another | Excel Programming | |||
| Find range in one sheet, then paste in the other (one by one) | Excel Programming | |||
Linear Mode
