ここから本文です

【画像あり】こんな事ってマクロで出来るのでしょうか? 毎日更新されるデータ...

mac********さん

2017/9/1420:43:52

【画像あり】こんな事ってマクロで出来るのでしょうか?

毎日更新されるデータがあります。
そのデータのC列の日付を見て、2行目~本日日付を含んで選択してコピーして別なブックのシートに

貼り付けるという作業をしています。
画像のはサンプルで簡易的に作ったものですが、実際には何百、何千件もあり、スクロールも面倒です。

自分がしたいのは画像の例で言うと、
①A2~E12まで選択して(今日9/14を含む)コピー→book2のシート1のセルA2に値貼。

②その後、A13~E21まで選択して(翌日9/15~未定まで全部含む)コピー→book2のシート2のセルA2に値貼。

です。もちろん、毎日日付は更新されます。
マクロを実行するだけで毎日、当日日付までを含むものと、翌日以降のとがうまいことなるような方法をどうか教えてくださいm(__)m

Book2,セルA2,日付,シート,A13,日付フィルター,オートフィルター

閲覧数:
55
回答数:
1

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

aka********さん

2017/9/1508:37:28

オートフィルターの 日付フィルターで 今日より前とすれば
ぞの分だけ表示しますので それを コピー貼り付けできます。

明日以降でもできます。

それを マクロの記録で やれば コードが自動でできます。
日付けの指定などの多少の修正は 必要ですが 修正方法が 分からない場合は 再度 質問ください。

  • 質問者

    mac********さん

    2017/9/1521:06:40

    ありがとうございます。
    オートフィルターでマクロ記録をやってコードを確認しました。

    ↓その日付のところ(2017/9/16とか)を何とかして、今日という事で認識させないといけないのでしょうけども、 date とかにするってことでしょうか?


    Sub 過去から今日を含む日付()
    '
    ' 過去から今日を含む日付 Macro
    '

    '
    ActiveSheet.Range("$C$1:$C$7").AutoFilter Field:=1, Criteria1:="<2017/9/16" _
    , Operator:=xlAnd
    End Sub


    ----------


    Sub 明日以降()
    '
    ' 明日以降 Macro
    '

    '
    ActiveSheet.Range("$C$1:$C$7").AutoFilter Field:=1, Criteria1:= _
    ">=2017/9/16", Operator:=xlAnd
    End Sub

  • その他の返信(1件)を表示

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

質問した人からのコメント

2017/9/16 11:04:16

何とか頑張って成功しました( ^ω^ )本当にありがとうございました。

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる