Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Simple change ?
A little while ago I asked how to automatically update 18 rows across
several spreadsheets and was given the following solution which works really well. Now I only have one spreadsheet that I wish to update (sheet1), I have tried to amend the code by changing bits of it, but I still cannot get it to work. Could somebody please let me know how to change it so only sheet1 is now updated With Thanks Bob Sub Macro7() ' ' Macro7 Macro ' Dim Rng As Range Dim wks Dim ws wks = Array("Sheet1", "Sheet4", "Sheet5", "Sheet7") For Each ws In wks Worksheets(ws).Select Set Rng = Range("B27").End(xlToRight).Resize(18, 1) Rng.AutoFill Destination:=Rng.Resize(Rng.Rows.Count, 2) Next Worksheets("Sheet1").Select End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Simple change ?
The easiest solution would be to change this line
wks = Array("Sheet1", "Sheet4", "Sheet5", "Sheet7") to this wks = Array("Sheet1") Robin Hammond www.enhanceddatasystems.com Check out our XspandXL add-in "Robert Gillard" wrote in message ... A little while ago I asked how to automatically update 18 rows across several spreadsheets and was given the following solution which works really well. Now I only have one spreadsheet that I wish to update (sheet1), I have tried to amend the code by changing bits of it, but I still cannot get it to work. Could somebody please let me know how to change it so only sheet1 is now updated With Thanks Bob Sub Macro7() ' ' Macro7 Macro ' Dim Rng As Range Dim wks Dim ws wks = Array("Sheet1", "Sheet4", "Sheet5", "Sheet7") For Each ws In wks Worksheets(ws).Select Set Rng = Range("B27").End(xlToRight).Resize(18, 1) Rng.AutoFill Destination:=Rng.Resize(Rng.Rows.Count, 2) Next Worksheets("Sheet1").Select End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Simple change ?
Try this
Dim Rng As Range Worksheets("Sheet1").Select Set Rng = Range("B27").End(xlToRight).Resize(18, 1) Rng.AutoFill Destination:=Rng.Resize(Rng.Rows.Count, 2) -- Regards Ron de Bruin (Win XP Pro SP-1 XL2002 SP-2) www.rondebruin.nl "Robert Gillard" wrote in message ... A little while ago I asked how to automatically update 18 rows across several spreadsheets and was given the following solution which works really well. Now I only have one spreadsheet that I wish to update (sheet1), I have tried to amend the code by changing bits of it, but I still cannot get it to work. Could somebody please let me know how to change it so only sheet1 is now updated With Thanks Bob Sub Macro7() ' ' Macro7 Macro ' Dim Rng As Range Dim wks Dim ws wks = Array("Sheet1", "Sheet4", "Sheet5", "Sheet7") For Each ws In wks Worksheets(ws).Select Set Rng = Range("B27").End(xlToRight).Resize(18, 1) Rng.AutoFill Destination:=Rng.Resize(Rng.Rows.Count, 2) Next Worksheets("Sheet1").Select End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Simple calculation where values change to letters? | Excel Worksheet Functions | |||
change array to simple columns | Excel Discussion (Misc queries) | |||
Simple way to change text dates to numerical? | Excel Discussion (Misc queries) | |||
A simple way to change several cell refs to absolute ? | Excel Discussion (Misc queries) | |||
change time into simple number | Excel Worksheet Functions |