Ошибка Cells.find 91

Question

У меня проблемы с этим кодом. Я пытался понять это, что не так с этим кодом, но не может найти решение

Sub RDB_Worksheet_To_PDF() 
     Dim FileName As String 
     Dim PONumber As String 
     Dim FolderPath As String 

PONumber = Sheets("Purchase Order with Sales Tax").Cells(8, 6).Value 

    If ActiveWindow.SelectedSheets.Count > 1 Then 
     MsgBox "There is more then one sheet selected," & vbNewLine & _ 
       "be aware that every selected sheet will be published" 
    End If 
'Call the function with the correct arguments 
    FileName = RDB_Create_PDF(ActiveSheet, FolderPath & PONumber, True, True) 

    If FileName <> FolderPath & PONumber Then 
     'Ok, you find the PDF where you saved it 
     'You can call the mail macro here if you want 
     MsgBox "Sweet! The PO has been saved as a PDF." & vbNewLine & _ 
       "Click on the PO Number in the PO Number WorkSheet to view." 
    Else 
     MsgBox "Not possible to create the PDF, possible reasons:" & vbNewLine & _ 
       "Microsoft Add-in is not installed" & vbNewLine & _ 
       "There is no PO number selected" & vbNewLine & _ 
       "The path to Save the file in is not correct" & vbNewLine & _ 
       "You didn't want to overwrite the existing PDF if it exist" 
    End If 

    Sheets("PO Number").Select 
    Range("A1").Select 

Я получаю сообщение об ошибке 91 в этой части

**Cells.Find(What:=PONumber, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ 
     :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ 
     False, SearchFormat:=False).Activate** 

это потому, что я не использовал .activate или Я не использовал set =? Пожалуйста, дайте мне знать, что мне нужно сделать.

Приветствия

Answer 1

В основном вы пытаетесь найти клетку и активировать его в то же самое время, что подскажет вам об ошибке упоминается, если ничего не найдено. Сначала вы можете попробовать его найти:

set smvar = Cells.Find(What:=PONumber, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ 
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ 
    False, SearchFormat:=False) 
if not smvar is Nothing then smvar.activate