Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: geautomatiseerd sjabloon voor budget  (gelezen 55166 keer)

0 leden en 1 gast bekijken dit topic.

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: geautomatiseerd sjabloon voor budget
« Reactie #210 Gepost op: 25 november 2023, 11:47:07 »
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
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: geautomatiseerd sjabloon voor budget
« Reactie #211 Gepost op: 25 november 2023, 14:14:58 »
***UPDATE***

foutmelding opgelost!  :thumbsup:

groetjes,
Bieke


EDIT :
In bijlage mijn recentste versie "2.0" en daarmee is in principe "Deel1 : TA's" klaar (onder voorbehoud van eventuele kleine bugjes en/of schoonheidsfoutjes).
Nu ga ik starten met "Deel2 : Dashboard&Stats" waarbij ik nog hulp zal nodig hebben en dan vooral voor het 'stats'-gedeelte heel wat hulp zal kunnen gebruiken. ;D

groetjes,
Bieke
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: geautomatiseerd sjabloon voor budget
« Reactie #212 Gepost op: 27 november 2023, 06:19:54 »
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
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: geautomatiseerd sjabloon voor budget
« Reactie #213 Gepost op: 27 november 2023, 13:18:26 »
Hey Bieke,

Citaat
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
Ja.
Citaat
é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
Ja.
:D :D :D (je ziet het, méér kan ik daar nog niet over zeggen 0:-))

Groetjes,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: geautomatiseerd sjabloon voor budget
« Reactie #214 Gepost op: 27 november 2023, 14:09:58 »
Hey Molly,

 :D :D
thx  ;)

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

groetjes,
Bieke
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: geautomatiseerd sjabloon voor budget
« Reactie #215 Gepost op: 27 november 2023, 15:47:23 »
***update***

In bijlage een eerste versie van mijn “DASHBOARD-STATS”-bestand. Hierin is nog maar enkel het nodige voorzien mbt het “TA’s’-bestand dat ik in mijn reactie #211 had geplaatst.
Alle individuele bestanden zullen sowieso in dezelfde map komen te staan als mijn hoofdbestand (bijlage).

In het bijgevoegde bestand heb ik op werkblad “dashboard” al enkele cellen voorzien voor bepaalde waarden uit het “TA’s”-bestand alsook een knop om het “TA’s”-bestand te openen indien erin gewerkt moet worden.

Op het werkblad “uitleg” heb ik al wat proberen uit te leggen welke statistieken ik graag zou hebben op het werkblad “stats” mbt het “TA’s”-bestand. Op het werkblad “hulp” heb ik al een overzichtje met categorieën gemaakt als ‘hulp’ bij één der stats-overzichten.

Aangezien ik in de laatste +20 jaar in excel enkel nog maar heb gewerkt met tabellen, formules, basis-grafieken en VBA heb ik dus totaal geen ervaring met cirkel-diagrammen, draaitabellen, ed en weet ik dus ook niet wat de beste optie gaat zijn voor mijn gewenste statistieken.

Ook voor de interactie (zichtbaar en onzichtbaar) met de andere bestanden tast ik momenteel wat in het duister…

Dus elke hulp/tip/aanzet/suggestie is welkom.

Alvast dank op voorhand.

Groetjes,
Bieke
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: geautomatiseerd sjabloon voor budget
« Reactie #216 Gepost op: 27 november 2023, 16:57:43 »
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
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: geautomatiseerd sjabloon voor budget
« Reactie #217 Gepost op: 27 november 2023, 19:18:43 »
Hey Molly,

Ontzettend bedankt voor de aanzet.. :thumbsup:

Hiermee kan ik reeds aan de slag gaan en dan zal ik ook in mijn "TA's"-voorbeeldbestandje wat fictieve gegevens invullen om dan
ook op het gedeelte van de statistieken verder te kunnen ingaan..

