システムメンテナンスのお知らせ

VBA初心者です。
「worksheetクラスのcopyメソッドが失敗しました。」
エラー回避方法を教えてください。

やりたいことは、データ入力シートから雛形シートにデータを参照して、データ入力シートの1行ずつを新しいシートにしたいです。35シートぐらいをコピーしたら上記のエラーがでました。メモリ不足でエラーになるんだろうなぁということは予測つくのですが、なにか回避方法はありますか?
別のブックを使う方法でもよいです。ご教示ください。

コードはこんな感じです。
Sub シート作成1()
'データ行選択
Range("B9").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Unprotect
Rows("8:8").Select
Selection.AutoFilter
Selection.AutoFilter Field:=12, Criteria1:="<>"
Range("B9").Select
Range(Selection, Selection.End(xlDown)).Select
'選択したデータ行のシート作成
For Each 選択セル In Selection
Worksheets("ひな形").Copy after:=ActiveSheet
DoEvents
'シート名の変更
ActiveSheet.Name = 選択セル.Value
ActiveSheet.Tab.ColorIndex = 38
Next 選択セル
DoEvents
'オートフィルタを元にもどす
Sheets("データ入力シート").Select
Rows("8:8").Select
Selection.AutoFilter
Range("B1").Select
Columns("L:O").Select
Selection.EntireColumn.Hidden = True
Range("B1").Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowSorting:=True, AllowFiltering:=True
End Sub

よろしくおねがいします。

gooドクター

A 回答 (1件)

    • good
    • 3
この回答へのお礼

ありがとうございました

お礼日時:2009/06/21 13:44

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング