Hey Molly,

In de veronderstelling dat ik voor de omzet werkelijk met alles rekening gehouden heb kan dat eerste deel inderdaad
afgerond worden. Het tweede deel (was maar een héél kleintje) heb ik inmiddels ook al afgerond.

Het derde deel daarentegen vrees ik toch wel dat dit een pak moeilijker zal worden...
Het is zeker haalbaar aangezien ik in het verleden een soortgelijk project tot een goed einde heb gebracht, alleen is
het nu net iets ingewikkelder qua extra gegevens die gecombineerd moeten worden

groetjes,
BlackDevil

Goedenamiddag allen,

In grote lijnen zijn alle onderdelen voor het project gecodeerd, nu is het enkel nog de afwerking mbt hoe en wanneer de sub's uitgevoerd moeten worden.
In teken van die afwerking heb ik dus een (complexe) vraag.

Ik heb dus 3 subroutines.
De eerste subroutine moet uitgevoerd worden adhv een bepaalde waarde in cel A1 van werkblad1.
De tweede subroutine moet uitgevoerd worden met het resultaat uit subroutine1.
De derde subroutine moet uitgevoerd worden met de gegevens uit subroutine2 die vermeld staan op werkblad2.

Nu is het zo dat dit meerdere malen moet uitgevoerd worden maar met niet altijd opeenvolgende waarden in cel A1 van werkblad1.
Het is eerder in groepjes van opeenvolgende waarden.
Om het in de codetaal van de loops te zeggen moeten deze subroutines uitgevoerd worden met volgende groepjes waarden :
1
8 To 15
64 To 127
512 To 1023
4096 To 8191

Omdat ik niet elke keer handmatig deze waarden telkens wil moeten invoeren zou ik hiervoor een (complexe) loop willen creëren zodat
de subroutines voor elk van bovenvermelde waarden achtereenvolgens wordt uitgevoerd.

Is dit haalbaar? Of kan ik beter gewoon voor elke groep een aparte loop opbouwen?

Alvast mijn oprechte dank voor het meedenken.


groetjes,
BlackDevil

Hey Molly,

Bedankt voor jouw voorbeeldje.
Ja, zelf had ik ook al iets in elkaar geprutst in de trant van :

Sub voorwaarden()
  bron = Cells(1, 1)
  Select Case bron
    Case 8
      einde = 15
    Case 64
      einde = 127
    Case 512
      einde = 1023
    Case 4096
      einde = 8191
  End Select
  For a = bron To einde
    Cells(1, 1) = a
    'start Subroutine1
    'start Subroutine2
    'start Subroutine3
  Next a
End Sub

Maar dan bedacht ik dat het nog makkelijker zou zijn als ik gewoon het hele 'loop'-proces in één keer kon laten uitvoeren vanaf die waarde '1'.
Het was natuurlijk maar een ideetje...

Maar ik denk wel dat als ik jouw voorbeeldje verder uitwerk dat ik er misschien wel kan komen :-).
Ik ga alvast al eens wat prutsen en puzzelen mbt jouw voorbeeldje en zal gelijk ook een degelijk en compleet testbestand maken met alle afgewerkte sub's om hier nog eens aan te hangen.

groetjes,
BlackDevil

Hallo BlackDevil,

Ik heb eerst en vooral toch willen doorgronden wat exact je bedoeling is, en dat is waarschijnlijk goed gelukt

(Zo maar een gedachte: je had dit ook kunnen doen zonder sub nr.2 en zonder html-werkblad, dus je textfile rechtstreeks schrijven met vba. Meteen mag je dat terug vergeten voor dit project, want het werkt en zou anders veel aanpassing vergen. Voor andere kwesties kan het idee eventueel wel nuttig zijn.)

Zoals het nu is ontworpen geef je dus nog zelf achtereenvolgens het commando om sub1, sub2 en sub3 uit te voeren, niet?
Mag dat dan niet gewoon één enkele sub worden? In theorie althans, want dan moet ook eea worden gewijzigd. Een 'main' sub die voor jou in volgorde die 3 subs aanroept zal dan eenvoudiger zijn.
Meer zelfs, ik heb dat al vlug gedaan + getest en goedgekeurd, nu enkel jij nog

Concreet: de subs achter de werkbladen zijn weg, module 1 heb ik laten staan omdat sub2 ongewijzigd is.
En in module 2 staat een main-procedure, samen met sub1 en sub3 omdat die beide een minimale wijziging moesten ondergaan (verwijzing naar het correcte werkblad).

Het sosa-nummer wordt in deze 'ontwikkelingsfase' nog manueel in A1 gezet. Alles wat volgens mij nog moet gebeuren is daar in 'main' een loop voor maken.
Maar bekijk het misschien al eens in deze vorm.

