excelVBAのコンボボックスについて

質問

excelVBAのコンボボックスについて質問です。
ユーザーフォームに設置したコンボボックスに違うシートの特定範囲を設定するには
どのようにプログラムすればよろしいでしょうか？
自分なりにいろいろ調べてみたのですが解決できませんでした。

要約すると
ユーザーフォームはsheet1からボタンで起動させ（ここまでは苦もなくできました）、でてきたユーザーフォームにあるコンボボックスにsheet2にある特定範囲

また、この特定範囲をデータのある範囲だけ（データが追加されれば自動でそれを取得する）に設定することは可能ですか？

回答No.1

tom04 · ベストアンサー

こんばんは！

＞sheet2にある特定範囲

が具体的にどの列か判らないので、
A2セルからA列最終行までとしてみました。

Private Sub UserForm_Initialize()
Dim endRow As Long
endRow = Worksheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row
ComboBox1.RowSource = "Sheet2!A2:A" & endRow
End Sub

こんな感じではどうでしょうか？m(_ _)m

お礼

ありがとうございますｍ(_ _)ｍ
sheet2からやっと参照できました！