質問: false end sub sub macro02() worksheets("sheet1").printout end sub ここから本題なのですが... ふと、リストの件数をsheet1に出せないものか?と思ったのです。 マクロを実行することで、sheet2にデータが増えてその増えたデータの項目の合計件数をsheet1に反映させて印刷する。 「別シートの項目を集計する」で検索してみたのですが、私には難しすぎて理解できずいろんな方の回答をもアレンジできません。 なにとぞ、ご教授いただきますようお願いします。
回答: 現状の説明がされていないので勝手に下記のような条件だと仮定して記載します。 シート1に1行1案件で何件か入力し後、macro01()でシート3のリスト表にデータを追加で値のみのペーストを実施するマクロは思い通り実行できているので修正の必要が無い。 案件数をシート1に記載したい。 シート3にコピーした後に再度シート3の最終行を取得すれば案件数を取得出来ますよね。 仮にシート3のリスト作成がb3から開始している場合は最終行番号-2が案件数となります。 案件数をセルa1に入力するとした.。 作成表に見合った修正を行って下さい。 ws2.cells(x, "b").pastespecial paste:=xlpastevalues application.cutcopymode = false ws1.range("a1").value = ws2.cells(rows.count, "b").end(xlup).row -2 end sub 質問の趣旨と違っていてもご容赦を