|
★ハトさんこんにちは
>
>1.正しいシート名はどちら?
>★全部表示してみました。シート名は .AddItem に表示してある事務用品などで す。
Workbooks(Fn1).Worksheets(表示).Range("A1:I100") = Workbooks("開始画 面").Worksheets("発注検収").Range("A12:I112")この部分がインデックスが有 効範囲内にありませんと出てしまいます。
Private Sub OK_Click()
Dim 表示 As String
Dim Fn1 As String
Dim パス As String
表示 = Me.lstKAMOKU.Text
If lstKAMOKU <> "" Then
パス = ActiveWorkbook.Path & "\保存\"
Fn1 = Dir(パス & Workbooks("開始画面.xls").Worksheets("開始").Range ("A1").Value & ".xls")
Workbooks(Fn1).Worksheets(表示).Range("A1:I100") = Workbooks("開始画 面").Worksheets("発注検収").Range("A12:I112")
Else
MsgBox ("科目が選択されていません")
End If
End Sub
Private Sub UserForm_Initialize()
With lstKAMOKU
.AddItem "事務用品"
.AddItem "旅費交通費"
.AddItem "修繕費"
End With
lstKAMOKU.ListIndex = -1
End Sub
>2. Fn1のファイルのオープンはいつ?
> オープン済みが前提ですか?
★ Fn1のファイルオープンは起動と同時に開くように設定していますので、オープ ン済みです。
>
>3.どこからどこへコピー?
>>ユーザーフォームのリストボックスで選択した科目と同じ名前のシート
>>(開始画面.xlsのworksheets発注検収のrange("A1")に表示してある
>>ファイルのworksheetです)Range("A1:I100")をコピーして
>>違うファイル(開始画面.xls)のシートに貼り付け
>
> Workbooks("Fn1").Worksheets("表示").Range("A1:I100") = Worksheets("発注検収").Range("A12:I112")
★ 07SIMO.xlsから開始画面.xlsのWorksheets("発注検収")へコピーしたいので す。
わかりにくい説明ばかりで申し訳ありませんでした。よろしくお願いします。
|
|