すみません。印刷マクロをもう一度

質問

以前印刷マクロを教えていただいたのですが、もう一度お助けください

シートに下のようなデータベースがあります。
　受付番号　氏名　〒　住所・・・・・印刷日（T列）
　１００１
　１００２
　１００３
　１００４
　　　・
　　　・
　　　・　　
印刷時に受付番号を入力することで印刷できるものです。
１回印刷したデ－タは次回は印刷範囲外で判断基準を印刷日とし印刷を実行した日に自動的に日付が印刷日に入力されるものをです。
たとえば、最初に受付１０５４までを印刷、次は受付１１３６までを印刷と印刷件数は不変であり、最初の時に１０５４までの印刷日に全て日付が入力、次は１１３６までの全ての印刷日に日付が入るようにです。
ご教授くださいませ。

回答No.6

Wendy02

こんにちは。Wendy02です。

>Target_Date　部分と .Offset(-1)　部分を
>変更すればいいのかと...考えています。

遅くなりましたが、もう一度、見直して、そして、コードを読みきり、問題点が分かりました。

それは、実際に動かしてみても、そのマクロの意味が理解できないのです。たぶん、前の段階では、きちんと説明されたから、そのマクロが出来上がったものだと思います。ただ、hirosatonnさんの希望通りだったのかは、かなり疑問が残ります。だから、質問を再度出されたものだと思います。そのマクロだけですと、ここでは出ていない、無駄があるのではないでしょうか？

今回のご質問自体、その印刷日の付け方、受付番号の付け方など、基礎的な情報が欠けてしまって、途中から、他人のコードを直すというのは、出来ないことがわかりました。ログがあれば、少しは違うはずです。これは、このままでは、前回回答された方以外は、誰が回答しても同じ結果になると思います。

ご指摘された、この部分ですが、

　　'ここは、A列の最後の行を探していますが、つまり、受付番号の最後です。
　　EndRw = .Range(Left_Col & "65536").End(xlUp).Row
　　'つまり、ここでは、日付が入っているということになります？
　　'そこが意味が分かりません。日付というのは、印刷日だったと思います。
　　'印刷日を入れているのだから、印刷しないはずでは？？・
　　Target_Date = .Range(Target_Col & EndRw).Value
　　'以下は、同じ日付の部分を戻って探しているようです。
　　　　 Do While .Range(Target_Col & TopRw).Value = _
　　　　　　.Range(Target_Col & TopRw).Offset(-1).Value
　　　　　　TopRw = TopRw - 1
　　　　　　If TopRw = 1 Then Exit Do
　　　　Loop
　　　・
　　　・
　　　・
　　　　'印刷した日付を印刷日へ
　　　　'そして、検索した受付番号を再び、本日の印刷日付に入れている？？
　　　　rngFC.Offset(0, 19).Value = Date

特に、よく分からないのは、受付番号が、最後まで入っていることですね。
最後を探して、そこの印刷日付を取っているのです。
EndRw = .Range(Left_Col & "65536").End(xlUp).Row

なのに、最初に、受付番号を探しているわけです。
そして、印刷したら、rngFC.Offset(0, 19).Value = Date　と、本日の日付を入れるのでは、その論理自体が分からないです。 私は、ここのところ、花粉症で頭が痛くて、頭がボケていたようです。（^^;

言い換えれば、印刷日と受付番号の因果関係が分かりません。印刷日に対して、再び、印刷しているのでは、矛盾しています。

印刷日は毎日するものかどうかは別ですが、少なくとも、印刷する前に日付が入っていたら、その部分は印刷はしませんよね。
----------------------------------------------------------------

まず、前のことは一応置いておいて、私の考え方を理解してください。単純ですから！

>判断基準(印刷最初の番号；最後の番号を入力)

私の考えたのは、最初の番号は、次には、最後の番号の手前になるわけだと思うのです。

単に、その部分で範囲を設定するなら、本当にシンプルに範囲を取るだけで、印刷日付を入れるにしても、単純に、その範囲に日付を入れるだけです。

前回、「1025～　1175」が範囲なら、 次は、「1176 ～ 1265」というようなものになりますから、'1175' を確保しておけば、次に使えるわけです。つまり、それが途中から始まる場合は、最初に、'1175' が登録されていなければなりません。'1265'　は、新規にユーザーが入力して探すようなプログラムを作ります。

「1025～　1175」のT列の印刷日は前回の日付。印刷する前は「1176 ～ 1265」は、空欄で、印刷してから印刷日が入ります。

ただ、前回の番号'1175'が、正しく登録されていないと、今回のような「プロパティを見てください」というエラーが出ます。

その場合、手動で行うには、ワークシートメニューのファイル－プロパティ－ユーザー設定－「記録番号」に正しく登録する必要があります。（一応、自動的に登録されるように出来てはいます）

そのエラーの原因がはっきりしないと、こちらのコードは進みません。この部分がクリアしない限りは、私の今考えているものは、無理です。

既存のものを直すというのは、考え直したほうがよいです。考え方のロジックが、明確にならない限りは、それは使えませんね。ただし、私には、そのマクロのロジックが理解できません。

考え方は、理解していただけましたでしょうか？
個々の技術的な問題は別ですが、考え方としては、シンプルだと思います。

補足

Wendy02さんご回答ありがとうございます。既存のものを直すというのは本当に難しいものなんですね。すみません。Wendy02さんの考えていただいたものを私は望んでいるのです。（表現が下手なもので・・）
Msg Boxを使って（最初と最後の番号をたずねる方式）、できないかなあ～と思い悩んでいます。
あつかましくて申し訳ありませんが、お助け下さい。