| 
    
     |  | 1 日付   品名  実績 稼働率 不良1 不良2  不良3・・・ 22007.08.23 富士山 3000  87%   56   58    60 ・・・
 3      立山  400  59%   70   70 空  80 ・・・
 4      館山  3900  90%   69   90 白  90 ・・・
 52007.09.04 桑山  600   89%   89   69 列  69 ・・・
 6      浅間山 4000  89%   89    78    67 ・・・
 72007.09.22 土地山 4000  67%   67   98    120 ・・・
 8      逆山  600  78%   123   34    56 ・・・
 92007.09.23三笠山 700   56%  980   67    90 ・・・
 10      三山  560   59%  590   69   120 ・・・
 112007.10.05 福井山 650  89%   89   98    67 ・・・
 
 上記のようなデータベースを作っています。一日に品名は1以上入力します。
 左の番号は行番号です。
 ユーザーフォームにテキストボックス2個とコマンドボタンを貼り付け、テキストボックに2007.09.01 〜 2007.09.31と入力しコマンドボタンをクリックすれば行番号5の最終列(途中空白列が2箇所あり)〜 行番号10の最終列まで選択され、それをシートを追加しコピーしたいと思います。
 日付から次の日付まで空白セルがあるのでオートフィルターで試したが空白行の品名などが表示されませんでした。(マクロ)
 あと列に空白列があるのでテキストに入力した日にちの列範囲の最終列をどう数えればよいのでしょうか。
 マクロを参考にしながらテキスト本を片手にVBAをはじめましたが、なかなかできません。よろしくお願いします。
 データは1年以上あります。
 
 
 
 
 |  |