シートのコピー

解決

ケン 2007-02-23 22:45:08 No: 135467

仮に日付の入っている元シート[070318]があります
このシートを末尾にコピーします。コピー先の
"B1:G1"に元シート名の日付[070318]にyymmdd形式に
変換したものにプラス14日足した日時を[2007/04/01になります]
書き込む、同時にコピーしたシート名も070401と名前を
付けたいのですができるでしょうか？
下記は参考までにマクロの記録です。
よろしくお願いします。

Sub シートコピー()
    Sheets("070318").Select
    Sheets("070318").Copy After:=Sheets(9)
    Range("B1:G1").Select
    ActiveCell.FormulaR1C1 = "4/1/2007"
    Range("H1").Select
    Sheets("070318 (2)").Select
    Sheets("070318 (2)").Name = "070401"
End Sub

けん 2007-02-23 23:12:55 No: 135468

自己解決？