列のデータに変化があるとマクロを実行

質問

A列 － B列 － C列 － D列
1 － 123 － 234 － 678
2 － 456 － 567 － 890
3 － 333 － 444 － 555
4 － 765 － 876 － 321
5 － ? － ? － ?
6 － ? － ? － ?
の様なデータがあり行のデータ日々増すとき
C列最終行のデータD1に出したいのですが？
C列のデータに変化があるとマクロを実行して
常にC列最終行のデータD1に出したいのです
どなたか良きアドバイスをお願い致します。

回答No.1

kuma3f · ベストアンサー

思われていることと違っていましたらすみませんが、C列の最終行のデータを
セルD1に表示させるだけでしたら、C列を入力後セルがD列に移動した瞬間
（D列を選択すると）イベントを実行させるマクロではどうでしょうか。
参考までに下記のコードをSheet1のコードに貼り付けてみてください。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'D列を選択するとイベントを実行する
Dim C列最終行, 列 As Long
Application.MoveAfterReturnDirection = xlToRight '右へ移動
列 = ActiveCell.Column
If 列 = 4 Then 'アクティブセルがD列なら
Sheets("sheet1").Range("C65536").End(xlUp).Select
C列最終行 = ActiveCell.Row 'C列の最終行
Sheets("sheet1").Range("D1") = Sheets("sheet1").Cells(C列最終行, 3) 'C列の最終行をD1に表示
Sheets("sheet1").Cells(C列最終行 + 1, 1).Select
End If
End Sub

補足

早速のアドバイス有難うございます私の説明不足で申し訳ないのですが
列最終行のデータは他のシートからコピーはりつけをするときもあり
この様なときはどうしたらよいかお手数を掛けますが再度宜しく
お願い致します。

回答No.2

kuma3f

Ｃ列の最終行までに空白が無ければ、次のコードまたは関数であればコピー貼り付けしたデータも大丈夫だと思います。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C列最終行 As Long
C列最終行 = Application.WorksheetFunction.CountA(Worksheets("sheet1").Range("C1:C65536"))
Sheets("sheet1").Range("D1") = Sheets("sheet1").Cells(C列最終行, 3) 'C列の最終行をD1に表示
End Sub

または、マクロではなくセルのＤ１に次の関数を入れても同じ結果になります。
=INDEX(C:C,COUNTA(C:C))

Ｃ列の最終行までに空白があると上記では最終行を判断できないのですみません。

お礼

アドバイス有難うございました。
マクロではなく INDEX(C:C,COUNTA(C:C))
で 私の希望どうりの動作がしました
マクロについては勉強の教材として
使わせて頂きます。