VBA 日付の判定をしたい

Question

D1に2020/10/01の日付を事前に入れておきます。（毎回月は替わります）

B列の日付が10月になっている場合、その行をコピーしてC列の値は削除するというコードを書きたいのですが、以下ののAndから先がわかりません。
「If cells(i,"B").value<>"" And XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX」

申し訳ありませんが、ご指導いただきたくよろしくお願いします。

例えばですが、下記の場合、3行目のすいかの下に1行挿入したいです。
A B C

１ 商品　出荷日　　値段　
２　めろん　11/2　　100
３　すいか　10/5　　200
４　りんご　11/3　　50

Dim mx
Dim i
Application.ScreenUpdating = False
mx =Range（"B" & Rows.Count).End(xlUp).Row
For i = mx To 3 Step -1
If cells(i,"B").value<>"" And XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX　Then
Rows(i).copy
Rows(i + 1).Insert Shift:=xlDown
Rows(i + 1).Range("B1").Clearcontents

End If
Next

Comments

[meg_]

> C列の日付が10月になっている場合
B列ではありませんか？
> その行をコピーしてC行の値は削除する
> 4行目のすいかの下に1行挿入したいです。
何を削除したいのか、何を挿入したいのかよく分かりません。C行はC列ですか？4行目のすいかは3行目のすいかですか？

[ttyp03]

mxを初期化していないので無限ループしそうですが。
端折らないで必要なコードは全て提示してください。

[ttyp03]

あと質問タイトルと質問内容があってません。
聞きたいことは「日付の判定をしたい」では？

[minako_tera]

この度は不備が多くもうしわけありません。質問を訂正いたしました。

Answer 1

「C列の日付が10月になっている場合」がB列の間違いとして、

If Cells(i,"C").Value<>"" And Format(Cells(i,"B").value,"yyyymm") = Format(Cells(1,"D").value,"yyyymm")　Then

とか、

If Cells(i,"C").Value<>"" And DateDiff("m", Cells(i,"B").value, Cells(1,"D").value)=0 Then

Comments

[minako_tera]

この度はありがとうございます。Format関数で対応できました。DateDiffのほうは引数は省略できません、と出てしまいました。いろいろ試してみたのですが、わからなかったので、Format関数で対応させていただきます。

[hatena19]

あっ、すみません。間違ってますね。最初の引数に"m"が必要でした。
DateDiff("m", Cells(i,"B").value, Cells(1,"D").value)

回答のコードも修正しておきました。

[minako_tera]

ご連絡が遅くなり申し訳ありません。勉強になります。どうもありがとうございます。