|
失礼致しました。
当方全くの初心者でございまして、甘えておりました。
お許し下さい。
さて、自動マクロでは、次のようになっておりました。
Sub Sheetcopy1()
'
' Sheetcopy1 Macro
' マクロ記録日 : 2006/10/22 ユーザー名 : Kyozaburo'
'
Columns("A:Y").Select
Range("A2").Activate
Selection.Copy
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
Range("A1").Select
Selection.Insert Shift:=xlToRight
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("A1:Y1").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
Windows("確認1.xls").Activate
Range("A1:Y1").Select
End Sub
上の自動マクロにはコピー先が示されていないので、可動しません。
当該Columns("A:Y").をフォルダ"確認書+監督者"内のブック"確認書+監督者(1).xls"のシートにコピーするには、どのように改造すればよろしいのでしょうか?よろしくお願いします。
|
|