ik loop weer tegen een klein probleempje aan...

achter mijn laatste opdrachtknop op "UF_start" staat volgende code.
Private Sub CommandButton6_Click()
  Unload Me
  Sheets("REK-ovrzchtn").Activate
End Sub

Op het werkblad "REK-ovrzchtn" heb ik een opdrachtknop staan voor de verwerkingscode die in een module staat...
Deze module-macro is opgebouwd in volgende structuur :
Sub rekbijwerken()
  With Sheets("TA-done")
    rijen = .Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To rijen

    'hier een deel inlees-code

      With Sheets("REK-ovrzchtn")
        d = .Cells(Rows.Count, 1).End(xlUp).Row + 1

        'hier een deel wegschrijf-code

      End With
    next i
  End With
End Sub

Nu, elke keer ik de procedure  "Sub rekbijwerken()" opstart krijg ik de foutmelding "het subscript valt buiten het bereik".
Als ik het werkblad "REK-ovrzchtn" heb geactiveerd via mijn "UF_start" dan krijg ik die foutmelding in dit lijntje :
With Sheets("TA-done")
Als ik het werkblad "REK-ovrzchtn" handmatig heb geselecteerd dan krijg ik de foutmelding in dit lijntje :
d = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Ik weet dat het ergens te maken heeft met de combinatie van waaruit de procedure "Sub rekbijwerken()" wordt aangeroepen
en de geactiveerde en/of geselecteerde sheet(s) maar ik weet niet meer exact hoe welke combinatie moet opgevangen worden
in de code om de betreffende foutmelding niet meer te krijgen...

Kan iemand mij op de goede weg helpen? Alvast dank.

groetjes,
Bieke

Goedemorgen allemaal,

Naar aanleiding van de opbouw van het volgende onderdeel heb ik een aantal vraagjes waarvan de antwoorden bepalend zullen zijn in de aanmaak/ontwerp van mijn “DASHBOARD-STATS”-bestand.

Het bestand uit mijn reactie #211 is één van meerdere losstaande bestanden welke ik ter overzicht (samenvatting) wens te koppelen aan mijn “DASHBOARD-STATS”-bestand.

In dit “DASHBOARD-STATS”-bestand zal ik enerzijds het werkblad “dashboard” hebben waarop ik enerzijds de status en/of standen, van de individuele bestanden, kan zien die telkens wordt bijgewerkt als het “DASHBOARD-STATS”-bestand geopend wordt en/of als de individuele bestanden worden aangepast en waarop ik anderzijds met diverse opdrachtknoppen de individuele bestanden kan gaan bijwerken/raadplegen.
Anderzijds zal ik het werkblad “stats” hebben waarin ik adhv cirkel-diagrammen en/of dergelijke allerhande bijkomende statistieken kan raadplegen (welke dus ook steeds bijgewerkt worden zodra het “DASHBOARD-STATS”-bestand geopend wordt en/of zodra de individuele bestanden bijgewerkt worden).

Mijn eerste vraag is nu de volgende :

Is het mogelijk om met VBA, bij het openen van het “DASHBOARD-STATS”-bestand, de individuele bestanden op de achtergrond (dus onzichtbaar voor de eindgebruiker) te laten inlezen voor de update in het “DASHBOARD-STATS”-bestand én dat de individuele bestanden elk apart pas effectief geopend (zichtbaar voor de eindgebruiker) worden nadat de eindgebruiker via één der opdrachtknoppen heeft aangegeven wijzigingen te willen aanbrengen in dat specifieke individuele bestand?

Ik hoop dat mijn vraag een beetje duidelijk is want ik heb nog geen voorbeeld-bestand van dat “DASHBOARD-STATS”-bestand aangezien ik het antwoord op mijn vraag nodig heb om te bepalen hoe ik het “DASHBOARD-STATS”-bestand ga opmaken/indelen.

Alvast bedankt op voorhand en als iets niet duidelijk (genoeg) is dan lees ik het graag.

Groetjes,
Bieke

Hey Molly,

 
thx 

Ik vermoedde wel dat het kon maar nu weet ik met zekerheid in welke richting ik kan gaan met mijn "DASHBOARD-STATS"-bestand 

groetjes,
Bieke

Hey Bieke,

Omdat grafieken ontwerpen zonder een begin van gegevensstructuur eerder lastig is heb ik me, bij wijze van ontspanning, even over je andere vraag gebogen.
Hierbij 2 bestandjes die je als voorbeeld/inspiratie al eens met elkaar kan laten samenwerken.
In de laatste bijlage heb ik daar maar een werkblad 'voorbeeld' voor toegevoegd. Het is natuurlijk uiterst summier gehouden, maar je zal daar zeker kunnen uit afleiden dat het zo uitbreidbaar is als je zelf wil.

Groetjes,
Molly

@Molly,

