.FindNext faute de après un .Trouver la fonction (excel vba)

Je suis en train d'utiliser .Find et .FindNext à la recherche par le biais d'une seule colonne de données. J'ai d'abord besoin de trouver la première cellule contenant la valeur "Totale". La cellule que j'essaie de faire, c'est la troisième cellule APRÈS le "Total" de la cellule pour contenir la valeur "Tech". Il est connu que les Cellules(1, 1) ne contiennent pas de "Technologie" ou "Total".

Dim FirstTotal As Range
Dim SearchRng As Range
Dim ResultRng As Range
Set SearchRng = Range("A:A")

Set FirstTotal = SearchRng.Find(What:="Total", After:=Cells(1, 1), SearchDirection:=xlNext)
Set ResultRng = SearchRng.Find(What:="Tech", After:=FirstTotal, SearchDirection:=xlNext)
SearchRng.FindNext().Activate
SearchRng.FindNext().Activate

Environ 50% du temps, je les ai d'exécuter ce code, j'ai été interrompu par une erreur d'incompatibilité de type sur la ligne commençant par Set ResultRng =. Le reste du temps, le code a couru tout le chemin à travers, mais les résultats semblent comme si les deux dernières lignes de code ont été complètement ignoré.

Je soupçonne que la réponse ici est assez élémentaire, mais je suis assez nouveau à excel vba et pas de ressources que j'ai trouvé jusqu'à présent ont répondu à cette question. S'il vous plaît aider!

Gamme.FindNext semble finalement brisé. Il n'a jamais travaillé pour moi, même en utilisant le même code que Microsoft exemple.

OriginalL'auteur Evan Patrick McCann | 2012-06-11

1

Si le "Total" n'est pas trouvé, alors FirstTotal sera Rien, ce qui va entraîner une Incompatibilité de Type lorsque vous essayez d'utiliser FirstTotal pour "l'Après" l'argumentation dans la ResultRange à Trouver (2ème ligne). Cela permettra d'éviter cette erreur:
```
Set FirstTotal = SearchRng.Find(What:="Total", After:=Cells(1, 1), SearchDirection:=xlNext)
If Not FirstTotal is Nothing Then
   Set ResultRng = SearchRng.Find(What:="Tech", After:=FirstTotal, SearchDirection:=xlNext)
End If
```
De manière générale, tout dépendant de la Constate le besoin d'être traité de cette façon.

Clairement, d'une Autre indication est obligatoire ici, mais je ne sais pas ce que c'est.

Selon certains debug notifications je l'ai jeté dans, FirstTotal est correctement réglée sur 50% du temps, et le reste du temps est vide. Il n'y a pas d'autres .Trouver ou .FindNext appels avant cette dans le code. Pouvez-vous penser à une raison de ce qui pourrait se passer?
Nous savons que signifie "Total" n'est pas trouvé. Cela signifie que SearchRange ne contient pas "Totale". J'avais regarder pour voir ce que l'adresse de SearchRange est quand "Total" n'est pas trouvé.

OriginalL'auteur Doug Glancy

Serait-ce que de l'aide?

Sujet: .Trouver et .FindNext Dans Excel VBA

Lien: http://www.siddharthrout.com/2011/07/14/find-and-findnext-in-excel-vba/

Extrait du lien:

Sub Sample()
    Dim oRange As Range, aCell As Range, bCell As Range
    Dim ws As Worksheet
    Dim ExitLoop As Boolean
    Dim SearchString As String, FoundAt As String
    On Error GoTo Err
    Set ws = Worksheets("Sheet3")
    Set oRange = ws.Columns(1)

    SearchString = "2"
    Set aCell = oRange.Find(What:=SearchString, LookIn:=xlValues, _
                LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                MatchCase:=False, SearchFormat:=False)
    If Not aCell Is Nothing Then
        Set bCell = aCell
        FoundAt = aCell.Address
        Do While ExitLoop = False
            Set aCell = oRange.FindNext(After:=aCell)

            If Not aCell Is Nothing Then
                If aCell.Address = bCell.Address Then Exit Do
                FoundAt = FoundAt & ", " & aCell.Address
            Else
                ExitLoop = True
            End If
        Loop
    Else
        MsgBox SearchString & " not Found"
    End If
    MsgBox "The Search String has been found at these locations: " & FoundAt
    Exit Sub
Err:
    MsgBox Err.Description
End Sub

OriginalL'auteur Siddharth Rout

Vous devez vous connecter pour publier un commentaire.