[Excel VBA] Zoekopdracht stopt na eerste hit?

[Da_maniaC]

Ik heb een stukje VBA geschreven (na wat Google-Fu) dat een aantal handeling uitvoert voor iedere maal dat op de actieve sheet een waarde (voorbeeld: AAA) wordt gevonden.

Echter, telkens wanneer de eerste hit is behandeld stopt de code. In plaats van dat iedere occurrence van de waarde die wordt gevonden in de sheet wordt behandeld.

Kan iemand mij misschien uitleggen wat ik verkeerd doe?

code:

    Dim Found As Range
    Dim FoundRegel As Long
    Dim FirstFoundAddr As String
    Dim ActiveFoundCell As Range
    Set SearchRange = Range("A:AZ")
      
    With SearchRange
    Set Found = Cells.Find(What:="AAA", LookIn:=xlFormulas, LookAt:=xlPart)
    If Not Found Is Nothing Then
    FirstFoundAddr = Found.Address
    FoundRegel = Found.Row
    End If
        Do Until Found Is Nothing
            If PlanWb.Sheets(CurSheet).Range("P" & FoundRegel).Value = 1 Then
            PlanWb.Sheets(CurSheet).Range("R" & FoundRegel).Value = 10
            PlanWb.Sheets(CurSheet).Range("S" & FoundRegel).Value = "Checked"
            PlanWb.Sheets(CurSheet).Range("Z" & FoundRegel).Value = "0:15"
            End If
        Set Found = .FindNext(After:=Found)
            If Found.Address = FirstFoundAddr Then Exit Do
        Loop
    End With

[m-vw]

De code stopt niet, maar de waarde Foundregel wordt nooit aangepast.
Denk dat als je regels 10 en 11 ook nog eens tussen 20 en 21 zet je probleem opgelost is.

[Reptile209]

@Da_maniaC: Ga eens met de step-debugger (F8) door de code lopen, dan zie je op welk punt hij er mee stopt en waarschijnlijk ook wel waarom. Dat helpt al een hoop in het troubleshooten.

Ik weet niet of het uitmaakt, maar in het FindNext-voorbeeld van Microsoft wordt niet Cells.Find() gebruikt, maar alleen .Find().

m-vw schreef op woensdag 1 mei 2024 @ 14:45:
De code stopt niet, maar de waarde Foundregel wordt nooit aangepast.
Denk dat als je regels 10 en 11 ook nog eens tussen 20 en 21 zet je probleem opgelost is.

FoundRegel wordt hier ook verder niet gebruikt, dus dat hindert niet . FirstFoundAddr moet juist niet worden aangepast, daarmee zie je dat je 'rond' bent met zoeken en dat je kan stoppen (regel 20).

[ Voor 14% gewijzigd door Reptile209 op 01-05-2024 14:53 ]

[Da_maniaC]

m-vw schreef op woensdag 1 mei 2024 @ 14:45:
De code stopt niet, maar de waarde Foundregel wordt nooit aangepast.
Denk dat als je regels 10 en 11 ook nog eens tussen 20 en 21 zet je probleem opgelost is.

Je had toch gelijk, Regel 11 moest inderdaad meegenomen worden in mijn Loop. Dan werkt het.
FirstFoundAddr moet niet mee in de Loop, dan hebben we geen check meer dat de hele file 1 maal is doorgelopen.

code:

    Dim Found As Range
    Dim FoundRegel As Long
    Dim FirstFoundAddr As String
    Dim ActiveFoundCell As Range
    Set SearchRange = Range("A:AZ")
      
    With SearchRange
    Set Found = Cells.Find(What:="AAA", LookIn:=xlFormulas, LookAt:=xlPart)
    If Not Found Is Nothing Then
    FirstFoundAddr = Found.Address

    End If
        Do Until Found Is Nothing
            FoundRegel = Found.Row
            If PlanWb.Sheets(CurSheet).Range("P" & FoundRegel).Value = 1 Then
            PlanWb.Sheets(CurSheet).Range("R" & FoundRegel).Value = 10
            PlanWb.Sheets(CurSheet).Range("S" & FoundRegel).Value = "Checked"
            PlanWb.Sheets(CurSheet).Range("Z" & FoundRegel).Value = "0:15"
            End If
        Set Found = .FindNext(After:=Found)
            If Found.Address = FirstFoundAddr Then Exit Do
        Loop
    End With

