*

Help!

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

Hulp bij posten

Recente topics

Pagina's: [1] 2 3 4   Omlaag

Auteur Topic: Montagnard Budget 2021  (gelezen 12608 keer)

0 leden en 1 gast bekijken dit topic.

Offline AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Montagnard Budget 2021
« Gepost op: 29 augustus 2021, 17:18:05 »
Hier het beloofde voorbeeld bestand voortbordurend op het bestand van Montagnard.


update: nieuwe bijlage
Gelogd
Groet,

Albert

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Montagnard Budget 2021
« Reactie #1 Gepost op: 30 augustus 2021, 13:49:32 »
Dag Albert,
ik heb met succes denk ik Uw extra code in mijn bestand toegevoegd , de layout aangepast én Uw code aan een knop (afbeelding) op het start werkblad toegevoegd !
bedankt voor alle hulp !!!
Mvg,
Montagnard.
Gelogd

Offline AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: Montagnard Budget 2021
« Reactie #2 Gepost op: 30 augustus 2021, 15:04:23 »
Hallo Arnold,

Ik heb toch nog enkele kleine aanpassingen aangebracht.
In de userform OVERZICHT zie de groene ***********************

Code onder de knop RESET zie groene *****************************leegmaken blad VERHANDELINGEN
Dit met name om de tabel leeg te maken maar ook meteen de lege tabelrijen verwijderen.

Succes.
Gelogd
Groet,

Albert

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Montagnard Budget 2021
« Reactie #3 Gepost op: 30 augustus 2021, 15:32:29 »
nogmaals bedankt Albert !
vooral die aanpassingen aan het blad "verhandelingen" zijn prima !
ook de code om dat zelfde blad te wissen bij een nieuw bestand is veel vlugger en korter geschreven.
denk dat er niet veel meer kan aan verbeterd worden aan mijn bestand.....
Mvg,
Montagnard.
Gelogd

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Montagnard Budget 2021
« Reactie #4 Gepost op: 08 september 2021, 11:40:25 »
Dag,
voila , mijn "programma" nog een beetje meer "gefinetuned".....

1) als je een categorie wilde veranderen , dan moest dit zowel op het werkblad "budget" als op het werkblad "Data" gebeuren . daarom heb ik de categorien op het werkblad "budget" gekoppeld aan deze op het werkblad "Data".....

2) ik heb de procedure om een nieuw bestand te maken aangepast en nu gebeurt dit d.m.v. een UF , ik plaats van enkele "input boxen"...

3) in de vorige versie , als je een nieuw bestand wilde maken , dan werd op een gegeven moment alle data gewist en werd het bestand opgeslagen in de map Documenten onder een opgegeven naam waarbij ook de cel B3 op het werkblad "Budget" de waarde "Huishouden boekjaar " krijgt met het boekjaar dat werd ingegeven.
Daarna keerde je terug naar het werkblad "Budget" dat dan uiteraard leeg was , je moest dan oppassen om bij het afsluiten aan te geven dat je NIET wilde opslaan maar gewoon AFSLUITEN , anders zat je met een leeg Budget bestand.
ik heb dit nu aangepast zodat , na het aanmaken en wegschrijven van het nieuwe bestand , Excel wordt afgesloten ZONDER op te slaan , zodat het "oude" bestand met zijn data blijft bestaan....
mogelijks is er een betere/elegantere manier om dit laatste aan te pakken ?

graag jullie mening over mijn aanpassingen ?

Mvg,
Montagnard.

Gelogd

Offline AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: Montagnard Budget 2021
« Reactie #5 Gepost op: 08 september 2021, 14:37:21 »
Misschien dit nog in userform Nieuwbestand
Code: [Selecteer]
Private Sub UserForm_Initialize()
Startzichtbedrag.Value = Sheets("Budget").Range("K5")
Startspaarbedrag.Value = Sheets("Budget").Range("M5")
End Sub
Zelf maar even kijken of de format goed komt.
Gelogd
Groet,

Albert

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Montagnard Budget 2021
« Reactie #6 Gepost op: 08 september 2021, 17:23:48 »
Albert,
uw suggestie is goed als het dezelfde gebruiker is , ik heb het "programma" zo gemaakt dat het ook door anderen kan gebruikt worden , indien het hun 1ste keer is moeten ze een startbedrag kunnen ingeven voor de rekeningen.
maar ik ga uw tip verwerken zodat er gevraagd wordt of de bestaande gegevens mogen overgenomen worden of dat het nieuwe moeten zijn.
bedankt voor de tip !

Mvg,
Montagnard.
Gelogd

Offline Warme bakkertje

  • Volledig lid
  • **
  • Berichten: 215
  • Geslacht: Man
Re: Montagnard Budget 2021
« Reactie #7 Gepost op: 09 september 2021, 09:23:44 »
Even muggenziften. :)

Vermijd het gebruik van Select in je code. Gebruik Application.Goto in de plaats.

Select werkt enkel op het actieve blad dus daar moet je rekening mee houden als je naar een ander tabblad wil.

Application.Goto heeft deze beperking niet. En je hebt het argument Scroll waardoor de gewenste cel naar de linkerbovenhoek verschoven wordt.

Select heeft dit niet dus moet je nog altijd handmatig naar de gevraagde cel scrollen. (niet leuk als je bv. naar rij 5000 moet)

Code: [Selecteer]
Private Sub ListBox1_Click()
Sheets("Verhandelingen").ListObjects(1).ShowTotals = True '************************************************
ListBox2.List = Sheets("Data").ListObjects("tblListings").ListColumns(ListBox1.Value).DataBodyRange.Value
Sheets("Verhandelingen").ListObjects(1).Range.AutoFilter
Sheets("Verhandelingen").ListObjects(1).Range.AutoFilter 2, ListBox1.Value
End Sub
Dit schrijf je 'netter' zoals

