| |
はじめまして。いつも参考にさせて頂いています。
部品表のEXCELファイルが8とモデル表のEXCELファイルが10〜15あります。
部品表の100程度あるパーツから必要なものに"1"をたててオートフィルタで指定のモデル表ファイルに貼り付けるマクロを作りました。モデル名はあるセルの値を代入してあります。
私の作ったマクロはモデル表を一緒に開いていることが条件なのですが、もし開いていなければ”モデル名（変数）を開きますか？"のメッセージのあと指定したモデル表を開いて貼り付けるマクロに修正をしたいのですが、うまくいきません。
はじめから開いて貼り付けるマクロにしない理由は部品表が8あり、同じ処理をすべての部品表で行うため、後者だといちいちモデル表を閉じる必要があるからです。下が作ったマクロです。
ご指導よろしくお願いします。
Sub 集計ファイルに出力()
Dim 列 As Long
Dim モデル名 As String
Dim mybtn As Integer
Dim 行 As Long
行 = Range("K65536").End(xlUp).Row
列 = ActiveCell.Column
モデル名 = ActiveCell.Value
mybtn = MsgBox(("モデル " & モデル名 & " を出力します"), 1)
If mybtn = 2 Then
Exit Sub
Else
End If
Application.ScreenUpdating = False
Rows("6:6").Select
Selection.AutoFilter
Selection.AutoFilter Field:=列, Criteria1:="<>"
Rows("2:400").Select
Range("A8", "K" & 行).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Windows(モデル名 & ".xls").Activate
Worksheets("AAA").Select
Range("A8").Select
ActiveSheet.PasteSpecial
Selection.AutoFilter
Windows("AAA.xls").Activate
Application.CutCopyMode = False
Application.ScreenUpdating = True
Selection.AutoFilter
Windows(モデル名 & ".xls").Activate
Selection.AutoFilter
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
