[已解决]（求助）跨表自动调用数据问题

sdwffw

Sub DY()
    On Error GoTo 10
    Set X = Range("B5:B10").Find("序号")
    If Not X Is Nothing Then W = X.Row - 1
    If Application.Intersect(ActiveCell, Range("B5:B" & W)) Is Nothing Or ActiveCell.Count > 1 Then End
    Set wksh = Application.Workbooks("实地核查观察员派遣通知书.xls").Sheets("Sheet1")
    wksh.[a4] = ActiveCell.Value
    wksh.[e6] = ActiveCell.Value
    End
10  MsgBox "请检查【实地核查观察员派遣通知书.xls】和源文件是否都已打开！"
End Sub
代码放在那个表中？怎样执行？

zjdh

1. 运行加载宏 “ 跨表调用数据.xla”
2. 打开相关文件
3. 看动画

sdwffw

研究明白了，谢谢老师。

byhdch

看看，学习学习......

2013-子遇

不错!