|
ユーザーフォームで
下記のように、shシートを検索し最終空白行に転記するコードを作りました。
これより上は省略
Dim Rpos As Long
Dim kou
kou = ListBox5.Text
MsgBox sh.Name
sh.Activate
Rpos = sh.Range("B65536").End(xlUp).Row + 1
sh.Cells(Rpos, 1).Value = TextBox2.Value
sh.Cells(Rpos, 2).Value = TextBox4.Value
sh.Cells(Rpos, 4).Value = TextBox3.Value
sh.Cells(Rpos, 6).Value = ListBox4.Text
sh.Cells(Rpos, 7).Value = kou
.
.
この時、全シート(同ブック)のB2にkou(ListBox5.Text)と同じ項目がある
シートを探し(必ず1シートのみになります)
同じくそのシートのF列の最終空白行を探し、
その1つ下の行にTextなどを転記する。というイベントを
作成したいのですが、どのようなコードにすればよいのでしょうか。
どなたかお教え下さい。
|
|