Macro halverwege opnieuw starten

[ronald1986]

Mensen,

Ik heb een vraag over het opnieuw starten van een macro halverwege de code. Ik wil graag dat wanneer er aan een bepaalde voorwaarde wordt voldaan een voorgaand deel in de code herhaald moet worden. Ik zal het proberen hier onder uit te leggen in de code:

Sub test()
Sheet zichtbaar maken
[COLOR="#FF0000"]1[/COLOR]
Kopieren
Plakken

Als x = hoi dan -> begin opnieuw bij [COLOR="#FF0000"]1[/COLOR]
Anders -> ga verder met code...
End Sub

Ik hoop dat het duidelijk is. Weet iemand hoe ik dit kan bereiken?

Bvd!

 

[Niels28]

Je start wel steeds nieuwe vragen maar op je oude vragen reageren is te veel moeite?

een voorbeeldje

Sub test()
i = 1
Do
n = ActiveSheet.Cells(i, 3).Value
ActiveSheet.Cells(i, 1).Value = n & i
i = i + 1
Loop While n = "hoi"
End Sub

Niels

 

[ronald1986]

Hmmm.. volgens mij reageer ik toch vrijwel altijd wanneer ik een vraag gesteld heb, maar daarvoor dan mijn excuses.
Ik ga vanmiddag kijken of ik je code kan gebruiken, in ieder geval erg bedankt!

 

[Niels28]

Je reageert wel maar ik heb een aantal vragen van jouw beantwoord en terwijl ik op een reactie
zit te wachten omdat ik je een vraag terug stel, post je wel een nieuwe vraag maar reageert pas uren later
op de post uit je eerder bericht.

Niels

 

[ronald1986]

Dat klopt inderdaad, mijn excuses hiervoor.
Maar om terug te komen op mijn vraag, ik kom er nog niet helemaal uit.

Onderstaand de code waar ik het op toe wil passen:

Sheets("Blad1").Visible = True
Sheets("Blad1").Range("A1").Copy
Sheets("Blad1").Select
Range("C1").Select
ActiveSheet.Paste
Application.CutCopyMode = False

If Sheets("Blad1").Range("B1").Value = "Ja" Then

[COLOR="#FF0000"]'doe de kopieeractie opnieuw[/COLOR]

Else

[COLOR="#FF0000"]'doorgaan met het vervolg van de macro[/COLOR]

End If

 

[Niels28]

En wanneer verander B1 in nee?
Zie ik niet in je macro dus als hij op ja staat blijft hij oneindig doorgaan.

eerst opslaan!! , dit is een oneidige loop als B1 op ja staat. ctrl-break om er uit te komen

Sub test7()

Do
With Sheets("Blad1")
.Visible = True
.Range("A1").Copy .Range("C1")
End With
Loop While Sheets("Blad1").Range("B1") = "ja"

'doorgaan met het vervolg van de macro

End Sub

Niels

 

[ronald1986]

Ok, duidelijk, er staat nog meer code voor, maar begrijp ik het goed als ik zeg dat het stuk code tussen "Do" en "Loop While" geloopt wordt? Zoals ik zei, ik heb dus nog code er voor staan die niet geloopt moet worden.

 

[Niels28]

ja de code tussen do en loop wordt herhaald.


Niels

 

[ronald1986]

Ok, mooi, werkt perfect! Dank je wel, Niels!