エクセル 日報売上を月報売上に日付をキーにして反映
エクセル 日報売上を月報に展開するマクロで困っております。
準備するシート
(1)日報入力シート
(2)月報売上シート
日報入力シートに作ったボタンを押すとB3の日付（今日）と月報売上シートA列の2～31に用意された日付（１ヶ月分）を参照する
一致した場所（B列～D列）に 入力シート B7:D7のデータを貼り付ける作業を考えております。
以下は過去の事例を参考にさせて頂きました。日付が横軸ですが、目的は縦軸です。
日報入力は1回のみですので、重複はなく1行ずらす処理は必要ありません。
ご教示頂けば助かります。
よろしくお願い致します。
Sub ボタン1_Click()
Dim FRng As Range
Dim Rw As Long
With Sheets("月報売上シート")
If Range("B3").Value = "" Then
MsgBox "入力日を記入してください。", vbExclamation
Exit Sub
End If
Set FRng = .Rows(1).Find(Range("B3").Value, lookat:=xlWhole)
If Not FRng Is Nothing Then
Rw = .Cells(Rows.Count, FRng.Column).End(xlUp).Row
If Rw < 3 Then Rw = 3 Else Rw = Rw + 1
.Cells(Rw, FRng.Column).Resize(, 3).Value = Range("B7:D7").Value
Else
MsgBox "転記先日付が 見つかりません。", vbCritical
Exit Sub
End If
End With
Set FRng = Nothing
MsgBox "転記しました。", vbInformation, "完了"
End Sub
お礼
有難う御座います。答えは一通りではないのですね 勉強になりました。