|
度々、お世話になります。
オープンされている、2つのブックの一方の1つのシートを、コピーしてもう一方のブックに追加するマクロをつくりましたが、うまく動作しません。
Sub シートのコピー()
Dim myBook As Workbook
Dim Bookname As String
Dim I As Long, j As Long
Dim Shname As Variant
Sheets("Menu").Select
For j = 4 To 10 Step 3
For I = 5 To 29 Step 2
If Cells(I, j).Value <> "" And Cells(I, j - 1).Value <> "" Then
Shname = Trim(Cells(I, j - 1).Value)
Exit For
End If
Next I
Next j
For Each myBook In Workbooks '開かれたBookのチェック
If myBook.Name <> ThisWorkbook.Name Then
Bookname = myBook.Name
Exit For
End If
Next
MsgBox (Bookname & " " & Shname)
MsgBoxでは、正常に見えます。
Sheets(Shname).Select
上記で、インデックスが有効範囲でない旨のエラー
Sheets(Shname).Copy before:=Workbooks(Bookname).Sheets(1)
End Sub
ご教示、ご指摘方よろしく、お願いします。
|
|