Help!

Problemen met uw pc? De vrijwilligers van Oplossing.be zoeken gratis met u mee! 8)

Meer weten over Oplossing.be?

Hoe stel ik een vraag?

Hulp bij posten

Recent

Auteur Topic: vba aanpassen voor ganse historiek per maand  (gelezen 4373 keer)

0 leden en 1 gast bekijken dit topic.

Offline lco

  • Ervaren lid
  • ***
  • Berichten: 335
  • Geslacht: Man
Re: vba aanpassen voor ganse historiek per maand
« Reactie #30 Gepost op: 01 oktober 2019, 20:00:31 »
emields,

waarom lijn 41 en 43 niet en lijn 42 wel :(

ps:waarom werkt dit bij sheet 2020/2021 wel en bij 2019 niet ,zie nieuwe bijlage


   mvg,lco

Offline lco

  • Ervaren lid
  • ***
  • Berichten: 335
  • Geslacht: Man
Re: vba aanpassen voor ganse historiek per maand
« Reactie #31 Gepost op: 01 oktober 2019, 20:23:47 »
Pitufo,

bedankt voor het mee opvolgen,maar de code aanpassen daar pas ik wijselijk voor (weinig kennis van vba) :-[ :-[


   mvg,lco

Offline emields

  • Volledig lid
  • **
  • Berichten: 149
  • Geslacht: Man
  • Oplossing.be
Re: vba aanpassen voor ganse historiek per maand
« Reactie #32 Gepost op: 01 oktober 2019, 23:13:52 »
als je gegevens wist mag je dat niet doen in de 2 laatste kolommen daar staan formules in en die wis je dan natuurlijk ook.

en sommige cellen bevatten niet de aangepaste opmaak ( 0,00) en tonen dan natuurlijk een gewoon getal maar tellen evengoed bij.

Offline lco

  • Ervaren lid
  • ***
  • Berichten: 335
  • Geslacht: Man
Re: vba aanpassen voor ganse historiek per maand
« Reactie #33 Gepost op: 02 oktober 2019, 08:06:58 »
emields,
wederom hetzelfde ::)
Ik verwijder gegevens op lijn 41 in gezinsbudget zonder de laatste kolommen met de formules
Ik verwijder in verrichtingen de gegevens uit uitgave overzicht en kolom reden
Ik maak een nieuwe uitgavepost aan en vul het bedrag in en kijk in bijlage wat er gebeurd
Ik vermoed er bij het verwijderen iets fout loopt (denk ik).

ps:ofwel zie ik niet maar als ik de eigenschappen probeer aan te passen lukt dit niet om het euroteken er bij te krijgen :-[
ik werk met office 2007 maar of dat er iets mee te maken weet ik niet :-X
Kan iemand een beetje uitleg geven bij de vba code,nu begrijp ik er zeer weinig van en misschien kan ik dan zelf iets veranderen/proberen

   mvg,lco
« Laatst bewerkt op: 02 oktober 2019, 09:30:05 door lco »

Offline pitufo

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 937
  • Geslacht: Man
Re: vba aanpassen voor ganse historiek per maand
« Reactie #34 Gepost op: 02 oktober 2019, 12:59:45 »
Hoi,

Nu zie ik nog iets meer...
De ontbrekende formules in je eerdere voorbeeld kwamen er omdat je ze zelf had weggedaan, maar ze waren al voorzien tot rij 100, dus mag je mijn eerdere opmerking negeren.
De simpelste oplossing ? Gebruik bij invoer via het formulier geen komma's maar het decimaal scheidingsteken van je numerieke toetsenbord (dat is misschien even aanpassen maar uiteindelijk wel makkelijker).
De reden ? Waarden uit formulieren worden standaard als tekst behandeld. De 10,29 in je tabel is dus geen getal. Als je op het formulier 10.29 invoert zal dit correct in je tabel terechtkomen (en meteen automatisch de notatie met krijgen).

Trouwens, dat is ook de reden waarom getallen met decimalen niet worden bijgeteld!

Groeten,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline lco

  • Ervaren lid
  • ***
  • Berichten: 335
  • Geslacht: Man
Re: vba aanpassen voor ganse historiek per maand
« Reactie #35 Gepost op: 02 oktober 2019, 13:25:31 »
Pitufo,emields,

Duizendmaal SORRY voor de lange weg die we hebben afgelegd door een domme fout van mij,zie laatste opmerking Pitufo :thumbsup:

Hoe ik dit zelf niet gezien heb :-[ :-[ :-[ 

ps:na het opnieuw testen werkt alles zoals gevraagd,ik kan jullie niet genoeg bedanken voor jullie engelen geduld \o/ \o/

   mvg,lco
« Laatst bewerkt op: 02 oktober 2019, 14:05:29 door lco »

Offline pitufo

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 937
  • Geslacht: Man
Re: vba aanpassen voor ganse historiek per maand
« Reactie #36 Gepost op: 03 oktober 2019, 09:18:26 »
Citaat
ik kan jullie niet genoeg bedanken voor jullie engelen geduld
In dit draadje is, anders dan in sommige andere gevallen  ;) , mijn bijdrage nochtans heel bescheiden geweest, hoor  :D
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline lco

  • Ervaren lid
  • ***
  • Berichten: 335
  • Geslacht: Man
Re: vba aanpassen voor ganse historiek per maand
« Reactie #37 Gepost op: 03 oktober 2019, 13:54:09 »
Pitufo,

Hoe klein de bijdrage ook ge staat steeds klaar om mijn problemen op te lossen waarvoor mijn oprechte dank :thumbsup: :thumbsup: :thumbsup:


   mvg,lco

Offline lco

  • Ervaren lid
  • ***
  • Berichten: 335
  • Geslacht: Man
Re: vba aanpassen voor ganse historiek per maand
« Reactie #38 Gepost op: 03 oktober 2019, 19:08:45 »
emields,Pitufo,

Als ik een nieuwe betaling invoer bij  Apotheek telt hij ipv 8.95 euro er 895 bij
ik vind niets abnormaal bij eigenschappen,kan iemand zeggen wat ik verkeerd doe :-[

ps:zie bijlage
« Laatst bewerkt op: 04 oktober 2019, 10:33:37 door lco »

Offline pitufo

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 937
  • Geslacht: Man
Re: vba aanpassen voor ganse historiek per maand
« Reactie #39 Gepost op: 04 oktober 2019, 12:53:13 »
Hallo Luc,

Je doet niets verkeerd !
Ik had het in mijn voorgaande post over "de simpelste oplossing" ('k had weer zo weinig tijd...)
Als dat blijkbaar soms nog tegenpruttelt zetten we maar iets zwaarder geschut in.
Als je de code bij CommandButton1_Click() vervangt door deze moet het altijd goed gaan (het zal dan ook geen verschil meer maken of je 8.95 of 8,95 invult). En de kans dat het op blad "Verrichtingen" fout gaat is ook meteen weg.
Private Sub CommandButton1_Click()

ActiveSheet.Unprotect
k = Range(Range("c14"), Selection).Columns.Count
For i = 1 To 40
    If Me("textbox" & i) <> "" Then
        x = Me("Label" & i).Caption
        Set y = Range("b15:b50").Find(x, lookat:=xlWhole)
        bedrag = CDbl(WorksheetFunction.Substitute(Me("textbox" & i).Value, ".", ","))
        If Not y Is Nothing Then
            y.Offset(, k) = y.Offset(, k).Value + bedrag
        Else
            With Range("b100").End(xlUp)
                .Offset(1) = Me("label" & i).Caption
                .Offset(1, k) = bedrag
            End With
        End If
        With Sheets("verrichtingen").Range("a1").End(xlDown)
            Sheets("verrichtingen").Unprotect
            .Offset(1) = Format(Now(), "mm-dd-yy")
            .Offset(1, 1) = Me("label" & i).Caption
            .Offset(1, 2) = bedrag
            .Offset(1, 3) = boodschapper.Value
            Sheets("verrichtingen").Protect
        End With
    End If
Next i
Range("b14").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Unload Me

End Sub

Groeten,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline lco

  • Ervaren lid
  • ***
  • Berichten: 335
  • Geslacht: Man
Re: vba aanpassen voor ganse historiek per maand
« Reactie #40 Gepost op: 04 oktober 2019, 15:35:23 »
Pitufo,
Bedankt voor de aanpassing,werkt zoals het moet :thumbsup: :thumbsup: :thumbsup:
ps:hij neemt de nieuwe toegevoegde uitgave in gezinsbudjet2019 niet meer mee naar de volgende jaren :-\

    mvg,lco
« Laatst bewerkt op: 04 oktober 2019, 15:43:05 door lco »

Offline pitufo

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 937
  • Geslacht: Man
Re: vba aanpassen voor ganse historiek per maand
« Reactie #41 Gepost op: 04 oktober 2019, 16:18:34 »
Luc,

Best mogelijk, maar dat kan echt niet liggen aan de code die ik je bezorgd heb. Het enige waarin die afwijkt van de bestaande zit in een correcte en veilige verwerking van de textboxen met de bedragen.

Voor het overige heb ik de code van emields niet met een pincet zitten ontrafelen (ze is jammer genoeg op zijn zachtst uitgedrukt niet altijd even leesbaar). Ik heb ook niet alles gevolgd wat er aan extra ideen is uitgewerkt.

Heb nu wel vlug eens een vorige versie gedownload en daar gebeurt dat toch ook niet? Zo in de rapte meen ik te zien dat nieuwe uitgaveposten naar een volgend jaar worden opgenomen ALS dat om een "initialisatie" van dat jaar gaat, m.a.w. als er nog geen enkele uitgavepost is ingezet.

Bijgevolg (maar dus ook op het eerste zicht...) denk ik dat je best in de jaren 2020 en volgende de kolom B vanaf rij 15 naar beneden kan leegmaken, en vervolgens dat tabblad nooit selecteren tot je er een eerste verrichting moet in boeken. Dat klinkt onnozel, maar 't is wel zo dat emields het m.i. voorzien heeft...

Bekijk dat eens op een testkopie, en als het klopt, kan je daar dan op deze wijze mee leven? Anders zal het ganse principe eens moeten herbekeken worden.

Groeten,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline lco

  • Ervaren lid
  • ***
  • Berichten: 335
  • Geslacht: Man
Re: vba aanpassen voor ganse historiek per maand
« Reactie #42 Gepost op: 05 oktober 2019, 11:25:12 »
Pitufo,

ik kan er mee leven,bedankt voor de uitleg


   mvg,lco

Offline emields

  • Volledig lid
  • **
  • Berichten: 149
  • Geslacht: Man
  • Oplossing.be
Re: vba aanpassen voor ganse historiek per maand
« Reactie #43 Gepost op: 06 oktober 2019, 01:25:15 »

ps:hij neemt de nieuwe toegevoegde uitgave in gezinsbudjet2019 niet meer mee naar de volgende jaren :-\

    mvg,lco

Dat doet hij wel op voorwaarde dat het blad leeg is.

er is precies al wat gebeurd op de tijd dat ik weg was. maar zeer goed opgelost door pitufo

Offline lco

  • Ervaren lid
  • ***
  • Berichten: 335
  • Geslacht: Man
Re: vba aanpassen voor ganse historiek per maand
« Reactie #44 Gepost op: 06 oktober 2019, 10:11:06 »
emields,

had dit intussen reeds getest en inderdaad het werkt.
SORRY voor de late terugkoppeling en mijn oprechte dank voor het geleverde werk \o/ \o/

    mvg,lco

 


www.combell.com