[[20230314094002]]　『『再掲』VBAを利用して、同ブック別シートへコピ＝x（はせどん）　ページの最後に飛ぶ

『『再掲』VBAを利用して、同ブック別シートへコピーしたい。』（はせどん）

はじめまして。いつも、皆さんの、ご質問やご回答を拝見させて頂きまして、
参考にさせて頂いたり、少し自分で修正を加えたりしております。本当に、
いつも有り難うございます。

一つ目の投稿で同じ質問を書かせて頂きましたが、VBAで…と言う文言が抜けておりましたので、再度投稿させて頂きます。最初の投稿は、削除依頼済です。フォーキーさん、隠居Zさんも、引き続き宜しくお願い致します。

今回ですが、わたしが、どうにもならなくなっているのは、以下の件でござい
ます。

同ブックのシート1に毎月の売上の積み上げ。
シート3には、単月の状況が掲載されております。

【シート1】

      A          B       C    　　　（全部で40列あります。
1  契約書類番号 契約日時 契約車種   行は、セルのどこにも、文字や値の入　　　　
　　　　　　　　　　　　　　　　　　ってない行を最下行として、考え　　
　　　　　　　　　　　　　　　　　　ております。）
【シート3】
      A          B       C
1  契約書類番号 契約日時 契約車種（こちらも、全部で40列あります。
                              　　行数は、毎月変動します。シート1に
                             　　 転記後は、削除します。）

やりたいことは、
その1
シート3の値や文字が入ったセル（見出しを除きます）の範囲全て（40列あるのでA2セル～AY列とかまでになります。）をコピーして、シート1の最下行に、毎月追加していくことなのです。

ヒントだけでも、ご教示頂けましたら、幸いです。
宜しくお願い致します。

＜使用 Excel：Microsoft365、使用 OS：Windows11 ＞

 こういうことですか？

 Sub test()
     Dim ws1 As Worksheet, ws3 As Worksheet
     Dim rng As Range

     Set ws1 = Worksheets("Sheet1")
     Set ws3 = Worksheets("Sheet3")

     Set rng = ws3.Range("A1").CurrentRegion
     Set rng = Intersect(rng, rng.Offset(1)) '見出しを除く本体部分
     rng.Copy ws1.Range("A1").End(xlDown).Offset(1)
 End Sub

 # スレッドを改める必要もなかったと思いますよ。
（abc） 2023/03/14(火) 10:09:36

abc様

お忙しい所、コードをお考え下さりまして、誠に有難うございました。
本当に感謝致しております。

ただ、

実行時エラー91
オブジェクト変数または、Withブロック変数が設定されていません。

と言うエラーが出て、デバックボタンを押すと、最終行が黄色く塗られて
おります。

今、わたしも原因をネット等で調べておりますが、abc様にて、なにか
お分かりでしたら、お教え頂けましたら、幸いです。
お手数をお掛け致しますが、宜しくお願い致します。
（はせどん） 2023/03/15(水) 15:42:45

 想像ですが、
 Sheet1に見出ししかない、
 または
 SHeet3に見出ししかない、
 といったことになっていませんか。それは想定範囲外です。

      rng.Copy ws1.Range("A1").End(xlDown).Offset(1)
 を
      rng.Copy ws1.Cells(Rows.Count, "A").End(xlUp).Offset(1)
 としてみてください。
 また、Sheet3には見出し以外になんらかのデーをを設定してください。

（abc） 2023/03/15(水) 17:28:59

 私が想定した原因では、表示されるエラーメッセージが違うようです。

 私の提示したコードではそうしたエラーは発生しないと思います。
 ・rngのアドレスは何か、
 ・変更後のコードの ws1.Cells(Rows.Count, "A").End(xlUp).Offset(1)のアドレスは何か、
 を示して下さい。

 そのまま動かしたのではなく、既にあるものに組み込んでいるとしたら、
 実際に実行されたコードを提示してください。
 それが無いと、こちらからは分かりませんね。

（abc） 2023/03/16(木) 17:29:01

 ご自分でVBAを作成できるようになりたいのであれば、まずはコードを理解することが大切です。
 また、デバッグ（エラー解決）もコード作成と同じく重要な作業です。
 ご自分でトライする必要があります。
 ・ローカルウインドウの利用方法は知っていますか？
 ・rngがどうなっているかの確認方法は理解していますか？
 ・CurrentRegionプロパティの意味は理解されていますか？
 ・Intersectメソッドは？
 例えば、見出しに続いて仮に２行目が空白行になっているとすると、どうなりますか？
 今までにも確認事項を示していますが、なぜ反応が無いのでしょうか？
 # 単に回答を待つだけだと、目標には近づけないと思いますよ。
（abc） 2023/03/17(金) 17:45:51

コメント返信：

[ 一覧(最新更新順) ]

[[20230314094002]] 『『再掲』VBAを利用して、同ブック別シートへコピ＝x（はせどん） ページの最後に飛ぶ

[[20230314094002]]　『『再掲』VBAを利用して、同ブック別シートへコピ＝x（はせどん）　ページの最後に飛ぶ