VBA en trouver la fonction d'erreur à l'exécution 91

Ma question est concernant l'erreur d'exécution 91 en VBA pour excel. J'ai fait quelques recherches, en vain. Mon code est ci-dessous. J'ai noté que la section de l'origine de l'erreur. Pourquoi est-ce qui se passe, et comment puis-je réparer et d'avancer?

Sub RemoveFooterRows(theFile)
    Dim found As Range
    Dim aggregateRow

    ''Error is from section below
    found = isItRow = Workbooks(theFile).Worksheets(1).Columns(1).Find _
        ("Summary", Range("A1"), xlValues, xlPart, xlByRows, xlNext, False, , False)
    ''Error is from section above

    MsgBox ("val is " & found.Row)

End Sub

InformationsquelleAutor Brian | 2012-02-08

4
```
Sub RemoveFooterRows(theFile)

    Dim found As Range

    Set found = Workbooks(theFile).Worksheets(1).Columns(1).Find _
        ("Summary", Range("A1"), xlValues, xlPart, xlByRows, xlNext, False, , False)
    MsgBox ("val is " & found.Row)

End Sub
```
Vous avez besoin du "Jeu" mot-clé à affecter la valeur.

Également pas sûr de ce que vous voulez " =isItRow =" à faire, mais vous devez le faire dans deux états au lieu d'essayer de les empiler comme ça.

Aussi aggregateRow n'est pas utilisé et n'est pas associé à un type.
- Aussi vaut la peine d'ajouter une case à If Not found Is nothing Then... dans le cas où la valeur n'a pas été trouvé.
- Ok, ça fonctionne, je ne savais pas que j'avais le double affectation. Mais, comment puis-je obtenir la ligne, lorsque j'ajoute un .Ligne à la fin j'obtiens la même erreur. Comment puis-je attribuer la ligne de découvert à une variable?
- Ajouter .ligne à quoi? Il est déjà dans la ligne MsgBox et renvoie très bien pour moi.
- Bon appel sur la vérification pour rien Tim.
- l'Suggéré si le bloc est ignorée, ce qui implique que la valeur n'a pas été trouvé, mais je sais qu'il est là, dans la première colonne. Ce qui a mal tourné?
InformationsquelleAutor Jesse
0

Vous utilisez SET de trouver une cellule et le mettre dans un objet. Mais vous pouvez laisser l'ENSEMBLE si vous venez de quel la Ligne. C'est la façon dont je voudrais écrire ce test mesure:
```
Dim Rw As Long

On Error Resume Next
Rw = Workbooks(theFile).Worksheets(1).Columns(1).Find _
    ("Summary", LookIn:=xlValues, LookAt:=xlPart).Row

If Rw > 0 Then
    MsgBox "The row is " & Rw
Else
    MsgBox "Not found"
End If
```
- Quelle est la différence entre votre chèque et "Si elle ne trouve Pas is Nothing then'
- À l'aide de votre code et commentée on Error Resume next, j'obtiens la même erreur. J'ai utilisé le trouver, comme je l'avais écrit. Je sais que la valeur est dans la colonne A, pourquoi l'erreur existant?
- On Error Resume Next est là parce que si .Find ne trouve rien, alors .Row génère une erreur.
- Je ne suis pas un grand fan de l'utilisation de la gestion d'Erreur lorsqu'un simple objet de la plage pourrait être testé pour Pas Rien. Plus Find peut l'erreur pour d'autres raisons qu'un introuvables match, c'est à dire de commencer la recherche dans un emplacement non valide, à la recherche dans une plage non valide etc. Mieux cerner ces questions que passer
InformationsquelleAutor Jerry Beaucaire

Sub search()

    Sheets("MyShelf").Activate

    Dim dd() As String

    aa = Cells(Rows.Count, 1).End(xlUp).Row

    ReDim dd(aa)

    i = 1

    Range(Cells(2, 1), Cells(aa, 1)).Select

    Set bb = Selection

    For Each cc In bb

        dd(i) = cc.Value

        i = i + 1

    Next

    Sheets(50).Activate

    ff = 0

        For i = 1 To aa - 1

        ee = Range("D:D").Find(What:=dd(i), LookAt:=xlPart, LookIn:=xlValues, SearchOrder:=xlByColumns)

        On Error Resume Next

        If Len(ee) > 1 Then

        ff = ff + 1

        End If

    Next

    MsgBox ff


End Sub

Code-seules réponses sont découragés. Veuillez cliquer sur modifier et ajouter quelques mots résumant la manière dont votre code traite de la question, ou peut-être expliquer comment votre réponse diffère de la précédente réponse/réponses. Merci

InformationsquelleAutor aileen

Vous devez vous connecter pour publier un commentaire.