ユーザーフォームから行検索後、データ挿入の仕方について

質問

エクセルでの名簿作成時に関する質問です。

現在エクセルで名簿を作成する際に、ユーザーフォームを使って入力しています。
データは、まず一番上の行に「A1～G1」までの（１人につき）７項目挿入され、
その後、全体を「A列」の氏名順に並び替えるという作業をしています。
「登録」ボタンと、「並び替え」ボタンを押さねばならず、
２度手間のような気がしてなりません。

ちなみに、名簿自体はローマ字名順（a.b.c.～z）に並べています。
ユーザーフォームのテキストエリアに記入し、「登録」ボタンを押すだけで、
既存の名簿から該当のローマ字を検索して探し出し、
その下に行の挿入・登録されるような機能はないのでしょうか？
例えば、「佐藤さん（sato）」のデータをユーザーフォームから入れる際に
「登録」ボタンを押すと・・・
----------------------------------------------------
【名簿】　
　******　　　←ここではなく・・・　
　abe
　・
　・
　oda　　
　sasaki
　******　　　←【sat*】を検索して直接ここに登録したいのです。
　seki
----------------------------------------------------
マクロを始めたばかりでよく理解していない事が多いのですが、
何か良い方法がありましたら、アドバイスをお願い致します。

回答No.3

noname#123709 · ベストアンサー

＃１です。
列の範囲はＡ～Ｇですね？
コマンドボタン1をクリックしたときの処理ですが、そちらで異なるのであれば
変更して下さい。
テキストボックスも７項目ということなので１～７としていますが状況に
合せて変更して下さい。
質問者様の画面が見えているわけではないのでこれで限界です。
具体的に書いて頂けるとこちらも具体的に返事ができますけどね。
分からない部分はHELPをみるなりして勉強して下さいね。

Private Sub CommandButton1_Click()
With Range("A65536").End(xlUp).Offset(1)
.Value = TextBox1.Value
.Offset(, 1).Value = TextBox2.Value
.Offset(, 2).Value = TextBox3.Value
.Offset(, 3).Value = TextBox4.Value
.Offset(, 4).Value = TextBox5.Value
.Offset(, 5).Value = TextBox6.Value
.Offset(, 6).Value = TextBox7.Value
End With
Range("A2:G" & Range("A65536").End(xlUp).Row).Sort Key1:=Range("A2"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin
Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
End Sub

お礼

できました、できました！！どうもありがとうございます！！
ご丁寧にご説明下さりどうもありがとうございました。大変助かりました。
またお聞きする機会があるかもしれませんが；、
その際はどうぞよろしくお願い致します。

補足

「ありがとうポイント」の付け方がわからないので；、
後ほど付けさせて頂きますね。（すみません、仕事中なので；）

回答No.2

noname#123709

＃１です。
これでどうですか？但しデータ範囲・ボタン名称等は目的にあったものに
修正する必要があります。
（１）シートの最終行にフォームの内容を入力
（２）A2セルからA列最終データ行までの範囲で並び替え
（３）フォームのローマ字名前の内容で検索
Private Sub CommandButton1_Click()
Range("A65536").End(xlUp).Offset(1).Value = TextBox1.Value
Range("A2:A" & Range("A65536").End(xlUp).Row).Sort Key1:=Range("A2"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin
Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
End Sub

補足

ありがとうございます！さっそくやってみました。
↑式のを入れてみると、Ａ列はうまくいきましたが、他の列がＡ列と一緒に動いてくれません；
列ごとに検索してバラバラに入ってしまっているようです。
知識が薄いため、どこを変更すれば行ごとの移動になるのかわかりません；
何度もすみませんが、よろしくお願いします。（カーソルは動いてますので大丈夫です）

回答No.1

noname#123709

できますけど、登録と並び替えの部分が完成しているのであれば、登録ボタン
を押した時に登録の処理を行ってから並び替えの処理を走らせたら良いのでは
ないですか？

補足

回答ありがとうございます。
登録後に並び替えの処理も考えたのですが、そうすると、
登録した人の所にカーソルがいかないので、いちいち探して確認するが面倒なのです。
勉強不足なので、もしかしたらカーソルも一緒に移動する方法もあるかもしれませんが；・・・。
もしそれができる方法があるならば、登録後に並び替えでも大丈夫です！

説明不足でしたが、登録後に確認をしたいという希望もあるので、
処理が終わった後、登録した人のところにカーソルがあると嬉しいです。
尚かつ、ボタンがひとつで・・・。

色々我侭言ってすみませんが、何か方法がありましたらよろしくお願いします。