[已解决]查找新物料的问题,请帮忙解决

午夜洗衣机

我有一个库存表
sheet"刷数分总表"是从ERP里导出的数据,I:J列用了VLOOUP来对应"型号分类"里的型号


已经实现的功能:
当I列"是否有新产品"的值=0,假如I2=0,就将D2:E2复制到Sheet"型号分类"最后一行有数据的下一行,删除重复行项目,提示"请维护新物料"

遇到的问题:
现在是当I列没有新物料,没有值=0,就会提示"变量未设置"     

能否帮忙改成:如果I列没有值=0,不会报错,最好还能提示"没有新物料要维护"?谢谢!!

代码:

1. Sub 复制新物料()
   
2. Dim j, k As Integer
   
3. Dim rg As Range
   
4. Dim i As Long
   
5. k = Sheet13.Range("A65536").End(xlUp).Row + 1
   
6. 
   
7. Application.ScreenUpdating = False
   
8. Sheets("刷数分总表").Activate
   
9. 
   
10. For j = 2 To Sheet12.[B65536].End(xlUp).Row
    
11. 
    
12. If Range("I" & j) = 0 Then
    
13. If rg Is Nothing Then
    
14. Set rg = Range("D" & j & ":E" & j)
    
15. Else
    
16. Set rg = Union(rg, Range("D" & j & ":E" & j))
    
17. End If
    
18. End If
    
19. Next j
    
20. 
    
21. With Sheets("型号分类")
    
22. rg.copy .Range("A" & k)
    
23. End With
    
24. 
    
25. Sheet13.Activate
    
26. For i = Range("A1048576").End(xlUp).Row To 3 Step -1
    
27. If WorksheetFunction.CountIf(Range("A2:A" & i), Cells(i, 1)) > 1 Then
    
28. Cells(i, 1).EntireRow.Delete
    
29. End If
    
30. Next
    
31. 
    
32. Application.ScreenUpdating = True
    
33. MsgBox "亲,请维护新物料!"
    
34. 
    
35. End Sub
    

复制代码

最佳答案

月排行榜 / 总排行榜

adders

2013-6-30 12:42

把这一句加在1楼代码中的第20行.

1. If rg Is Nothing Then MsgBox "没有新物料要维护!": Exit Sub
   

复制代码

也就是加在以下这段代码之前:

With Sheets("型号分类")
     rg.copy .Range("A" & k)
End With

跳转到最佳答案楼层

午夜洗衣机

求助呀~~~

adders

把这一句加在1楼代码中的第20行.

1. If rg Is Nothing Then MsgBox "没有新物料要维护!": Exit Sub
   

复制代码

也就是加在以下这段代码之前:

With Sheets("型号分类")
     rg.copy .Range("A" & k)
End With

午夜洗衣机

adders 发表于 2013-6-30 12:42
把这一句加在1楼代码中的第20行.也就是加在以下这段代码之前:

With Sheets("型号分类")

谢谢,我明天试试

午夜洗衣机

adders 发表于 2013-6-30 12:42
把这一句加在1楼代码中的第20行.也就是加在以下这段代码之前:

With Sheets("型号分类")

可以了!真开心!谢谢