[[20040627012230]]　『指定文字列をシート名にしてシート２をコピー』（さとる）　ページの最後に飛ぶ

『指定文字列をシート名にしてシート２をコピー』（さとる）

[シート１のＤ５から下に文字列があり、これをシート名にしてシート２をコピー]

　シート１のＤ５から下に文字列があり、これをシート名にしてシート２をコピー
したいのですが、どなたか教えてもらえればとても助かるのですが、よろしくお願いします。
　

 マクロですよね？

 現在あるシート名は、"シート１" 、"シート２"ですか？

 セルD5 以下 D6,D7 と連続して、文字が入力されているときは、
 その分だけ、コピーを繰り返すのでしょうか？
 それとも、シート名を D5,D6,D7 と続けた文字列にするのでしょうか？

  (INA)

説明不足で済みません

現在あるシート名は、"シート１" 、"シート２"だけです。

　シート１のセルＤ５以下　Ｄ６，Ｄ７･･･　に個人名があり
シート２を一人一人専用のシートを作りたいのでシートの見出しに名前を入れたいと思っています。　　　
　　　　　　　　　　　　　　　　　　　　　よろしくお願いします。

 過去ログより 参考にしてください。
[[20031105174927]] 『シート名を自動的につけることは可能でしょうか』（Ami）
[[20020519104759]] 『セルの内容によってシート名を変更できる？』（なお）  
やっと検索できるようになりました。
(KAMIYA)

 マクロの記録から作成してみました。参考になるでしょうか？　　　　　　　　　　(LOOKUP)
 Sub Macro1()
 　　Dim N As Long
 　　Do Until Sheets("Sheet1").Range("D5").Offset(N, 0).Value = ""
 　　　　　Sheets("Sheet2").Copy Before:=Sheets(1)
 　　　　　Sheets("Sheet2 (2)").Name = Sheets("Sheet1").Range("D5").Offset(N, 0).Value
 　　　　　N = N + 1
 　　Loop
 End Sub

　本当に助かりました。どうもありがとうございました。
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　また、分からない時は教えてください

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（さとる）　　　　　

コメント返信：

[ 一覧(最新更新順) ]

[[20040627012230]] 『指定文字列をシート名にしてシート２をコピー』（さとる） ページの最後に飛ぶ

[[20040627012230]]　『指定文字列をシート名にしてシート２をコピー』（さとる）　ページの最後に飛ぶ