Zoek opdracht herhalen (loop)

Status
Niet open voor verdere reacties.

MEradus

Gebruiker
Lid geworden
25 nov 2012
Berichten
287
Hallo,

Ik zoek een manier om onderstaande code te halen totdat er geen "einde" meer voorkomt in mijn bestand.
Helaas kom ik er zelf niet uit.

Wie zou mij kunnen helpen?

Code:
Cells.Find(What:="Einde", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
        ActiveCell.FormulaR1C1 = "Tot"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "Tijd"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "Incl Pauze"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "Excl Pauze"
    ActiveCell.Offset(0, 2).Select
    ActiveCell.FormulaR1C1 = "Van"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "Tot"
    ActiveCell.Offset(0, 2).Select
    ActiveCell.FormulaR1C1 = "Van"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "Tot"
 
Druk F1 van toetsenbord en zet in het zoekvak 'range.findnext'.
Daar staat een mooi voorbeeld voor je klaar.
 
Helaas kom ik er niet uit.
Hij blijft in 1 rij zoeken ipv het hele bestand. En hij blijft maar doorgaan.

Het is de bedoeling dat hij "einde" vind dan een aantal dingen aanpast en dan weer gaat zoeken totdat "einde" niet meer voorkomt.
 
Niet voor het gehele bestand, maar voor één blad.
Code:
Sub hsv()
Dim c As Range
Set c = Cells.Find("Einde")
 If Not c Is Nothing Then
    Do
      c.Resize(, 10).Value = Array("Tot", "Tijd", "Incl. Pauze", "Excl. Pauze", "", "Van", "Tot", "", "Van", "Tot")
      Set c = Cells.FindNext(c)
    Loop While Not c Is Nothing
End If
End Sub
 
Harry,

Dank je wel!!
Dit is exact wat ik zocht.

Even voor mijn beeldvorming, "c.Resize"(, 10) is de array die hij aanpast. En daarna gaat hij verder met zoeken?
Volgens mij heb ik hem door!
Nogmaals bedankt!
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan