ExcVBAについて、コンボBOXの項目をセルに記録する

質問

ユーザーフォーム1にコンボBOX1に氏名を記録させてあります。
同じくユーザーフォーム1にコマンドボタン1で入力ボタンをつくってあります。sheet1にはVBエディタのフォームよりコマンドボタン2を作成しsheet1にコンボBOXを表示させるようにしています。
そこでコンボBOXの氏名1をsheet1のA3にコマンドボタン1を使い記録させます。後にA4に氏名2を記録させます。
というように、Aの欄に記録、記録としていきたいのですがコードが判りません。どのようなコードを使えば記録がA2、A3、A4と記録できるのでしょうか教えてください。ちなみにA1だけに記録は出来ます。
宜しくお願いします。

回答No.1

papayuka

意味が良く解りません。
氏名1と氏名2ってのが突然出て来て？？です。

UserForm1上のComboBox1の値を、同じくUserForm1上のCommandButton1の押下によって、ActiveSheetのA列に順次貼り付けたいなら、

Private Sub CommandButton1_Click()
　ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0).Value = Me.ComboBox1.Value
End Sub

のような感じで可能です。
（例ではA2から順次ボタンを押下する毎に下に入力されます）

お礼

ありがとうございました。氏名1氏名2とはたとえば名前を記録する場合って意味です。もう一度整理して質問し直します。アドバイスは参考に実施して見ます。