マクロでのタイトル行の変更

質問

いつもお世話になります。
添付の画像で　タイトル　行で
上側で　　氏名　登録日　No　は下記のようなマクロが入っています。

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Error
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
If Target.Offset(0, -1).Value = "" Then Exit Sub
If Target.Value <> "" Then
Target.Offset(0, 1).Value = Application.Max(Range("C:C")) + 1
End If
Error:
End Sub

添付の下のように　No　登録日　氏名　のように位置を変更は上のマクロのどの部分を
変更すればいいかご教示願えませんか。
宜しく御願いします。

色々と試したのですが分からなくなりました。

回答No.2

ka_na_de · ベストアンサー

こんにちは。

こういうことでしょうか？

Private Sub Worksheet_Change(ByVal Target As Range)
　　On Error GoTo Error
　　If Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub
　　If Target.Offset(0, -1).Value = "" Then Exit Sub
　　If Target.Value <> "" Then
　　　　Target.Offset(0, -2).Value = Application.Max(Range("A:A")) + 1
　　End If
Error:
End Sub

お礼

はい、そうです。
誠に有難うございました。
今後ともご指導宜しく御願いします。

回答No.1

bin-chan

題意の読み取りが弱いかも？ですが。

Range("A1").Value = "No"
Range("B1").Value = "氏名"
では駄目？

「入れ替え」するには、いったん、入れ物（変数）が必要です。
バケツAとバケツBの中身を入れ替えるには？もうひとつバケツCが必要ですよ。
バケツA→バケツC
バケツB→バケツA
バケツC→バケツB

補足

1説明不足で済みません。
今は
　　　　　 A B C
左側から　氏名　登録日　No を

A B C
左側から　No 登録日　氏名
に変更をしたいのですが現在適用しているマクロのどの部分を修正すれば
　例えば　C → A
　　　　　A → 　C
B　はそのままに
可能でしょうか。
宜しく御願いします。