実行時エラー:1004が出て解決できません。どなたか教えて下さい。
作業はSh1(入力シート)からSh2(記録簿)に転記しますが、エラーが出て転記できない状態です。次のコードの「If sh2.Cells(row,"E").Value=sh1.Cells(5,"C").Value'名前」が黄色表示されます。
Sub 転記()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim maxrow As Long
Dim row As Long
Dim dicT As Object
Dim key As Variant
Set sh1 = Worksheets("交換入力シート")
Set sh2 = Worksheets("記録簿")
Set dicT = CreateObject("Scripting.Dictionary")
maxrow = sh2.Cells(Rows.Count, "C").End(xlUp).row
'一連番号を記憶
For row = 7 To maxrow
key = sh2.Cells(row, "C").Value
dicT(key) = row
Next
key = sh1.Cells(6, "AB").Value
If dicT.exists(key) = False Then
MsgBox ("一連番号=" & key & "は記録簿にありません")
Exit Sub
End If
If sh1.Cells(5, "C").Value = "" Then
MsgBox ("名前が未入力です")
Exit Sub
End If
If sh1.Cells(17, "L").Value = "" Then
MsgBox ("Aの枚数が未記入です")
Exit Sub
End If
If sh1.Cells(21, "L").Value = "" Then
MsgBox ("Kの枚数が未記入です")
Exit Sub
End If
If sh1.Cells(25, "L").Value = "" Then
MsgBox ("Gの枚数が未記入です")
Exit Sub
End If
If sh1.Cells(29, "L").Value = "" Then
MsgBox ("Hの枚数が未記入です")
Exit Sub
End If
If sh1.Cells(33, "N").Value = "" Then
MsgBox ("合計金額①が未入力です")
Exit Sub
End If
If sh1.Cells(17, "Z").Value = "" Then
MsgBox ("A1の枚数が未記入です")
Exit Sub
End If
If sh1.Cells(21, "Z").Value = "" Then
MsgBox ("K1の枚数が未記入です")
Exit Sub
End If
If sh1.Cells(25, "Z").Value = "" Then
MsgBox ("G1の枚数が未記入です")
Exit Sub
End If
If sh1.Cells(29, "Z").Value = "" Then
MsgBox ("H1の枚数が未記入です")
Exit Sub
End If
If sh1.Cells(33, "AB").Value = "" Then
MsgBox ("合計金額②が未入力です")
Exit Sub
End If
If sh1.Cells(35, "AB").Value = "" Then
MsgBox ("差額金額が未入力です")
Exit Sub
End If
If sh1.Cells(4, "M").Value = "" Then
MsgBox ("発行日が未記入です")
Exit Sub
End If
If sh1.Cells(17, "AF").Value = "" Then
MsgBox ("IDが未記入です")
Exit Sub
End If
row = dicT(key)
sh2.Cells(row, "E").Value = sh1.Cells(5, "C").Value '名前 ←ここが黄色くなります。
sh2.Cells(row, "Q").Value = sh1.Cells(35, "AB").Value '金額
sh2.Cells(row, "D").Value = sh1.Cells(17, "AF").Value 'ID
sh2.Cells(row, "B").Value = sh1.Cells(4, "M").Value '発行日
sh2.Cells(row, "F").Value = sh1.Cells(17, "L").Value 'A20
sh2.Cells(row, "G").Value = sh1.Cells(21, "L").Value 'k6
sh2.Cells(row, "H").Value = sh1.Cells(25, "L").Value 'G10
sh2.Cells(row, "I").Value = sh1.Cells(29, "L").Value 'H8
sh2.Cells(row, "J").Value = sh1.Cells(33, "N").Value '合計金額①
sh2.Cells(row, "L").Value = sh1.Cells(17, "Z").Value 'A21
sh2.Cells(row, "M").Value = sh1.Cells(21, "Z").Value 'K7
sh2.Cells(row, "N").Value = sh1.Cells(25, "Z").Value 'G11
sh2.Cells(row, "O").Value = sh1.Cells(29, "Z").Value 'H9
sh2.Cells(row, "P").Value = sh1.Cells(33, "AB").Value '合計金額②
MsgBox ("転記完了")
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- 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
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Excel(エクセル) マクロで最終行から上に検索を逆にしたい 1 2022/05/17 18:27
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「ジャイアント」GIANT PROPEL ...
-
自転車のペダルが回らなくなり...
-
自転車屋さんと喧嘩になりまし...
-
車のハンドルが重いのですが・・・
-
自転車のタイヤパンク嫌がらせ...
-
自転車の空気を入れる金属の部...
-
自転車のパンクについて 自転車...
-
マウンテンバイクのタイヤサイ...
-
自転車のハンドルのギアを変え...
-
トヨタの半年点検で車のタイヤ...
-
の一般車多数の自転車屋や大手...
-
私はいまロードバイク使ってい...
-
BMW X3 F25 X4 F26 純正品 20イ...
-
自転車のチェーンが特にこぐ時...
-
自転車の前輪の空気を入れても2...
-
初心者です。自転車クロスバイ...
-
ルック車をカスタムしたらルッ...
-
自転車のタイヤに亀裂が入って...
-
自転車クロスバイクのハンドル...
-
駐車する際にブレーキペダルを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
伊予銀行のスマホアプリAgent ...
-
乃木坂46のモバイルメールはiPh...
-
SO-03D
-
海外携帯ソニーエリクソン Z320...
-
iPhone4を売ろうと思います
-
ArrowsのF-03HのLINEアイコンバ...
-
Googleアカウントにログインし...
-
VBA エラーを解決したい。
-
SMSが受信できない(送信は...
-
家でpcで調べる人は意外と多い?
-
CD-Rの写真データを満喫やネカ...
-
彼氏が1週間もスマホ電源入っ...
-
携帯電話から「○番を入力してく...
-
例えば失踪しようとしたらスマ...
-
うっかりアプリをアンインスト...
-
中古のiPhoner8の購入を検討し...
-
液タブで描いた絵をスマホに移...
-
パソコンに保存された写真をス...
-
ドコモショップで機種変更した...
-
iPhoneの制限方法
おすすめ情報
GOMAFU様 早速のご対応有り難う御座います。Activeでなくても良いです。
どなたか解決方法を教えて下さい。お願いします。