[[20141118123212]]　『追加質問』（ちぃさん）　ページの最後に飛ぶ

『追加質問』（ちぃさん）

お世話になります。

[[20141116093241]]
↑
コチラで質問していました追加質問になります。
宜しくお願いします。

追加質問の内容は
「最下行に転記する際に転記日時も一緒に記録」
したいので教えていただけないでしょうか。
転記された最終行が「B5」に転記であれば「F5」に
転記された最終行が「B10」に転記であれば「F10」に 2014/○○/○○ ○○:○○:○○
と転記日時を記録を残していきたいです。

現在は皆様に沢山助けて頂いたコードを使わせていただき転記時間が記録するために追加したのですが転記されるのは最初の行のみ時間が転記され次の行からは時間の記録(セルに入力)がされません。

現在コード
↓
Sub Sample2()
'最下行元から最下行先へ転記
Dim cp
Dim nextCell
cp = Range("A10").End(xlUp).Value '検索先を変数に代入
Set nextCell = Range("B" & Rows.Count).End(xlUp).Offset(1) '転記先を変数に代入
If nextCell.Row < 10 Then
Set nextCell = Range("B10")
Range("C" & nextCell.Row) = Now() '←ここの部分に追加
End If
nextCell.Value = cp
End Sub

転記最終行を「B20」までとし、転記開始行を「B2」からとしようとした場合にマクロコードを変更し
↓
Sub Sample3()
'最下行元から最下行先へ転記
Dim cp
Dim nextCell
cp = Range("A10").End(xlUp).Value '検索先を変数に代入
Set nextCell = Range("B20").End(xlUp).Offset(1) '転記先を変数に代入
If nextCell.Row < 2 Then
Set nextCell = Range("B2")
Range("C" & nextCell.Row) = Now() '←ここの部分に追加
End If
nextCell.Value = cp
End Sub

とした場合は全く転記日時が記録(セルに入力)されません。
何故でしょうか？
転記日時と転記される列は別なのですがどのような条件が足らないのでしょうか？
何が駄目なのでしょうか？

どうかお助けいただけないでしょうか。

何卒宜しくお願いいたします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

If nextCell.Row < 2 Then の判定の内側だから。Nowの代入を、End If より下にしては？
（???） 2014/11/18(火) 15:01

（???）さん　解答ありがとうございます。

希望しているように動きました。

＞判定の内側だから。
凄く勉強になります。
勘違いしまくっていました。

ありがとうございました。
（ちぃさん） 2014/11/18(火) 15:26

コメント返信：

[ 一覧(最新更新順) ]

[[20141118123212]] 『追加質問』（ちぃさん） ページの最後に飛ぶ

[[20141118123212]]　『追加質問』（ちぃさん）　ページの最後に飛ぶ