.

Reptile209 schreef op woensdag 1 mei 2024 @ 14:50:
@Da_maniaC: Ga eens met de step-debugger (F8) door de code lopen, dan zie je op welk punt hij er mee stopt en waarschijnlijk ook wel waarom. Dat helpt al een hoop in het troubleshooten.

Ik hoopte al dat het iets kleins was, maar dit zal ik de volgende keer eerst eens doen ja.
Ik gebruik ook veel Debug.Print voor het Immediate Window zodat ik na/tijdens uitvoer kan zien wat er met sommige variabelen gebeurd.

[ Voor 15% gewijzigd door Da_maniaC op 01-05-2024 15:10 ]

[dix-neuf]

Ik geef vaak de voorkeur aan een for-nextlus.
Als het te doorzoeken bereik bv. A1:AZ600 is, dan kan dat zo:

code:

Set Searchrange = range("A1:AZ600")
With Searchrange
For x = 1 To 600
For y = 1 To 52
If .Cells(x, y).Value = "AAA" Then
If .Cells(x, 16).Value = 1 Then
.Cells(x, 18).Value = 10
.Cells(x, 19).Value = "Checked"
.Cells(x, 26).Value = "0:15"
End If
End If
Next y, x
End With

[Da_maniaC]

dix-neuf schreef op woensdag 1 mei 2024 @ 15:59:
Ik geef vaak de voorkeur aan een for-nextlus.
Als het te doorzoeken bereik bv. A1:AZ600 is, dan kan dat zo:

code:

Set Searchrange = range("A1:AZ600")
With Searchrange
For x = 1 To 600
For y = 1 To 52
If .Cells(x, y).Value = "AAA" Then
If .Cells(x, 16).Value = 1 Then
.Cells(x, 18).Value = 10
.Cells(x, 19).Value = "Checked"
.Cells(x, 26).Value = "0:15"
End If
End If
Next y, x
End With

Werkt prima. Eerlijkgezegd wil ik graag methodes gebruiken die ook lekker makkelijk leesbaar zijn (dat vind ik soms belangrijker dan 2-4 lijnen code besparen).

[dix-neuf]

Da_maniaC schreef op woensdag 1 mei 2024 @ 16:11:
Eerlijkgezegd wil ik graag methodes gebruiken die ook lekker makkelijk leesbaar zijn (dat vind ik soms belangrijker dan 2-4 lijnen code besparen).

En vind je die for-nextlus niet makkelijk leesbaar?
Het is bijna gewoon Nederlands.

[m-vw]

dix-neuf schreef op woensdag 1 mei 2024 @ 15:59:
Ik geef vaak de voorkeur aan een for-nextlus.
Als het te doorzoeken bereik bv. A1:AZ600 is, dan kan dat zo:

code:

Set Searchrange = range("A1:AZ600")
With Searchrange
For x = 1 To 600
For y = 1 To 52
If .Cells(x, y).Value = "AAA" Then
If .Cells(x, 16).Value = 1 Then
.Cells(x, 18).Value = 10
.Cells(x, 19).Value = "Checked"
.Cells(x, 26).Value = "0:15"
End If
End If
Next y, x
End With

Maar hier bekijk je letterlijk iedere cel. Nu zal de Find-unctie ongetwijfeld achter de schermen hetzelfde doen, maar waarom daar dan zelf code voor schrijven.

Ik heb het niet uitgetest, maar ik vermoed dat de ingebouwde functie ook sneller is. Al zal je dat bij kleine data sets niet merken.

[SinergyX]

dix-neuf schreef op woensdag 1 mei 2024 @ 15:59:
Ik geef vaak de voorkeur aan een for-nextlus.
Als het te doorzoeken bereik bv. A1:AZ600 is, dan kan dat zo:

code:

Set Searchrange = range("A1:AZ600")
With Searchrange
For x = 1 To 600
For y = 1 To 52
If .Cells(x, y).Value = "AAA" Then
If .Cells(x, 16).Value = 1 Then
.Cells(x, 18).Value = 10
.Cells(x, 19).Value = "Checked"
.Cells(x, 26).Value = "0:15"
End If
End If
Next y, x
End With

Maar dit script zoekt in elke cell dus of deze AAA bevat, ik weet de 'achtergrond' werking niet van de Excel .find functie, maar die lijkt me efficienter te werk gaan dan letterlijk elke cell af te gaan.