エクセル VBA マクロについて

質問

VBA初心者です。
Sub 記入()
Range("H8", "J14").Copy
Range("C" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
Range("H15", "J21").Copy
Range("C" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
Range("H22", "J28").Copy
Range("C" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
Range("K13").Select
End Sub
こういうマクロを作り上手く作動しましたのでB列に日付を記入したいと思い
Sub 日付()
Range("("B" & Rows.Count).End(xlUp).Offset(1)","("C" & Rows.Count).End(xlUp).Offset(0, -1)").Value = Date
End Sub
このようなマクロを組みましたがエラーがでます。どなたか直して頂けませんか？よろしくお願いします。

回答No.1

merlionXX · ベストアンサー

文法がめちゃくちゃなのでとりあえずエラーがでないように直すと

Sub 日付()
Range(Range("B" & Rows.Count).End(xlUp).Offset(1), Range("C" & Rows.Count).End(xlUp).Offset(0, -1)).Value = Date
End Sub

お礼

ありがとうございました。マクロを知って1週間です。エラーなく動きました。ありがとうございました。

補足

Sub 日付()
Range(Range("B" & Rows.Count).End(xlUp).Offset(1), Range("C" & Rows.Count).End(xlUp).Offset(0, -1)).Value = Date
End Sub
上記のマクロに午後なら翌日、午前なら当日のDateの記入をするようなマクロを教えて頂けませんか？よろしくお願いします。

回答No.2

hige_082

質問するレベルに足していません
もっと勉強を！！
禁止事項等もよく読んで質問すること

＞こういうマクロを作り上手く作動しましたので
ならこれで分るでしょう

msgbox iif(timevalue(now)>timevalue("12:00"),"翌日","当日")
それとも、こっちか
msgbox iif(timevalue(now)>timevalue("12:00"),date+1,date)

お礼

よく分かりました。
組み込みましたら上手く出来ました。ありがとうございました。