Groetjes,
Molly

Het was sterker dan mezelf, dus vooraleer met de kookpotten aan de slag te gaan nog vlug een testje gedaan en 200 html-files gecreëerd in 0,82 sec.

Hey Molly,

Alvast eerst hartelijk dank voor de tijdsinvestering die je doet om mij te helpen 

als antwoord op je bericht #37 : Dat ziet er in orde uit, dus getest en goedgekeurd :-) 

als antwoord op je bericht #38 :
Ik had ondertussen al een kleine aanpassing gedaan aan mijn code mbt die voorloop-nullen in die zin dat ik aan meerdere
nummers die voorloop-nullen moest toekennen. Ik was namelijk vergeten dat ik in mijn html-code ook nog op bepaalde
plaatsen code voor een hyperlink moest toevoegen en dan had ik voor de creatie van de bestandsnamen in die hyperlinks
dus ook die nrs met voorloop-nullen nodig.

Ik had dus van dit :
    sosanr = .Cells(3, 1)
    If Len(sosanr) < 7 Then
      nullen = 7 - Len(sosanr)
      pre = ""
      For n = 1 To nullen
        pre = pre & "0"
      Next n
      voor = pre & sosanr
    End If

dit gemaakt :
sosanr = .Cells(3, 1)
    nr = sosanr * 8
    ar_nrs(1) = sosanr
    For s = 2 To 9
      ar_nrs(s) = nr
      nr = nr + 1
    Next s
    For h = LBound(ar_nrs) To UBound(ar_nrs)
      k = ar_nrs(h)
      If Len(k) < 7 Then
        nullen = 7 - Len(k)
        pre = ""
        For n = 1 To nullen
          pre = pre & "0"
        Next n
        ar_nrs(h) = pre & k
      End If
    Next h

met jouw 'inkorting' heb ik dit dan nu gereduceerd tot dit :
sosanr = .Cells(3, 1)
    nr = sosanr * 8
    ar_nrs(1) = Format(sosanr, "0000000")
    For s = 2 To 9
      ar_nrs(s) = Format(nr, "0000000")
      nr = nr + 1
    Next s

en voor de aanmaak van de strings met vermelding van de hyperlinks heb ik dan nu dit :
  'Arrays maken voor gen4
    g4 = 10
    For a = 1 To 8
      ar_gen4nmn(a) = "<td><a href=""proband_sosa-" & ar_nrs(a + 1) & ".html"">" & .Cells(g4, 2) & "</a></td>"       'array namen
      ar_gen4vnm(a) = "<td>" & .Cells(g4, 3) & "</td>"                                      'array xtra voornamen
      ar_gen4g(a) = "<td>" & "°" & .Cells(g4, 4) & " " & .Cells(g4, 5) & "</td>"            'array geboorte
      ar_gen4o(a) = "<td>" & "&dagger;" & .Cells(g4, 8) & " " & .Cells(g4, 9) & "</td>"     'array overlijden
      g4 = g4 + 1
    Next a

en dit :
  'gegevens inlezen voor proband
      If .Cells(3, 2) > 7 Then
        gen1nm1 = "<td><a href=""proband_sosa-" & ar_nrs(1) & ".html"">" & .Cells(3, 2) & "</a></td>"
      Else
        gen1nm1 = "<td>" & .Cells(3, 2) & "</td>"                                             'naam
      End If


Nu is het nog enkel die 'loop' opbouwen om alle pagina's in één keer te laten aanmaken.
Doch moet er ook nog een mogelijkheid blijven om één specifiek kwartierblad aan te maken ingeval er in dat kwartierblad gegevens zouden wijzigen en dit dus aangepast moet worden.

ik ga alvast ook al wat verder puzzelen :-)

groetjes,
BlackDevil

Hey BlackDevil,

Je hebt wéér gelijk: dat kan anders 
Omwille van je 2 verschillende subs die de 'sub-subs' aanroepen zouden we wat meer moeten veranderen om mijn eerdere suggestie toe te passen.
Maar je kan binnen een loop de aansturende variabele ook naar wens aanpassen (hier vooral niet met > maar met = want anders kom je in een eindeloze loop terecht).
De 'compleet'-sub zou je daarom zo kunnen schrijven (dan mag al de rest blijven):
Sub compleet()
For w = 1 To 8191
    If w = 2 Then w = 8
    If w = 16 Then w = 64
    If w = 128 Then w = 512
    If w = 1024 Then w = 4096
    lijst_kwrtrbld (w)
    kwrtrbld_html
    opslaan
Next w
End Sub

Succes ermee!

@ SoftAid,

Was het eten ook maar zo snel klaar 
Misschien daar eens een code voor schrijven ?

Ik zet het meteen op mijn to do-lijstje

Groetjes,
Molly