检查find的值旁边的单元格是否为空VBA

我对VBA完全陌生。 我可能每年使用一次，当我search这个和其他论坛的代码。 为了我的卑微的需求，这通常是完美的。 不幸的是，由于我对代码缺乏真正的理解，在这种情况下，我无法看到我做错了什么。 所以希望有人可以帮助。

我有一个时间表，我想将这些值复制到数据表中。 我有这个工作。 但重要的是用户在表格中填写正确的周数。 为了检查他们是否已经完成了这些工作，我写了一段代码，当weeknumber没有被填充时应该返回一个消息框。 当我简单地使用对单个单元格的引用时，代码就起作用了。 但由于周数没有填写在同一个单元格的所有forms，我希望macrossearch文本“Weeknumber：”，然后检查旁边的单元格是否为空。

Sub Weeknumber() dim cl as Range Worksheets("Invul_Tabel").Activate With Worksheets("Invul_Tabel").Cells Set cl = .Find("Weeknummer:", After:=.Range("A1"), LookIn:=xlValues) If IsEmpty(Range(cl).Offset(0, 1).Value) = True Then MsgBox "Geen weeknummer ingevuld" Exit Sub End If End With End Sub 

代码给出了“If IsEmpty”行的错误（错误1004）。可能很简单，但我似乎无法弄清楚！

Answer 1

你的clvariables已经是一个范围。

更改

 If IsEmpty(Range(cl).Offset(0, 1).Value) = True Then 

至

 If IsEmpty(cl.Offset(0, 1).Value) Then