[[20130728172719]]　『チェック入→テキストボックス転記』（りんご）　ページの最後に飛ぶ

『チェック入→テキストボックス転記』（りんご）

 いつもお世話になっております。
 本日もお願い致します。

 「業者」というUserFormがあります。
 そのUserFormにはCheckBoxが20個、TextBoxが20個配置してあります。
 CheckBox1 → 業種
 TextBox1 → 業者名　という形で、TextBoxには全て入力がされている状態です。

 必要な情報のCheckBoxにチェックを入れて、CommandButton1を押したら
 CheckBoxにチェックが入っている業種の業者名（TextBox）を
 別のWorkbooksに転記したいのです。

 Private Sub CommandButton1_Click()
 Workbooks.Open ThisWorkbook.Path & "\依頼書.xlsx"
 Set myBook = ActiveWorkbook

 If CheckBox1 = True Then
 Range("B2").Value = TextBox1.Value
 CheckBox1 = False
 End If

 End Sub

 単純に考えるとこういう事なのでしょうが、
 同じコードをCheckBoxの数だけ記述しなくても良いのでは？と思い、
 質問させて頂きました。
 また、転記する際にB2の最終行からどんどん追加していきたいのです。
 xlDown等があまり理解できていません･･･。

 皆様のお知恵をお貸し下さい。宜しくお願い致します。

 WindowsXP/Excel2007

コメント返信：