|
お世話になっております。
下記のマクロの中に、
1.A4から順にナンバーを振りたい。
2.注文一覧表とユーザー一覧表のデータが同じであればメッセージを表示させたいのですが、
どぅすればいいでしょうか?
どなたかご教授頂ければ、ありがたいです。
Sub test()
Dim FileName As String
Dim WB As Workbook
Dim MYPATH As String
Worksheets("ユーザー一覧表").Range("B5:AB65536").Clear
MYPATH = "\\gggg\ggg\出荷管理\一覧表\"
strFileName = MYPATH & strFileName & "注文一覧表" & ".xls"
If Dir(strFileName) <> "" Then
Set WB = Workbooks.Open(strFileName)
WB.ActiveSheet.Range("B5:G35565,K5:AE35565").Copy _
ThisWorkbook.Worksheets("ユーザー一覧表").Range("B5")
Windows("注文一覧表.xls").Activate
ActiveWindow.Close
Else
MsgBox strFileName & "がありません"
End If
|
|