findnext 跨表单条件查找值得问题

凝霜雪域

如图，我有两个工作表，一个是流水，一个是开单，要做成在开动工作表，根据单据编号，提取流水中对应符合条件的值

我自己写了个代码，但是如果将开单的界面，也放到流水里面，在一个工作表内，运行，是没有问题的，刚好解决，可是跨工作表后，就出问题了
早同一工作表运行情况【当然查找值什么的，会做对应的调整】：代码原理什么都一样，

我用的代码：，请大神帮修改下代码，如何跨表可以提取，不出错，因为我在学习，希望能在这个代码基础上，修改，还用findnext

1. Sub 跨表高效提取()
   
2. Dim rng As Range, rng1 As Range, rng2 As Range, N$
   
3. Set rng = Worksheets("流水").Range("H3:H1000").Find([B3].Value)
   
4. N = rng.Address
   
5. Do
   
6. Set rng = Worksheets("流水").Range("H3:H1000").FindNext(rng)
   
7. Set rng1 = [L10000].End(xlUp)(2, 1).Resize(1, 8)
   
8. Set rng2 = rng.Offset(0, -7).Resize(1, 8)
   
9. rng2.Copy rng1
   
10. Loop Until rng.Address = N
    
11. End Sub

复制代码

出错截图：

jy03342543

Set rng = Worksheets("流水").Range("H3:H1000").Find([B3].Value)
当find在你的区域里没找到B3单元格的值就会报错了
可以用IF语句判断是否为Nothing 然后满足条件继续执行下面的代码

凝霜雪域

jy03342543 发表于 2018-7-26 12:37
Set rng = Worksheets("流水").Range("H3:H1000").Find(.Value)
当find在你的区域里没找到B3单元格的值就 ...

谢谢回答，实际上是有符合条件的呢

jy03342543

凝霜雪域 发表于 2018-7-26 12:41
谢谢回答，实际上是有符合条件的呢

你看一B3是不是对应"开单"sheet表，而要找的是"流水"sheet表的内容 如果是的话那你在[B3]前面要加工作表名称。否则就没有找到你要的内容就会报错。