重新求助吧。怎么用VBA实现另一个表格的数据？

cxxyzjsxy

在发货安排表内的AH列体现出值为交货日期和SHEET表名称。
最新问题表内的AA列和轴反馈表的D列数据有相同项。


具体要求：
1、当轴反馈表的来料状态列内数据为：“已齐”时，返回最新问题表内值为OK

2、当轴反馈表的来料状态列内数据为：“”时，返回最新问题表内值为交货日期&SHEET表名称，此时返回的数据需要所有表的数据，既：“XX月XX日 博雅特、新智宇、煜阳”。当日期不一样时返回距离当前日期最近的。

cxxyzjsxy

可有大佬教一下啊。求求了

ykcbf1100

比上一个求助帖子表述清楚一些了。

猜一个，是这意思吗？

cxxyzjsxy

ykcbf1100 发表于 2023-3-14 14:48
比上一个求助帖子表述清楚一些了。

猜一个，是这意思吗？

麻烦问下。现在这个代码跑到For Each sht In wb.Sheets(fn)这里就断了。这个是合并吧？怎么到这里就断开了

cxxyzjsxy

ykcbf1100 发表于 2023-3-14 14:48
比上一个求助帖子表述清楚一些了。

猜一个，是这意思吗？

运行到这个
For Each sht In wb.Sheets(fn)
运行错误“9”
下标越界

zjlive

cxxyzjsxy 发表于 2023-3-15 08:15
运行到这个
For Each sht In wb.Sheets(fn)
运行错误“9”

sheet名不存在

cxxyzjsxy

zjlive 发表于 2023-3-15 08:30
sheet名不存在

这个要怎么办啊？

cxxyzjsxy

zjlive 发表于 2023-3-15 08:30
sheet名不存在

Sub ykcbf()   '//2023.3.14
    Dim arr, brr, st$, fn
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    fn = [{"博雅特","宝钦","新智宇","煜阳","三林","骏凯","德艺","阳灿","美博"}]
    Set d = CreateObject("Scripting.Dictionary")
    Set sh = ThisWorkbook.Sheets("发货安排表")
    p = ThisWorkbook.Path & "\"
    f = p & "\2 - 轴供应商交货明细跟踪表(36).xlsx"
    Set wb = Workbooks.Open(f, 0)
   
    For Each sht In wb.Sheets(fn)
   
运行到这一句就卡住了

zjlive

cxxyzjsxy 发表于 2023-3-15 09:13
Sub ykcbf()   '//2023.3.14
    Dim arr, brr, st$, fn
    Application.ScreenUpdating = False

Set sh = ThisWorkbook.Sheets("发货安排表")    发货安排表  是不是不存在。 改成你实际的名称就行了啊

cxxyzjsxy

zjlive 发表于 2023-3-15 15:44
Set sh = ThisWorkbook.Sheets("发货安排表")    发货安排表  是不是不存在。 改成你实际的名称就行了啊

有这个表格的。能麻烦看一下么？