日付のカ増減は特に行っていません

質問

参考日が個々でバラバラのため、セルを下に順繰りに送って基準日と照らし合わせる形をとっています。
下記に簡素ではありますが、プロシージャを貼り付けて置きます。
ご回答いただければ助かります
Sub ranking()

Dim o As Integer
Dim Date1 As Date, Date2 As Date

o = 5
Date2 = wsFrom.Cells(16, 3)
Date1 = wsFrom.Cells(o, 6)←こちらはきちんとセルごとの参考日が代入されている
↑ここのデータ変数が変わらない
Do While Cells(3, o) <> ""
If DateDiff("m", Date1, Date2) > 0 Then

　　　Cells(7,o).Copy
Cells(12,o).paste

Else

　　　Cells(7,o).Copy
Cells(14,o).paste

End If
o = o + 1
Loop
End Sub

回答No.3

imogasi

これは、前に出した質問の補足か？
それならば、その旨と、その質問番号なり書くべきでは？

回答No.2

kkkkkm

書き忘れましたが
変数oが列だったり行だったりしてますが、それでいいのでしょうか。

補足

書き間違いですね。申し訳ありません
正しくはDo While Cells(o、3) <> ""となります。

回答No.1

kkkkkm

> Date1 = wsFrom.Cells(o, 6)

Cells(5, 6)のデータを一度だけしか代入してませんよね。
Do While Cells(3, o) <> ""
のあとに
Date1 = wsFrom.Cells(o, 6)
なのではないでしょうか。

お礼

ありがとうございます。
おかげで動き出しました。