各シートからのデータ取得

Question

前提・実現したいこと

シートA,B,C,Dの各対象の列をfor文でループさせ、シート1,2,3,4,5の対象データを取得しようと
しています　※A,B,C,Dでひとつのブック。1,2,3,4,5でひとつのブックとなります。
ただし、シートAのみシート1,2のデータを取得しなければいけない状況です。
シートAとシート1,2のような関係性が今後出てくる可能性があります。

追記
1,下記ソースコードに記載しているplateという変数ですが、3から開始で正しいです。
シート1,2,3,4,5は正しくはシート〇,〇,1,2,3,4,5となります。
2,下記ソースコードのファイル名に関してはブックHがシートA,B,C,D側
ブックGが1,2,3,4,5側になります。

発生している問題・エラーメッセージ

シートAにシート1,2が反映できず、最後まで到達しても2のデータが
取得できない状況です。

該当のソースコード

Sub transfer()

    '後処理でファイル開く
    Workbooks.Open "C:\Users\admin\Desktop\H.xlsx"
   
    '請求書雛形
    Dim wb1 As Workbook
    Set wb1 = Workbooks("G.xlsm")
    plate = 3

    'H.xlsxのシート
    With Workbooks("H.xlsx")
    For shename = 1 To Worksheets.Count
    M_range = 11
    
        For priname = 7 To Cells(Rows.Count, 5).End(xlUp).Row + 1
    
            If .Worksheets(shename).Range("E" & priname) = wb1.Worksheets(plate).Name Then
                If .Worksheets(shename).Range("G" & priname) = wb1.Worksheets(plate).Range("I" & M_range) Then
                    If .Worksheets(shename).Range("H" & priname) = wb1.Worksheets(plate).Range("J" & M_range) Then
                    
                        
                        '取得したいデータ(1)
                        If wb1.Worksheets(plate).Range("N" & M_range) <> "" Then
                            .Worksheets(shename).Range("L" & priname) = wb1.Worksheets(plate).Range("N" & M_range)
                        End If
                        
                        '取得したいデータ(2)
                        If wb1.Worksheets(plate).Range("O" & M_range) <> "" Then
                            .Worksheets(shename).Range("M" & priname) = wb1.Worksheets(plate).Range("O" & M_range)
                        End If
                    
                        '取得したいデータ(3)
                        If wb1.Worksheets(plate).Range("P" & M_range) <> "" Then
                            .Worksheets(shename).Range("N" & priname) = wb1.Worksheets(plate).Range("P" & M_range)
                        End If
                        
                        '取得したいデータ(4)
                        If wb1.Worksheets(plate).Range("Q" & M_range) <> "" Then
                            .Worksheets(shename).Range("O" & priname) = wb1.Worksheets(plate).Range("Q" & M_range)
                        End If
                        
                        '取得したいデータ(5)
                        If wb1.Worksheets(plate).Range("R" & M_range) <> "" Then
                            .Worksheets(shename).Range("P" & priname) = wb1.Worksheets(plate).Range("R" & M_range)
                        End If
                        
                        '取得したいデータ(6)
                        If wb1.Worksheets(plate).Range("Z" & M_range) <> "" Then
                            .Worksheets(shename).Range("Q" & priname) = wb1.Worksheets(plate).Range("Z" & M_range)
                        End If
                        
                        '取得したいデータ(7)
                        If wb1.Worksheets(plate).Range("T" & M_range) <> "" Then
                            .Worksheets(shename).Range("R" & priname) = wb1.Worksheets(plate).Range("T" & M_range)
                        End If
                        
                        '取得したいデータ(8)
                        If wb1.Worksheets(plate).Range("V" & M_range) <> "" Then
                            .Worksheets(shename).Range("S" & priname) = wb1.Worksheets(plate).Range("V" & M_range)
                        End If
                        
                        '取得したいデータ(9)
                        If wb1.Worksheets(plate).Range("W" & M_range) <> "" Then
                            .Worksheets(shename).Range("T" & priname) = wb1.Worksheets(plate).Range("W" & M_range)
                        End If
                        
                        '取得したいデータ(10)
                        If wb1.Worksheets(plate).Range("Y" & M_range) <> "" Then
                            .Worksheets(shename).Range("U" & priname) = wb1.Worksheets(plate).Range("Y" & M_range)
                        End If
                        
                        '取得したいデータ(11)
                        If wb1.Worksheets(plate).Range("AA" & M_range) <> "" Then
                            .Worksheets(shename).Range("V" & priname) = wb1.Worksheets(plate).Range("AA" & M_range)
                        End If
                        
                        '取得したいデータ(12)
                        If wb1.Worksheets(plate).Range("AB" & M_range) <> "" Then
                            .Worksheets(shename).Range("W" & priname) = wb1.Worksheets(plate).Range("AB" & M_range)
                        End If
                    End If
                End If
                M_range = M_range + 1
            End If
            Next priname
            plate = plate + 1
        Next shename
    End With
    MsgBox "ok"
    
End Sub

試したこと

for文の中の変数plateの足し算をfor文の外でしてみましたが
結果的に思ったような結果を得れませんでした。

