Goeiemorgen allemaal,

Hoe ik een gewone macro moet aanroepen in een andere macro heb ik reeds ervaring mee maar in het huidige geval moeten er in beide richtingen variabelen ‘meegenomen’ worden.

Dus met de waarde uit een variabele op de werkbladmacro moet een bepaalde procedure uitgevoerd worden in de modulemacro en vervolgens moet dan met het resultaat (uit die modulemacro) op de werkbladmacro verdere code uitgevoerd worden.

Ik heb een héél simpel voorbeeldbestandje gemaakt met in elke macro maar enkele lijntjes random code (om een idee te geven) maar in het echte bestand zijn er tientallen lijnen code alsook meerdere modulemacro’s die aangeroepen moeten worden doorheen de werkbladmacro.

Alvast mijn oprechte dank op voorhand.

P.S. : de werkbladmacro zal uiteindelijk uitgevoerd (moeten) worden telkens de waarde in cel A1 wijzigt.

groetjes,
BlackDevil

Dag BlackDevil,

Voor een eenvoudige situatie als in je voorbeeld zou ik er een functie voor gebruiken.
Tot de essentie herleid kan dat er zo uitzien (de functie zet je dan ook in een module!):
Sub werkbladmacro()
datum = begin(Cells(1, 1))
End Sub

Function begin(jaar)
begin = DateSerial(jaar, 5, 14) + 13
End Function

Op gelijkaardige wijze (parameters meegeven) kan je ook enkel met Sub's werken.

Mvg,
Molly

Hallo,

Wat voor mij 'gelijkaardig' is (uit vorig bericht), is dat daarom niet voor anderen. Wegens straks voor langere tijd afwezig toch maar even voorbeeldje met Sub, volledig geënt op jouw bijlage:
Sub werkbladmacro()
jaar = Cells(1, 1)
'voer modulemacro uit
modulemacro jaar, datum2
'verdere code hier
End Sub

Sub modulemacro(jaar, datum2)
datum = DateSerial(jaar, 5, 14)
datum2 = datum + 13
End Sub


ok, hier ben ik dus al 

Voor de situatie in het voorbeeldbestand werkt dit perfect (had ook niets anders verwacht) maar zoals ik al zei
zijn in het werkelijke bestand de macro's veel uitgebreider dus ik zit al onmiddellijk in de problemen  ...

Elke procedure in elke aparte modulemacro dient uitgevoerd te worden op basis van diezelfde variabele "jaar" uit de
werkbladmacro (dus de waarde uit "Cells(1, 1)" ), die overigens in de werkbladmacro zelf ook nog gebruikt moet worden.
Maar binnen elke procedure zijn er meerdere resultaten die verkregen moeten worden en elk resultaat dient afzonderlijk
dan verder gebruikt te kunnen worden in de werkbladmacro.

(blijkbaar had ik mijn simpel voorbeeldbestandje én mijn uitleg deze keer té simpel gemaakt  waarvoor mijn excuses)

groetjes,
BlackDevil

P.S.: zie net bij het verzenden dat er nog reacties werden geplaatst terwijl ik mijn bericht aan het schrijven was...
hierop zal ik straks verder ingaan aangezien ik nu met de dochter naar de dokter moet vertrekken

Hallokes allemaal,

Om toch iets meer te kunnen verduidelijken wat ik precies wil bereiken ga ik uit mijn origineel bestand toch één (van vele)
modulemacro hier vermelden. Om het effect van meerdere modulemacro's te verkrijgen heb ik deze wel eventjes opgesplitst in twee aparte modulemacro's.

Bij deze de aangepaste werkbladmacro :
Sub werkbladmacro()

jaar = Cells(1, 1)
nieuwjaar = DateSerial(jaar, 1, 1)
oudjaar = DateSerial(jaar, 12, 31)

''voer modulemacro uit

aantal_jan = DateValue(Format(dat1 + 13, "dd-mm-yyyy")) - nieuwjaar + 1
aantal_dec = oudjaar - DateValue(Format(dat2, "dd-mm-yyyy")) + 1

totaal = aantal_jan + aantal_dec

End Sub

En dit is dan de opgesplitste modulemacro (normaal 1 macro) :
Sub kerstvakjan()

''kerstvakantie januari huidig jaar berekenen
Select Case Weekday(DateSerial(jaar - 1, 12, 25), vbMonday)
Case Is < 6
   dat1 = DateSerial(jaar - 1, 12, 25) - Weekday(DateSerial(jaar - 1, 12, 25), vbMonday) + 1
Case Else
   dat1 = DateSerial(jaar - 1, 12, 25) + 7 - Weekday(DateSerial(jaar - 1, 12, 25), vbTuesday)
End Select

End Sub

Sub kerstvakdec()

''kerstvakantie december huidig jaar berekenen
Select Case Weekday(DateSerial(jaar, 12, 25), vbMonday)
Case Is < 6
   dat2 = DateSerial(jaar, 12, 25) - Weekday(DateSerial(jaar, 12, 25), vbMonday) + 1
Case Else
   dat2 = DateSerial(jaar, 12, 25) + 7 - Weekday(DateSerial(jaar, 12, 25), vbTuesday)
End Select

End Sub


Ondertussen ga ik dat "global"-aspect eens verder bestuderen.

groetjes,
BlackDevil

Mooizo! Alle variabelen die je in een andere macro oproept dus

Vullen van een array met datum range


Sub jec()
 Dim ar() As Variant, fdate As Long, ldate As Long, i As Long, x As Long
 fdate = Date
 ldate = Date + 15
 
 For i = fdate To ldate
    ReDim Preserve ar(x)
    ar(x) = Format(i, "mm-dd-yyyy")
    x = x + 1
 Next
 
End Sub

@Veerj,

Bedankt! 

In bijlage hang ik eventjes een versie aan van het bestand met ingekorte macro's.
In de werkbladmacro heb ik als 'comment' de variabelen vermeld die als basis gebruikt moeten worden om de array te vullen.

groetjes,
BlackDevil