VBAなんでも質問スレ Part3 (137ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡
7(2): デフォルトの名無しさん [] 2021/10/20(水)22:37 ID:mCILNp7G(1/2)
超初心者です
すみません、他スレでもきいたのですが
以下の対応をさせたいです
?シートを支店分だけ増やす
?シート名をそれぞれ「支店一覧」A2〜A18の支店名にする
?作成したシートのB5に支店名を入れる
?作成したシートの表のA列が"0"になっている行を削除する
?作成したシートのオートフィルタを解除する
以下のものではエラーになりますが、どこが悪いのでしょうか
Sub シート作成
Dim 支店名 As Range
For Each 名前 In Worksheets("支店一覧").Range("A2：A18")
Worksheets("原本").Copy After:=Worksheets(Worksheets.Count)
With ActiveSheet
.Name = 支店名.Value
.Range("B5") = 支店名.Value
End With
Range("B3").AutoFilter 1, "0"
With Range("B3").CurrentRegion.Offset(1, 0)
.Resize(.Rows.Count - 1).EntireRow.Delete
Range("B3").AutoFilter
End With
Next 支店名
9(1): デフォルトの名無しさん [sage] 2021/10/21(木)01:14 ID:1DXeXJeG(1)
>>7
エラーについて質問する時は、なんていうエラーが出たか、どの部分が黄色くなってるか書いて
プログラムは間違ってないから、おかしいのは支店一覧のA列に入ってる支店名と思われる
10(1): 7 [] 2021/10/26(火)13:12 ID:NeMLM07o(1)
>>7です。
間があいてしまい、申し訳ございません。
マクロを実施すると、「支店一覧」Ａ２：Ａ１８のＡ２，Ａ３，Ａ４のシートまでは対応が完了するのですが、
その後Ａ５名のシートが作成されず、「原本（２）」というシートが作成されたあと、以下エラーとなります。
「実行時エラー'1004':
この名前は既に使用されています。別の名前を入力してください。」
>>9さんの仰る通りなのだと思うのですが、「支店一覧」をみるかぎりではおかしなところはみあたりません
（もちろんA2:A18に重複もありません）
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.021s