vba - 类成员函数在简单范围函数上抛出错误

Question

所以我有一个 VBA 函数不断抛出错误“应用程序定义的或对象定义的错误”，我不知道为什么。该功能旨在将单元格 block 从一张纸复制到另一张纸。我在其他领域使用过这样的代码没有问题，所以不明白为什么这不起作用。

    'update on main screen
    Public Sub mainImageUpdate(roomstring)
        set yoffset = Worksheets("Source").Range("A:A").Find(roomstring, , xlValues, xlWhole).Row
        Worksheets("Source").Range("B1:AB10").Offset(yoffset - 1, 0).Copy _
            Destination:=Worksheets("Main").Range("O5")
    End Sub

Answer 1

Public Sub mainImageUpdate(roomstring)
Dim Y as range
set y  = Worksheets("Source").Range("A:A").Find(roomstring, , xlValues, xlWhole)  'look for it
if not y is nothing then  'did you find it?
    Worksheets("Source").Range("B10:AB10").Offset(y.row - 1, 0).Copy _
        Destination:=Worksheets("Main").Range("O5")
else
      'do something?
end if
End Sub