エクセルVBA(ユーザーフォーム)について質問です

質問

たとえばユーザーフォームを表示させSheet1のA列最終行へ入力させることは出来ましたが 同時にSheet2のA列の最終行にも同じく反映させたい

回答No.1

keithin · ベストアンサー

private sub commandbutton1_click()
　worksheets("Sheet1").range("A65536").end(xlup).offset(1) = textbox1.value
　worksheets("Sheet2").range("A65536").end(xlup).offset(1) = textbox1.value
end sub

といった具合に，
＞Sheet1のA列最終行へ入力させることは出来ました

それで出来た動作をそのまんま繰り返し，シート２に対しても行ってください。

回答No.2

imogasi

アクチブシートということで、データの最終行を指定しているCeklls(　・・)やRange（・・）の前には、質問者はシートを特定するコードを入れてないでしょうが、データ代入先のセルを示すとき、それぞれに、Worksheets("Sheet1").Cells（・・）やWorksheets("Sheet2").Cells（・・）のようにシートの特定のコードを増やせば仕舞いです。
実は、ブック、シート、セルの順に（包含関係に従い）階層的にコードを書くのが標準です。