マクロで日付を同時に２つのセルに表示したい。

台帳シートを作成しています。色々教えてもらい完成したと喜んでいましたが、今まで表示されていたB2セルに日付が表示されなくなりました。いくら考えても解りません。例えばD2に一連番号３を、次のE2に32を入力するとD9に３，E9に32が表示されると、B9に日付が4/4と表示されますが、B2には表示されません。E2に店コード番号を入力した時点でB2にも日付を表示したいのです（この日付は別シートにコピーするようにしています）。なお、現在のコードは次のとおりです。台帳は添付のとおりです。どうかご教授ください。

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column <> 5 Or .Count > 1 Then Exit Sub
If .Address = "$E$2" Then
If WorksheetFunction.CountBlank(Range("D2:E2")) = 0 Then
With Cells(Range("D2") + 6, "E")
.Value = Range("E2")
.Offset(, -3) = Now()
End With
Range("E2").ClearComments
End If
End If
End With
End Sub

No.1 ベストアンサー 回答者： naktak 回答日時： 2017/12/13 09:29

B2に値を設定するようなコードはどこにもありませんが。

.Offset(, -3) = Now()の後に
Range("B2").Value = Now()でも入れたらいかがでしょう。

この回答へのお礼

大変有り難う御座いました。解決しました。

お礼日時：2017/12/13 12:00