groetjes,
Bieke
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: geautomatiseerd sjabloon voor budget
« Reactie #218 Gepost op: 27 november 2023, 21:07:27 »
@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
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: geautomatiseerd sjabloon voor budget
« Reactie #219 Gepost op: 28 november 2023, 17:14:52 »
***UPDATE***

Ik ben dus al sinds gisterenavond aan het uitzoeken wat het probleem zou kunnen zijn dat ik aanhaalde in mijn vorig bericht #218.
Na talloze uren het internet afzoeken en allerhande aanpassingen in mijn code uit te proberen stond ik een half uur geleden nog
geen stap verder en besloot ik eventjes dat probleem aan de kant te leggen en mij verder te focussen op de rest van het project.
Ik sloot dan mijn 'dashboard'-bestand (en daarmee ook excel) volledig af en dubbelklik in verkenner op mijn "TA's"-bestand om
hieraan te kunnen verder werken.

Excel start netjes op maar tot mijn grote verbazing is mijn "TA's"-bestand nergens te bespeuren  ???  ???  ???  :help:
Maar als ik dan de VB Editor open dan staat daar bij projecten wel netjes mijn bestand vermeld :S

Ik heb totaal geen idee wat hier ineens aan de hand is dus hopelijk weet iemand hier op het forum wat het probleem kan zijn?

groetjes,
Bieke
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: geautomatiseerd sjabloon voor budget
« Reactie #220 Gepost op: 28 november 2023, 19:05:04 »
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 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
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: geautomatiseerd sjabloon voor budget
« Reactie #221 Gepost op: 28 november 2023, 19:20:07 »
Hey Molly,

bedankt voor het lijntje code...

En ik denk ook dat ik min of meer de globale oorzaak ken...
Ik had namelijk al ergens een vermoeden dat het met de 'visibility' te maken had en dit mogelijks
ten gevolge van dat 'onzichtbaar' ophalen van de update-gegevens uit dat bestand.
Maar had dus geen idee hoe ik dit kon testen of herstellen.

met jouw aangereikte 'rescue' ben ik dus al gered om verder te kunnen werken in mijn bestand  :thumbsup:
en heb ik een idee om hetzelfde probleem in de toekomst te voorkomen  ;).



groetjes,
Bieke
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: geautomatiseerd sjabloon voor budget
« Reactie #222 Gepost op: 29 november 2023, 13:13:58 »
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" :D
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
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: geautomatiseerd sjabloon voor budget
« Reactie #223 Gepost op: 29 november 2023, 13:55:11 »
Hey Molly,

"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" :D
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…
geen probleem hoor, zulke dingen gebeuren nu eenmaal  ;)

Jouw "rescue"-codeblokje heeft me verder geholpen waarna ik bij het openen van het "TA's"-bestand via de opdrachtknop eindelijk mijn bestand te zien kreeg en ik ook via handmatig openen het bestand te zien kreeg..

Citaat
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.
De 'getobject' macro deed sowieso al wat hij moest doen, mits het dé-activeren van de wokbook.open-code in het andere bestand.
Ik heb net jouw 'error'-code toegevoegd en dus de rest terug geactiveerd en nu werkt de "getobject"-code uit het hoofd-bestand ook met de geactiveerde workbook.open-code in het andere bestand  :thumbsup:


Een volgende vraag is nu :
Mijn 'dashboard'-werkblad wordt nu geüpdate elke keer ik het "dashboard"-bestand open zoals het standaard moet zijn.
Maar 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. Hoe en waar kan ik dit best in mijn code verwerken?

Ook heb ik het fenomeen dat als ik deze bestanden nu open ik deze telkens moet gaan maximaliseren terwijl deze voordien altijd gemaximaliseerd openden.

In bijlage de versies van de twee bestanden waar ik momenteel mee aan het werken/testen ben.

groetjes,
Bieke
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: geautomatiseerd sjabloon voor budget
« Reactie #224 Gepost op: 29 november 2023, 14:57:56 »
Hey Bieke,

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

Citaat
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 :D
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).

Citaat
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
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

 


www.combell.com