Answer 1

動作確認はできませんが、こんな感じでいい気がします。

With Workbooks("H.xlsx")
   
   'ブックHの各シートを処理
    For shename = 1 To Worksheets.Count
        Dim ws1 As Worksheet, ws2 As Worksheet, gName As String
        
       'ブックHのシートをws1にセット
        Set ws1 = .Worksheets(shename)
        
        'シートの7行目から最終行までをループ
        For priname = 7 To ws1.Cells(Rows.Count, 5).End(xlUp).Row + 1
            
           'E列の値からブックGのシート名を取得、ws2にセット、開始行は11行目
           '（取得元シート名が前の行から変化したときのみ）
            If gName <> ws1.Range("E" & priname) Then
                gName = ws1.Range("E" & priname)
                Set ws2 = wb1.Worksheets(gName)
                M_range = 11
            End If
            'ブックGのN列をブックHのL列に転記
            If ws2.Range("N" & M_range) <> "" Then
              ws1.Range("L" & priname) = ws2.Range("N" & M_range)
            End If
           '他の列も同様に
            '
            '
           'ブックHの次の行に進む前にブックGの行も１加算
            M_range = M_range + 1
        Next priname
    Next shename
End With

Comments

[退会済みユーザー]

コードまで書いていただいたのに申し訳ございません。

一度試してみたところ、ws2が最初のifを通過する時にsetができていない状態なので
エラーが出てしまいました。。。

[jinoji]

もともとの Set wb1 = Workbooks("G.xlsm") は残してありますか？

[退会済みユーザー]

あぁ…
消してしまっておりました…

記述頂いたコードに少し改変させて頂いたら上手くまわりました！
ご返信遅くなって申し訳ございませんでした。

ありがとうございました！

Answer 2

仕様を誤解しているかもしれませんが、こんな感じでしょうか。

・ブックHの全シートについて、各シートの7行目から最終行までを順に処理
・各行のE列に、対応するブックGのシート名が書かれている？
・ブックGの対応するシートの11行目の値を取得？
・（11行目以降にもデータはある？？）

'
'
With Workbooks("H.xlsx")
    For shename = 1 To Worksheets.Count
        Dim ws1 As Worksheet, ws2 As Worksheet
        Set ws1 = .Worksheets(shename)
        For priname = 7 To ws1.Cells(Rows.Count, 5).End(xlUp).Row + 1
            Set ws2 = wb1.Worksheets(ws1.Range("E" & priname))
            For M_range = 11 To ws2.Cells.SpecialCells(xlCellTypeLastCell).Row
                If ws2.Range("N" & M_range) <> "" Then
                  ws1.Range("L" & priname) = ws2.Range("N" & M_range)
                End If
                '
                '
            Next M_range
        Next priname
    Next shename
'
'

Comments

[退会済みユーザー]

ご返答ありがとうございます。

ブックHの全シートについて～
→その通りです。
各行のE列に、対応するブックGのシート名～
→ブックGのH4に、ブックHのシート名が記入されています。
ブックGの対応するシートの11行目の値を取得？
→その通りです。
・（11行目以降にもデータはある？？）
はい、12，13以降も続いてデータはございます。

宜しくお願い致します。

[jinoji]

ブックHのある1行に対してブックGの複数行が対応付くように思えますが、
12，13以降のデータはどうなればいいですか？ 加算？ 結合？ それともブックHの行が増える？

[退会済みユーザー]

ブックHの対応行とブックGの対象行はそれおぞれ8つずつになります。
ブックGは11~19迄データがあります

加算結合というよりは、ブックHの対応するセルにブックGの対象のセルを
当て込んでいくイメージです。

Answer 3

if分岐並びにデータのコピーを行う際に変数plateを使用していますが、この値の初期値が3です。
そして変数plateはplate = plate + 1という足し算しかしていません。
worksheets(1)とworksheets(2)へのアクセスが出来ないのはこれが原因でしょう。

ちなみに
worksheets(1)は1番目のworksheetを指定
worksheets("1")はシート名「1」を指定
と意味合いが変わります。
シート位置を変更した時に想定通りの動きにならないため覚えておいてください。

Comments

[退会済みユーザー]

ご返答ありがとうございます。

上記plateという変数ですが、3から開始で正しいです。
シート1,2,3,4,5は正しくはシート〇,〇,1,2,3,4,5となります。

紛らわしい記載になってしまい、申し訳ございません。

[退会済みユーザー]

sauce内で指定されているファイル名Hとファイル名Gは上記質問だとシートAとシート1，2，3，4どちらがどちらに当たりますか？
請求書雛形がG、明細データがHなのですがひな形データから明細データへと転記する形になっていますがこれは正しいのですね？
後コメントの業務～の名前が出てる部分は削った方がいいと思います。

[退会済みユーザー]

度々ありがとうございます。

まず、コメント欄の件ですが、ご指摘頂きありがとうございます。
本当とんでもないミスだと思います。
以後気をつけます。

ファイル名に関してはブックHがシートA,B,C,D側
ブックGが1,2,3,4,5側になります。

追記させていただきます。