月毎に現金出納帳に転記するコードを教えて下さい。

いつもお世話になります。
納品書入力シート(sheet2)から振替伝票シート（Sheet11）にデータを保存し、同じシート内の振替伝当日当日データを入力し、そのデータをSheet13の現金出納帳（様式を４月から翌年３月まで作成）に月日ごとに転記しようとしています。４月のみ現金出納帳には現在のコードで転記できましたが、５月以降の出納帳への転記が出来ません。そこで４月のコードをコピーし4月のコードの次に貼付・修正して見ましたが、やはり上手く作動しません。どなたか教えて下さい。お願いします。
４月の現金出納帳には６行目～34行目にデータを、同様に5月は44行目～71行目までに、6月は81行目～108行目までに、以下省略・・・にデータを転記出来るよう作表してます。
コードは次のとおりです。
Public Sub 現金出納帳()
Dim sh13 As Worksheet
Dim sh11 As Worksheet
Dim maxrow As Long
Dim row As Long
Dim dicT As Object
Dim key As Variant
Set sh13 = Worksheets("現金出納帳")
Set sh11 = Worksheets("振替伝票")
Set dicT = CreateObject("Scripting.Dictionary")
maxrow = sh11.Cells(Rows.Count, "H").End(xlUp).row
'伝票番号を記憶
For row = 6 To maxrow
key = sh11.Cells(row, "H").Value
dicT(key) = row
Next
key = sh11.Cells(4, "AA").Value
If dicT.exists(key) = False Then
　MsgBox ("伝票番号=" & key & "は振替伝票にありません")
Exit Sub
End If

If sh11.Cells(15, "AP").Value = "" Then
　MsgBox ("合計が未表示です")
Exit Sub
End If
If sh11.Cells(5, "Q").Value = "" Then
MsgBox ("年が未表示です")
ElseIf sh11.Cells(5, "Q").Value > 2 Then
sh13.Cells(5, "B").Value = sh11.Cells(5, "Q").Value
Else
Exit Sub
End If

row = dicT(key)
sh13.Cells(row, "L").Value = sh11.Cells(7, "AA").Value '名前
sh13.Cells(row, "X").Value = sh11.Cells(15, "AP").Value '金額
sh13.Cells(row, "C").Value = sh11.Cells(5, "W").Value '日
sh13.Cells(row, "B").Value = sh11.Cells(5, "U").Value '月
sh13.Cells(row, "N").Value = sh11.Cells(19, "Z") '他店数
sh13.Cells(row, "M").Value = sh11.Cells(19, "X").Value '他
sh13.Cells(row, "O").Value = sh11.Cells(19, "AA").Value '店
sh13.Cells(row, "D").Value = sh11.Cells(7, "Z").Value '伝票番号
sh13.Cells(row, "E").Value = sh11.Cells(8, "Z").Value '伝票番号
sh13.Cells(row, "F").Value = sh11.Cells(9, "Z").Value '伝票番号
sh13.Cells(row, "G").Value = sh11.Cells(10, "Z").Value '伝票番号
sh13.Cells(row, "H").Value = sh11.Cells(11, "Z").Value '伝票番号
sh13.Cells(row, "I").Value = sh11.Cells(12, "Z").Value '伝票番号
sh13.Cells(row, "J").Value = sh11.Cells(13, "Z").Value '伝票番号
sh13.Cells(row, "K").Value = sh11.Cells(14, "Z").Value '伝票番号

MsgBox ("現金出納帳に転記します")

End Sub

質問者からの補足コメント

• 補足いたします。
  １. >下記の①②のレイアウトがよくわかりません。
  ⇒別途に添付します。
  ２．>提示されたマクロは４月のコードであり、しかも、そのマクロは４月として、正しく動作してい　　　るということでしょうか。
  ⇒正しく作動しています。
  　　＞4月が６行目～34行目にデータを転記と書いていますが、提示されたマクロには６行目～34行目　に関する記述がないので、おかしいなと思った次第です。
  ⇒このコードは、まだ未完成で最終行まで参照するので、４月分の３４行目までは正しく転記しますが、添付図のとおり、５月分以降は区切りがあって、途中の行から始まります。なので、４月分のみです。

  
    補足日時：2022/01/28 18:57

• 補足２です。

  
    補足日時：2022/01/28 19:00

• 補足３です。
  全ての月表を添付出来そうにないので、切り取っています。

  
    補足日時：2022/01/28 19:03

• 補足します。

  
    補足日時：2022/01/28 19:07

No.1 回答者： tatsumaru77 回答日時： 2022/01/28 17:18

補足要求です。

１．下記①②のレイアウトがよくわかりません。
①振替伝票シート（Sheet11）
②Sheet13の現金出納帳（様式を４月から翌年３月まで作成）
画像で提示していただけませんでしょうか。

２．提示されたマクロは４月のコードであり、しかも、そのマクロは４月として、正しく動作している
ということでしょうか。
4月が６行目～34行目にデータを転記と書いていますが、提示されたマクロには
６行目～34行目に関する記述がないので、おかしいなと思った次第です。

この回答へのお礼

有り難うございます。補足させて頂きました。

お礼日時：2022/01/28 18:58