|
▼じゅんじゅん さん:
>▼ポポ さん:
>>お世話になります。初心者ポポといいます。
>>
>>ユーザーフォームのリストボックスで選択した科目と同じ名前のシート(開始画面.xlsのworksheets発注検収のrange("A1")に表示してあるファイルのworksheetです)Range("A1:I100")をコピーして違うファイル(開始画面.xls)のシートに貼り付けたいのですが、うまくいきません。どこが違うか教えていただけないでしょうか?
>>
>>
>>'科目シート表示
>>
>>Private Sub OK_Click()
>>Dim 表示 As String
>>Dim Fn1, Fn2, パス 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") = Worksheets("発注検収").Range("A12:I112")
>>Else
>> MsgBox ("科目が選択されていません")
>>
>>End If
>>
>>End Sub
>
>
>> Workbooks("Fn1")
> Workbooks(Fn1)
>変数を""でくくってはダメです。
>
>あと、
>>うまくいきません。
>どううまくいかないのか?
>各ブックと各シートの関係も明確にされては?
じゅんじゅんさんお返答ありがとうございます。
Workbooks("Fn1").Worksheets("表示").Range("A1:I100") = Worksheets("発注検収").Range("A12:I112")
がインデックスが有効範囲内にありませんと出てしまいます。
worksheets("表示")の表示の部分にリストボックスで選択した値を入れたいのですが、どうやったらいいのかわからないんです。
表示 = Me.lstKAMOKU.Textではだめなのでしょうか?
(lstKAMOKUはListBox1です)
色々調べて試してみたんですが、エラーになってしまって。
|
|