Hoe maak ik een loop? Help hierbij de NOOB!

[H4rml355]

Beste VBA specialisten,

Ik kan in een programma macro's opnemen. Het komt vaak voor dat ik in dit programma veel dezelfde handelingen moet doen. Kan iemand mij helpen hoe ik de marco kan laten herhalen. Nu moet ik soms 100 keer klikken om steeds opnieuw die macro uit te voeren.

Ik wil bijvoorbeeld in kunnen stellen dit maal deze macro 100 keer uitvoeren en een andere keer 55 keer.

Al vast bedankt voor de medewerking.
Bekijk bijlage haha1.txt

 

[edmoor]

Je moet dus ergens vandaan halen hoe vaak die macro moet worden herhaald.
Daar moet je wat voor zien te verzinnen.
Je macro ziet er dan als volgt uit:

Sub Macro1()
    Dim i As Integer
    For i = 1 To 100
        'Jouw Macro Code
        Application.StatusBar = "Herhaald: " & i
    Next
End Sub

 

[lebegge]

Een alternatief:

Sub Macro1()
    Dim x As Integer
    Dim y As Integer 
    y = inputbox("Hoeveel keer??")
    For x = 1 To y
        'Jouw Macro Code :)
        Application.StatusBar = "Herhaald: " & i & ". Van de " &  y & " keer."
    Next
End Sub

 

[H4rml355]

Lukt me niet?

Ik plak jullie macro erin en hij geeft vervolgens een foutmelding. Kan één van jullie misschien voor mij onderstaand bestand met jullie macro aanpassen? En het bestand opnieuw posten. Dan zie ik hoe de structuur in elkaar zit en kan ik het voortaan zelf.

Alsvast erg bedankt.

Bekijk bijlage testloop.txt

 

[edmoor]

Het zou erg handig zijn als mensen die zeggen een foutmelding te krijgen ook eens een keer erbij vertellen wat die melding dan is.

 

[H4rml355]

Ik ben een noob!

Sry kun je mijn TXT gewoon editen en reposten?

 

[JoZ1]

Dan moeten we wel weten wat de foutmelding is.

Wat is de foutmelding? Maak desnoods een screenshot.

 

[edmoor]

Ik ben een noob!

Maar je kun toch wel lezen en dan hier laten weten wat die melding is?

 

[H4rml355]

Hierbij...

Fout regel 6. einde van de instructie wordt verwacht.
Dim x As Integer


Script:

[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=
[PCOMM SCRIPT SOURCE]
Sub Macro1()
Dim x As Integer
Dim y As Integer
y = inputbox("5")
For x = 1 To y
'OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)

REM This line calls the macro subroutine
subSub1_

sub subSub1_()
autECLSession.autECLOIA.WaitForAppAvailable

autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "2"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[enter]"

autECLSession.autECLPS.WaitForAttrib 6,18,"00","3c",3,10000

autECLSession.autECLPS.Wait 7219

autECLSession.autECLOIA.WaitForAppAvailable

autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[pf4]"

autECLSession.autECLPS.WaitForAttrib 5,29,"00","3c",3,10000

autECLSession.autECLPS.Wait 3234

autECLSession.autECLOIA.WaitForAppAvailable

autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[pf3]"

autECLSession.autECLPS.WaitForAttrib 17,15,"00","3c",3,10000

autECLSession.autECLPS.WaitForCursor 17,16,10000

autECLSession.autECLOIA.WaitForAppAvailable

autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "4"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[enter]"

autECLSession.autECLPS.WaitForAttrib 6,18,"00","3c",3,10000

autECLSession.autECLPS.Wait 2265

autECLSession.autECLOIA.WaitForAppAvailable

autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[pf3]"
Application.StatusBar = "Herhaald: " & i & ". Van de " & y & " keer."
Next
End Sub

 

[edmoor]

Het is VBScript dus dan mag je die dim statements weg laten, tenzij je die Option Explicit aan zet en dan gebruik je:
Dim x, y
Hier hoef je in VBScript geen type aan mee te geven.

 

[H4rml355]

Kun voor mij het script bewerken en reposten zodat hij wel werkt want het lukt me maar niet?

 

[edmoor]

Ik kan het niet testen dus garantie tot aan de deur

[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)

REM This line calls the macro subroutine
subSub1_

sub subSub1_()
    Dim x, y

    y = inputbox("Hoeveel keer? ")

    For x = 1 To y   
   	With autECLSession
	    '.autECLOIA.WaitForAppAvailable

	    .autECLOIA.WaitForInputReady
	    .autECLPS.SendKeys "3"
	    .autECLOIA.WaitForInputReady
	    .autECLPS.SendKeys "[enter]"
   
	    .autECLPS.WaitForAttrib 20,17,"00","3c",3,10000

	    .autECLPS.WaitForCursor 20,18,10000

	    .autECLOIA.WaitForAppAvailable
   
	    .autECLOIA.WaitForInputReady
	    .autECLPS.SendKeys "6"
	    .autECLOIA.WaitForInputReady
	    .autECLPS.SendKeys "[enter]"
   
	    .autECLPS.WaitForAttrib 6,18,"00","3c",3,10000

	    .autECLPS.Wait 2031 

	    .autECLOIA.WaitForAppAvailable
   
	    .autECLOIA.WaitForInputReady
	    .autECLPS.SendKeys "[pf3]"
   
	    .autECLPS.WaitForAttrib 20,17,"00","3c",3,10000

	    .autECLPS.Wait 1172 

	    .autECLOIA.WaitForAppAvailable
   
	    .autECLOIA.WaitForInputReady
	    .autECLPS.SendKeys "[pf3]"
	End With
   Next
End Sub

 

[H4rml355]

Je bent geniaal!

Top man,

Hij loopt als een zonnetje. Nu ben ik al een heel eind op weg.

Ik had de code zelf proberen uit te bouwen.

Erg bedankt!

Nu kan deze topic wel gesloten worden.

 

[JoZ1]

Dan kun je de vraag op 'Opgelost' zetten .

 

[edmoor]

Graag gedaan.
Ik heb de code in dezelfde moeite door maar even wat netter gemaakt qua indeling