对象变量或与块变量未设置91 VBA

Question

我正在应的数据传送到名为“皮斯托亚”不同的片的宏并且是这样的码：

Sub SetCounter(ByVal counter As Double, ByVal product As String) 
Dim ws As Worksheet 
On Error Resume Next 
Sheets("pistoia").Activate 
Set ws = ActiveWorkbook.Sheets("pistoia") 
On Error GoTo 0 
    If ws Is Nothing Then 
     MsgBox "pistoia sheet not found" 
    Else 
     If ws.Name = ActiveWorkbook.ActiveSheet.Name Then 
      Dim index_destRow As Integer, index_destColumn As Integer, search_product As Range 
      Rows(2).Find(What:="Nome commerciale", LookAt:=xlWhole, LookIn:=xlValues).Offset(2).Select 
     Else 
      MsgBox "pistoia sheet found but is inactive" 
     End If 
    End If 
End Sub 

误差在提高该行：“行（2）。找到（什么：=”Nome commerciale“，LookAt：= xlWhole，LookIn：= xlValues）.Offset（2）。选择”，我认为错误是由于激活新的工作表，因为在前面的宏中，“在起始页上”我在导致错误的行中执行相同的操作。有什么建议么？

Answer 1

这表明我的价值没有被发现，因此它试图选择一些不存在的东西。例如。设置范围变量来检查找到的值。通过查找，还可以指定一些其他参数，以防它们不符合您的预期。

Sub SetCounter(ByVal counter As Double, ByVal product As String) 

    Dim ws As Worksheet, index_destRow As Integer, index_destColumn As Integer, search_product As Range 
    Dim rFind As Range 

    On Error Resume Next 
    Sheets("pistoia").Activate 
    Set ws = ActiveWorkbook.Sheets("pistoia") 
    On Error GoTo 0 

    If ws Is Nothing Then 
     MsgBox "pistoia sheet not found" 
    Else 
     If ws.Name = ActiveWorkbook.ActiveSheet.Name Then 
      Set rFind = ws.Rows(2).Find(What:="Nome commerciale", LookAt:=xlWhole, LookIn:=xlValues, MatchCase:=False, SearchFormat:=False) 
      If Not rFind Is Nothing Then 
       rFind.Offset(2).Select 
      Else 
       msgbox "Value not found" 
      End If 
     Else 
      MsgBox "pistoia sheet found but is inactive" 
     End If 
    End If 

    End Sub