Ik ben er in geslaagd om reeds de rekeningstanden op het werkblad "dashboard" automatisch te laten bijwerken via het inlezen
van het bestand "TA's". Dat doet exact wat het moet doen en daarvoor heb ik volgende codeblok opgebouwd :
Private Sub Workbook_Open()
  Sheets("dashboard").Select
  Dim laatste As Long, zicht As Variant, sprek74 As Variant, sprek59 As Variant

  With GetObject(ThisWorkbook.Path & "\BlackDevil_HHBH_Deel1_TAs_v.2.0b.xlsm")
    laatste = .Sheets("REK-ovrzchtn").Cells(Rows.Count, 1).End(xlUp).Row
    zicht = .Sheets("REK-ovrzchtn").Cells(laatste, 7)
    sprek74 = .Sheets("REK-ovrzchtn").Cells(laatste, 10)
    sprek59 = .Sheets("REK-ovrzchtn").Cells(laatste, 13)
    .Close 0
  End With
 
  With Sheets("dashboard")
    .Cells(4, 6) = zicht
    .Cells(4, 8) = sprek74
    .Cells(4, 10) = sprek59
  End With
End Sub
Ik heb wel in het "TA's"-bestand mijn code moeten dé-activeren die aldaar in mijn workbook.open-event stond.


Maar met volgende code achter het werkblad "dashboard" om het "TA's"-bestand effectief te openen vanaf mijn knop op het
werkblad "dashboard" doet het om één of andere reden niet.
Sub ta_openen()

  Workbooks.Open ThisWorkbook.Path & "\BlackDevil_HHBH_Deel1_TAs_v.2.0b.xlsm"

End Sub
Het staat wel als 'geopend' vermeld in de VB Editor maar het bestand zelf is nergens te bespeuren...

vermoedelijk is het maar een kleinigheidje maar vind het wel raar dat het in jouw voorbeeldbestandjes uit jouw reactie #216
wél werkt en dan in mijn bestanden (aangepast aan mijn bestanden) niet lijkt te werken 


groetjes,
Bieke

Hey Bieke,

Vandaag echt GEEN tijd, sorry.
Hopelijk 'passeren' hier ook lezers/vraagstellers uit andere draadjes die op een teken van leven van mij zitten te wachten, even geduld a.u.b.

Maar het probleem in dít draadje lijkt mij té dringend, vandaar: ik heb wel een idee wat er scheelt (uitleg volgt later).
Normaal gezien zou je het zo moeten kunnen oplossen: open dat bestand, en voer in een module deze code uit:
Sub molly_rescue_code()
ThisWorkbook.Windows(1).Visible = True
End Sub
Groetjes,
Molly

Hey Bieke,

"Een ongeluk komt nooit alleen" zegt men dan, maar ik ben niet bijgelovig en kom dus niet verder dan "een jammerlijke en toevallige samenloop van omstandigheden"
Check maar:
Gisteren een redelijk uitgelopen werkoverleg (ruim 10 uur), enkel onderbroken door een gezamenlijke lunch, incl. verdere brainstormmomenten, dus geen momentje voor mezelf. En daarna thuis nog wat zaken moeten afhandelen die geen uitstel verdroegen.
En net dan kwam jij redelijk vast te zitten…
Bovendien had dat niet gehoeven. Eén van de vorige dagen had ik met een bestand van jou wat zitten prutsen, en uitgerekend dat bestand had ik zonder er verder bij stil te staan, gebruikt om jou te tonen hoe je 'gemakkelijk' aan je vorige vragen kon voldoen.
In dat bestand was het Workbook_Open-event verdwenen, en net dat heeft bij jou een conflict veroorzaakt met GetObject. Zoals je vermoedde moest de reden dus daar worden gezocht, al zou dat, als alles goed gaat, geen probleem mogen geven. Ik denk (lees: ben er nogal zeker van) dat 'gegevens_ophalen' niet volledig was uitgevoerd omdat je in Workbook_Open een foutmelding kreeg, en op die manier was 'TA.xlsm' onzichtbaar gebleven, m.a.w. als GetObject.Close ook wordt uitgevoerd zit je wel goed.
GetObject is namelijk de meest voor de hand liggende en snelste methode om gegevens op te halen uit een 'gesloten' werkboek. Als je daar niet gerust in bent zou je daar ook Workbooks.Open kunnen gebruiken, maar een manier die weinig aanpassing vraagt kan ook zijn:
Private Sub Workbook_Open()
On Error Resume Next
Sheets("START").Select
UF_start.Show
On Error GoTo 0
End Sub
Ik ben geen grote fan van het omzeilen van errors maar hier kunnen we daar toch nuttig gebruik van maken en zullen beide macro’s doen wat je wil.

Groetjes,
Molly

Hey Bieke,

Aangenomen dat ik nog eens goed wakker ben zouden je beide nieuwe vragen niet te veel problemen mogen geven

als ik via de knop op het 'dashboard'-werkblad mijn "TA's"-bestand open en bijwerk zou ik graag, bij het opslaan en/of handmatig sluiten van het "TA's"-bestand, opnieuw het werkblad 'dashboard' willen laten updaten

Zoals ik verwacht had: al één knop minder
Ik neem aan dat je TA nog enkel zal openen vanuit je dashboard? Dat impliceert dat dit altijd zal open staan als je TA sluit, alvast een zorg minder voor de nieuwe code. Dus dat bijwerken kan je regelen met een Workbook_BeforeClose-event (onder ThisWorkbook in het TA-bestand dus).

het fenomeen dat als ik deze bestanden nu open ik deze telkens moet gaan maximaliseren

Ook weer met één regeltje code in beide bestanden, in TA gezien de recente ervaringen tussen beide error-instructies
Application.WindowState = xlMaximized
Groetjes,
Molly