Code: [Selecteer]
Private Sub ListBox1_Click()
With Sheets("Verhandelingen").ListObjects(1)
    .ShowTotals = True '************************************************
    .Range.AutoFilter
    .Range.AutoFilter 2, ListBox1.Value
End With
ListBox2.List = Sheets("Data").ListObjects("tblListings").ListColumns(ListBox1.Value).DataBodyRange.Value
End Sub
Gelogd
Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Montagnard Budget 2021
« Reactie #8 Gepost op: 09 september 2021, 10:40:41 »
@Warme bakkertje : code is aangepast , waarvoor dank !
@Albert : uw suggestie ingewerkt in het UF "Nieuwbestand" d.m.v. een checkbox , aan = saldo's overnemen , uit = zelf saldo's ingeven...graag Uw mening over de aanpak ?
Mvg,
Montagnard.
Gelogd

Offline AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: Montagnard Budget 2021
« Reactie #9 Gepost op: 09 september 2021, 13:14:22 »
Hallo Montagnard,
 :thumbsup: :thumbsup:

Met gebruik van format oogt het iets fraaier in de textboxen

p.s. Maak in de code gebruik van inspringen, leest wat gemakkelijker ;D
Code: [Selecteer]
If CheckBox1.Value = True Then
     Startzichtbedrag.Value = Format(Sheets("Budget").Range("K5"), "0.00")
     Startspaarbedrag.Value = Format(Sheets("Budget").Range("M5"), "0.00")
     Naambestand.SetFocus
Else
     Startzichtbedrag = ""
     Startspaarbedrag = ""
     Startzichtbedrag.SetFocus
End If

Gewoon omdat ik het leuk vind om te doen ben ik voor mezelf nog bezig met het aanpassen van de code om blad verhandelingen in te vullen.
Mocht je interesse hebben dan hoor ik het wel.
Gelogd
Groet,

Albert

Offline AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: Montagnard Budget 2021
« Reactie #10 Gepost op: 09 september 2021, 13:25:19 »
Toch alvast nog even een opmerking:

Als je in een bestaande boekhouding wijzigingen aanbrengt en daarna direct een nieuw bestand aanmaakt
ben je de wijzigingen kwijt. ;)

oplossing in de UF Nieuwbestand
Code: [Selecteer]
Private Sub Validatie_Click()
ThisWorkbook.Save '**TOEGEVOEGD**********************

If Startzichtbedrag.Value = "" Then MsgBox "geen startbedrag zichtrekening ingevuld !": Startzichtbedrag.SetFocus: GoTo fout
If Startspaarbedrag.Value = "" Then MsgBox "geen startbedrag spaarrekening ingevuld !": Startspaarbedrag.SetFocus: GoTo fout
If Naambestand.Value = "" Then MsgBox "geen naam voor het nieuwe bestand ingevuld !": Naambestand.SetFocus: GoTo fout
If Boekjaartal.Value = "" Then MsgBox "geen boekjaar voor het nieuwe bestand ingevuld !": Boekjaartal.SetFocus: GoTo fout

Gelogd
Groet,

Albert

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Montagnard Budget 2021
« Reactie #11 Gepost op: 09 september 2021, 13:52:37 »
@Albert :
beide zaken aangepast en ja , je hebt gelijk wat da laatste betreft , had het zelf nog niet opgemerkt.
ik probeer het zo "error proof" mogelijk te maken maar ja he....
en ALLE mogelijke aanpassingen/verbeteringen zijn welkom , ik kan er alleen maar wijzer van worden  :).
Mvg,
Montagnard.
Gelogd

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.172
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Montagnard Budget 2021
« Reactie #12 Gepost op: 09 september 2021, 14:59:35 »
Hallo Montagnard,

Citaat van: AD1957 op 09 september 2021, 13:14:22
p.s. Maak in de code gebruik van inspringen, leest wat gemakkelijker ;D
Mocht je het niet kennen, het instellen van Indent of Automatisch inspringen vind je in Extra, Opties, Editor en een vinkje zetten bij AutoInspringen.
Bij mijn oude 2007 werktdit echter niet (meer?) maar dan kies ik voor rechtsklikken op een module (of de map Modules) en daar vind je onderaan ook de functie "Indent" die alles in die map of module op inspringen schikt.

Groeten,

:) SoftAid :)             


Gelogd
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Montagnard Budget 2021
« Reactie #13 Gepost op: 09 september 2021, 16:13:12 »
SoftAid , die kende ik idd niet , ik deed juist het tegenovergestelde : alles mooi uitlijnen  ;D.....
ga mijn code beetje ordenen nu....
Mvg,
Montagnard.
Gelogd

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Montagnard Budget 2021
« Reactie #14 Gepost op: 10 september 2021, 10:50:20 »
Dag !
iets waar ik al enkele dagen me tanden op stuk bijt  :-[ :
ik zou graag hebben dat als er een negatief saldo is onder "maand balans" en in de cellen I5 en K5 , dit in volgende format zou zijn : € -245,39 , ik doe dit via cel eigenschappen , aangepast , zie screencopy 1 (Excel format 1).
als ik dit dus aanpas dan komt dit goed op mijn werkblad , zie screencopy 2 (Excel format 2).
als ik daarna het bestand opsla en heropen , krijg ik een totaal ander format te zien , zie screencopy 3 (Excel format 3).

ik geraak er maar niet uit waarom dit zo komt én wat ik daar kan aan doen ?
Mvg,
Montagnard.

ps : mijn  laatste versie van mijn bestand vind U in de post hierboven !



Gelogd
Pagina's: [1] 2 3 4   Omhoog
 


www.combell.com