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

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

度々お世話になります。

本日2回目の追加質問申し訳ないです。

[[20141118123212]]　
↑
コチラの質問内容の追加となります。
宜しくお願いいたします。

同じシート内への転記から別シートへの変更をしたいのですがコードを付け加えても同じシートに転記されるのですが何が足りていないのでしょうか？

現在はシート1のシートモジュールに記述しています。
↓
Sub Sample2()
'最下行元から最下行先へ転記
Dim cp
Dim nextCell
With Sheets("Sheet2") '←追加部分転記先シート
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")
End If
nextCell.Value = cp
Range("C" & nextCell.Row) = Now()
End With '←追加部分
End Sub

特にエラーも出ないのですが何が足りていないのでしょうか？

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

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

With文で括った後、そのシートのプロパティ等を使用したいならば、前にピリオドを付けましょう、
いまのままでは、アクティブシートに出力するだけで、変わりませんよ。

.Range("B" & .Rows.Count).End(xlUp).Offset(1)
（.Range とか .Rows 等）
（???） 2014/11/18(火) 17:22

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

本日何度もすみません。
ありがとうございます。

ご指摘していただい所にピリオドを付けたのですが
Range("C" & nextCell.Row) = Now()
↑
の日時が1回のみ転記されるだけになります。
マクロコードを見直してもピリオドの付け忘れはないのですがピリオドを加えるだけでは駄目なのでしょうか？

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

としていますが、不足部分がありますでしょうか？

手間を取らせて申し訳ないのですが今一度指摘いただけないでしょうか。

どうか宜しくお願いいたします。
（ちぃさん） 2014/11/18(火) 18:29

連続投稿すみません。

解決しました。

cp = Sheets("Sheet1").Range("A10").End(xlUp).Value '検索先を変数に代入
Set nextCell = Sheets("Sheet2").Range("B" & .Rows.Count).End(xlUp).Offset(1) '転記先を変数に代入
↑
にシート指定が足りていなかっただけでした。

すみません。

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

コメント返信：

[ 一覧(最新更新順) ]

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

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