いつもお世話になります。
納品書入力シート(sheet2)から振替伝票シート(Sheet11)にデータを保存し、同じシート内の振替伝当日当日データを入力し、そのデータをSheet13の現金出納帳(様式を4月から翌年3月まで作成)に月日ごとに転記しようとしています。4月のみ現金出納帳には現在のコードで転記できましたが、5月以降の出納帳への転記が出来ません。そこで4月のコードをコピーし4月のコードの次に貼付・修正して見ましたが、やはり上手く作動しません。どなたか教えて下さい。お願いします。
4月の現金出納帳には6行目~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
No.1
- 回答日時:
補足要求です。
1.下記①②のレイアウトがよくわかりません。
①振替伝票シート(Sheet11)
②Sheet13の現金出納帳(様式を4月から翌年3月まで作成)
画像で提示していただけませんでしょうか。
2.提示されたマクロは4月のコードであり、しかも、そのマクロは4月として、正しく動作している
ということでしょうか。
4月が6行目~34行目にデータを転記と書いていますが、提示されたマクロには
6行目~34行目に関する記述がないので、おかしいなと思った次第です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) マクロで最終行を取得したい 4 2023/05/28 12:14
- Visual Basic(VBA) Excel VBA ユーザーフォーム1のコンボボックスに別ブックの値を反映させたいです。 6 2023/03/21 16:12
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Visual Basic(VBA) vbaを早くしたい 5 2022/09/09 10:58
- Visual Basic(VBA) 【VBA】特定のワードが入っている行全体を塗りつぶしたい 4 2022/04/20 15:22
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELのSheet番号って変更でき...
-
マクロの「SaveAs」でエラーが...
-
楽天RSSからエクセルVBAを使用...
-
VBAで変数の数/変数名を動的に...
-
マクロ実行後に別シートの残像...
-
VBA別シートの最終行の次行へ転...
-
100万件越えCSVから条件を満た...
-
VBA 最終行を選んだシートにコ...
-
Excel2013で切り取り禁止
-
VBA 空白行に転記する
-
Excel VBA オートフィルターで...
-
ExcelのVBマクロを、バックグラ...
-
VBAでEXCELから固定長...
-
1004RangeクラスのPasteSpecial...
-
ExcelのVBA ListBox.RowSource...
-
Count Ifのセルの範囲指定に変...
-
VBAで複数のエクセルシートから...
-
VBA Userformで一部別シートに...
-
月毎に現金出納帳に転記するコ...
-
B列の最終行までA列をオート...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マクロの「SaveAs」でエラーが...
-
VBA 空白行に転記する
-
EXCELのSheet番号って変更でき...
-
マクロ実行後に別シートの残像...
-
VBA別シートの最終行の次行へ転...
-
Count Ifのセルの範囲指定に変...
-
Changeイベントで複数セルへの...
-
VBAで変数の数/変数名を動的に...
-
VBA 別ブックからの転記の高速...
-
【VBA】特定の条件でセルをコピー
-
VBA 実行時エラー1004 rangeメ...
-
楽天RSSからエクセルVBAを使用...
-
Unionでの他のシートの参照につ...
-
複数シートの複数列に入力され...
-
ExcelのVBマクロを、バックグラ...
-
100万件越えCSVから条件を満た...
-
VBA Userformで一部別シートに...
-
Excel VBA オートフィルターで...
-
Excel2013で切り取り禁止
-
VBAでEXCELから固定長...
おすすめ情報
補足いたします。
1. >下記の①②のレイアウトがよくわかりません。
⇒別途に添付します。
2.>提示されたマクロは4月のコードであり、しかも、そのマクロは4月として、正しく動作してい るということでしょうか。
⇒正しく作動しています。
>4月が6行目~34行目にデータを転記と書いていますが、提示されたマクロには6行目~34行目 に関する記述がないので、おかしいなと思った次第です。
⇒このコードは、まだ未完成で最終行まで参照するので、4月分の34行目までは正しく転記しますが、添付図のとおり、5月分以降は区切りがあって、途中の行から始まります。なので、4月分のみです。
補足2です。
補足3です。
全ての月表を添付出来そうにないので、切り取っています。
補足します。