別シートのリストを参照して印刷作業をVBA登録

質問

別シートのリストをVLOOKUPで参照して印刷する作業をVBA登録したいと考えています。

そこで下記のようなVBAを作成しました。

Sub 印刷()
z = Application.InputBox("印刷開始番号")

x = Application.InputBox("印刷終了番号")

For o = z To x

Range("G6").Value = o

ActiveSheet.PrintOut

Next
End Sub

セルＧ6をVLOOKUＰで参照して、開始ページと終了ページをINPUTBOXで入力できるよに
しています。

しかしエラーがでてしまいます。

どこが、問題ありますでしょうか？
宜しくお願いします。

回答No.3

mar00 · ベストアンサー

記述のVBAには問題がないように思います。
数字が変わらないというのはVLOOKUＰで参照
している部分が変わらないという事でしょうか。
セルＧ6に数値を直接入力すると再計算に時間が
かかる重たいデータなのではないでしょうか。
自分も詳しい方ではないのですが
ActiveSheet.EnableCalculation = True
ActiveSheet.PrintOut
としてみてはどうでしょうか。

回答No.2

mar00

やりたい事がよくわからないのですが
記述のVBAだと
例えば
印刷開始番号に1、印刷終了番号5とした場合
G6に1が入って印刷、2が入って印刷とこれを
5まで繰り返すだけだと思います。

補足

それをしたいのです。

Ｇ6の数字が変われば、ＶＬＯＯＫＵＰでＧ6を参照して別のセルに設定してあるデータの数字が変わるようにしています。

しかし、上記のＶＢＡの記述では、なぜか数字が変わりません。

回答No.1

kmetu

どんなエラーでしょうか

ページを指定してもそれを設定していないように見えますし
エラーにならなくても指定した回数だけ同じシートを印刷するだけのような気もしますが…。