[[20110330131612]]　『呼び出すブック名に該当がなければ指定したシート』（ひよこ007）　ページの最後に飛ぶ

『呼び出すブック名に該当がなければ指定したシートを選択して印刷するマクロの記述はどうすればいいでしょうか』（ひよこ007）

いつもありがとうございます。また行き詰まってしましました。　　

資料作成ブックのセルE43(B42&"トマト"の表示としています)に記載された名前の別ブック(名前は店番号&"トマト")を開いて、

そのシート(ひとつだけです)をこちら側ブックの所定のシートにコピー後、加工して印刷するようにしています。

複数店舗(店番号をC16～に入力)のデータを一括印刷しようとして、下記のマクロを組んで見たのですが、

これだと店番号ブックに該当がない場合にはエラーとなりストップしてしまいます。

そこで資料作成ブックに「該当なし」シートを作成して拠点名ブックに該当がない場合はこのシートを印刷するようにしたいのですが

記述に見当がつきません。　　どうかよろしくお願いいたします。

Sub セルの店番号をコピーして連続印刷をする()

　　If Range("C16") > 1 Then

    Range("C16:C17").Select　'C16とC17は結合しています
　　Selection.Copy
    Range("B42:B43").Select　'B42とB43は結合しています
　　ActiveSheet.Paste
    Application.CutCopyMode = False

    Call トマトのみを印刷するテスト '別マクロを稼動させる
    Range("C16").Select
    End If

    If Range("C18") > 1 Then
    Range("C18:C19").Select　    
　　Selection.Copy
    Range("B42:B43").Select　    
　　ActiveSheet.Paste
    Application.CutCopyMode = False

    Call トマトのみを印刷するテスト
    Range("C16").Select
    End If

    If Range("C20") > 1 Then
    Range("C20:C21").Select
    Selection.Copy
    Range("B42:B43").Select
    ctiveSheet.Paste
    Application.CutCopyMode = False

    Call トマトのみを印刷するテスト
    Range("C16").Select
    End If
End Sub

トマトのみ印刷のマクロは

Sub トマトのみを印刷するテスト()

      Dim Book1 As Workbook '別ファイルを開く
      Dim Book2 As Workbook

      Set Book1 = ThisWorkbook
      Workbooks.Open Filename:=Book1.Path & "\" & Range("E43").Value & ".csv"
      Set Book2 = ActiveWorkbook

      Cells.Select 'データシート全部を作業ブック本体のトマトシートにコピーする
      Selection.Copy
      ActiveWorkbook.Close 'データファイルを閉じる
      Windows("資料作成.xls").Activate
      Sheets("トマト").Select

　　　Cells.Select 'コピーを貼り付ける

      ActiveSheet.Paste
      Application.CutCopyMode = False
      (以下列削除等の加工を行っています)
      ActiveSheet.PrintOut
　　　Sheets("印刷機能").Select
 End Sub

お手数をおかけしますが、ご教授よろしくお願い致します。

 こんな感じで検索すると

http://www.google.co.jp/search?q=%E3%82%A8%E3%82%AF%E3%82%BB%E3%83%AB%E3%80%80%E3%83%9E%E3%82%AF%E3%83%AD%E3%80%80%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%80%80%E6%9C%89%E3%82%8B%E3%81%8B%E3%80%80%E7%A2%BA%E8%AA%8D&hl=ja&lr=

 参考に成りそうなコードが見つかると思います。

 (HANA)

HANAさんありがとうございます。

早速確認してみます。お手数をお掛けいたしました。

 ↓こちらに続いた様なので、リンクしておきます。
[[20110331133606]] 『ファイル検索マクロで、検索対象ファイル名を変数』（ひよこ007）

 (HANA)

コメント返信：

[ 一覧(最新更新順) ]

[[20110330131612]] 『呼び出すブック名に該当がなければ指定したシート』（ひよこ007） ページの最後に飛ぶ

[[20110330131612]]　『呼び出すブック名に該当がなければ指定したシート』（ひよこ007）　ページの最後に飛ぶ