VBA転記がうまくいきません

Question

何度も大変申し訳ございません。
昨日、下記のような質問をさせていただき、ご回答をいただいたのですが、

シート１
（転記元）
A B
1　日付 2021/10/2
2　家賃 80,000
3　光熱費 15,000
4　食費 58,000

という数値が入っています。
※こちらは、B１，B2，B3，B4に毎日、入力更新していきます。

シート２
（転記先）
A　　 B　　 C　　 D ・・・・
１　日付　2021/9/30 2021/10/1 2021/10/2 ・・・・
2 家賃 50,000 38,000 80,000　　・・・・
3　光熱費　10,000 12,000 15,000　　・・・・
4 食費　　80,000 73,000 58,000　　・・・・

転記先の日付は事前に入力しておりますが、
転記元の日付と転記先の日付が合致することで、
転記先の２，３，４行を転記したいです。

別シートにある条件に合致したセルに転記したい場合、
VBAの記述の仕方が知りたいと思っております。

※こちら、毎日更新し、
更新ボタンを転記元か転記先に作り、そのボタンを押すことで
自動更新するような形にできないかと考えております。
ボタンの作成の仕方やマクロの登録の仕方はわかります。

私が初めて、コードを書いており、多分、間違いが多いかと思います。
ご教授いただけますと幸いです。

いただいた回答
↓
Sub 登録()
Dim ThisSh As Worksheet
Dim ThisCh As Worksheet
Dim Col As Long
Dim Rws As Long

Set ThisSh = ThisWorkbook.Sheets("Sheet1")
Set ThisCh = ThisWorkbook.Sheets("Sheet2")

Col = ThisCh.Range("1:1").Find(What:=ThisSh.Range("B1").Value).Column

Rws = ThisCh.Range("A:A").Find(What:=ThisCh.Range("A2").Value).Row
ThisCh.Cells(Rws, Col).Value = ThisSh.Range("B2").Value

Rws = ThisCh.Range("A:A").Find(What:=ThisCh.Range("A3").Value).Row
ThisCh.Cells(Rws, Col).Value = ThisSh.Range("B3").Value

Rws = ThisCh.Range("A:A").Find(What:=ThisCh.Range("A4").Value).Row
ThisCh.Cells(Rws, Col).Value = ThisSh.Range("B4").Value

Set ThisSh = Nothing
Set ThisCh = Nothing

End Sub

こちら、日付の部分を整数（数値）１や２、３等に変更して
同じように行ったのですが、転記がうまくできません。

シート１
（転記元）B1に３と入れ
マクロを起動させると（転記先）のA1に転記されたり
転記がうまくいきません。

理由が知りたいと思っています。

また、どのように対策することで、きちんと転記されますでしょうか？
ご教授いただけますと幸いです。

Comments

[jinoji]

一見問題なさそうに見えます。
Step実行するなどして、どこでおかしくなるのか探ってみては？

Answer 1

Dim moto As Worksheet
Dim saki As Worksheet
Dim motoData As Variant

motoData = moto.Range("B1:B4").Value
saki.Columns(WorksheetFunction.Match(motoData(1, 1), saki.Range("1:1"), 0)).Resize(UBound(motoData, 1)).Value = motoData

Comments

[sakura12]

こちらのVBAでもう一度試してみます！！
ありがとうございました。

Answer 2

![イメージ説明](e6a02891dbafc889665fb128bf846815.png)
Option Explicit
Dim 日付 As Date
Dim 家賃 As Long
Dim 光熱費 As Long

Dim 食費 As Long
Dim i As Long, n As Long
Sub Macro1()

Sheets("入力").Select
日付 = Range("B2").Value
   家賃 = Range("B3").Value
   光熱費 = Range("B4").Value
   食費 = Range("B5").Value
   
   Sheets("家計簿").Select
   n = Cells(1, Columns.Count).End(xlToLeft).Column
   For i = 2 To n
   If 日付 = Cells(1, i) Then
   Cells(2, i).Value = 家賃
   Cells(3, i).Value = 光熱費
   Cells(4, i).Value = 食費
    Sheets("入力").Select
    Exit Sub
    End If
    Next i
   
End Sub

Comments

[sakura12]

ご丁寧に本当にありがとうございました！
こちらも実行してみます。とても助かりました！