sheet1 A1日付に合致する内容をコピー

VBAにてsheet2より sheet1 A1日付に合致した日付の内容を添付のようににコピーしたいのですがよろしくお願いします。

No.1 ベストアンサー 回答者： tom04 回答日時： 2015/01/09 19:46

こんばんは！

一例です。
Sheet1のシートモジュールにしてください。
（Changeイベントにしています）

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, wS As Worksheet
Set wS = Worksheets("Sheet2")
If Target.Address = "$A$1" Then
Set c = wS.Range("B:B").Find(what:=Target, LookIn:=xlFormulas, lookat:=xlWhole)
If Not c Is Nothing Then
c.Offset(1, -1).Resize(3, 3).Copy Range("A2")
Else
MsgBox "該当データなし"
End If
End If
End Sub

こんな感じではどうでしょうか？m(_ _)m

この回答へのお礼

ありがとうございました。
非常に助かりました。

お礼日時：2015/01/09 21:52