|
横から失礼します
▼ポポ さん:
どこでどのようなエラーが発生しているのか
どのようにうまくいかないのか
が書かれていないので
少々、確認させてください
1.正しいシート名はどちら?
>ユーザーフォームのリストボックスで選択した科目と同じ名前のシート
>(開始画面.xlsのworksheets発注検収のrange("A1")に表示してある
>ファイル
Fn1 = Dir(パス & Workbooks("開始画面.xls").Worksheets("開始").Range("A1").Value & ".xls")
2. Fn1のファイルのオープンはいつ?
オープン済みが前提ですか?
3.どこからどこへコピー?
>ユーザーフォームのリストボックスで選択した科目と同じ名前のシート
>(開始画面.xlsのworksheets発注検収のrange("A1")に表示してある
>ファイルのworksheetです)Range("A1:I100")をコピーして
>違うファイル(開始画面.xls)のシートに貼り付け
Workbooks("Fn1").Worksheets("表示").Range("A1:I100") = Worksheets("発注検収").Range("A12:I112")
|
|