Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Automatisch invullen van waarden  (gelezen 12495 keer)

0 leden en 1 gast bekijken dit topic.

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Automatisch invullen van waarden
« Reactie #45 Gepost op: 23 januari 2021, 18:38:23 »
voila , nog wat aanpassingen gedaan aan de layout voor mezelf...
ook een controle bijgevoegd als er op de "Validatie" knop wordt geklikt en niet alle gegevens zijn ingevoerd , anders werd het "programma" onderbroken met foutmelding.
die foutcontrole is écht "old school"  :-[ , ik zie graag een betere methode  :)
nog een fijne avond iedereen !

Mvg,
Arnold.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: Automatisch invullen van waarden
« Reactie #46 Gepost op: 23 januari 2021, 19:43:01 »
ik had liever gezien dat die waarden voor data>validatie in de kolommen AF:AG op  of andere manier verwezen naar de kolom B en de rij. Vandaag is alles nog (bijna) netjes  1-op-1 juist, maar straks zal er 1 of andere slimme iets veranderen in de B-kolom en niet in kolom AF en hang je.
 
Met die application.match, op voorwaarde dat je "rij" niet declareert, krijg je of een long of een error als resultaat. En dan hoef je enkel maar af te vragen of het numeriek is. Bij een fout ga je niet in debug-modus.
In het geval je met die "Find" werkt en je zoekterm is niet te vinden moet je met een "on error ..." of dergelijke die fout proberen af te vangen.
In mijn ogen is mijn constructie leesbaarder en robuuster.
Er moet inderdaad vanaf de 1e rij of kolom gezocht worden om netjes op het goeie nummer uit te komen, anders moet je een offset gebruiken.
Citaat
With Range("B7:B62")
      rij = Application.Match(tezoeken, .Offset(0), 0)
      If IsNumeric(rij) Then rij = rij + .Row - 1
   End With

Verder maak ik met zorgen over de "Varia's". Hoe krijg ik een "facturen-Varia" goed weggeschreven ?

Bovenstaande zijn gewoon uitleg op jullie vragen, maar toch zou ik alles op de schop gooien en voor een andere aanpak (=draaitabel) kiezen.
 

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Automatisch invullen van waarden
« Reactie #47 Gepost op: 24 januari 2021, 08:41:29 »
Goedemorgen "Koe"...
je hebt 100% gelijk met je opmerkingen , maar IK weet nu hoe mijn "programma" werkt en dat is voor MIJ voldoende.
de andere helpers en ikzelf hebben elk op onze manier iets uitgewerkt op vraag van TS.
het is niet mijn bedoeling om b.v. dit "programma" kant en klaar af te leveren maar voor de geïnteresseerden om er verder op door te werken.
en idd , als je gaat lijnen bijvoegen ( rubrieken) dan zal de kolom AF:AG ook moeten aangepast worden , ofwel moet er een andere manier gevonden worden om de rubrieken te bepalen en uit te kiezen..
daarom mijn opmerking dat ik het "programma" voor MIJ heb aangepast , met véél minder rubrieken dan TS in 1ste instantie had.

ik heb wél nog een vraag waar ik geen antwoord op vind : kan je zo'n dropdown menu (cel F3 & I3) langer maken ? nu krijg je standaard 8 waarden te zien , kan je dit uitbreiden ?

oja en even terzijde :
ik wordt er dit jaar 68 , ben 48 jaar geleden begonnen met "computers" , zelfstudie programmeren in basic met lijnen en zo verder meegegroeid.
een goeie 20 jaar geleden door een toeval op de fabriek begonnen met Excel VBA , ook allemaal zelfstudie met een Excel leerboek van toen al wat jaren oud.
vandaar dat mijn VBA kennis nog van de jaren stillekes is en mijn code navenant.

U geeft aan om vanaf nul te herbeginnen en te werken met een "draaitabel" , awel daar ken ik niks van ! en ik ga ook NIET herbeginnen , heb met mijn bescheiden kennis TS willen verder helpen...

ik gebruikte tot voor deze week trouwens : https://www.moneymanagerex.org/ , open source software , gratis en in het Nederlands en je kan er heel veel mee...
vandaar heb ik geen behoefte om een nieuw Excel "Budget" bestand uit te werken.

Mvg,
Arnold.

ps : soms een excel VBA BOEK dat Je kan aanbevelen ?
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline Warme bakkertje

  • Volledig lid
  • **
  • Berichten: 215
  • Geslacht: Man
Re: Automatisch invullen van waarden
« Reactie #48 Gepost op: 24 januari 2021, 10:42:53 »
Heb net gemerkt dat er in het vak Inkomen enkel fouten zaten in de formules.

Daarom nu nog even de versie met de correcte formules.
Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Automatisch invullen van waarden
« Reactie #49 Gepost op: 24 januari 2021, 10:54:31 »
ik loop hier ook tegen een eigenaardige fout aan en kan ze niet oplossen :
bij de Rubrieken heb ik bij inkomsten een rubriek " Terugbetaling Lotto" en bij Uitgaven een rubriek "Lotto"
als ik via het dropdown menu in cel F3 kies voor "Lotto" dan wordt het bedrag ingevuld bij "Terugbetaling Lotto" ?
m.a.w. er wordt in mijn code niet naar een exacte overeenkomst gekeken ?
graag hulp hiervoor , ik vind het zelf niet  :-[....

Mvg,
Arnold.

ps : de rubrieken "Varia" heb ik ondertussen aangepast...dit zijn eigenlijk door de gebruiker aan te passen rubrieken.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline Warme bakkertje

  • Volledig lid
  • **
  • Berichten: 215
  • Geslacht: Man
Re: Automatisch invullen van waarden
« Reactie #50 Gepost op: 24 januari 2021, 13:11:35 »
Private Sub CommandButton1_Click()

Rem zet cursor klaar op de volgende blanco lijn van werkblad "Verhandelingen"
datum = Sheets("Verhandelingen").Cells(Rows.Count, 1).End(xlUp).Row + 1
If datum < 2 Then datum = 2
Rem ultra korte code van Koe voor onderstaande :
'Sheets("Verhandelingen").Cells(datum, 1).Resize(, 3).Value = Array(Cells(3, 13).Value, Cells(3, 7).Value, Cells(3, 11).Value)
Set ws = Sheets("Budget")
With Sheets("Verhandelingen")
    .Cells(datum, 1) = ws.Cells(3, 13).Value
    .Cells(datum, 2) = ws.Cells(3, 6).Value
    .Cells(datum, 3) = ws.Cells(3, 11).Value
End With

Rem de kolom 2 doorzoeken naar een overeenkomst met cel "Rubriek"
tezoeken = Cells.Range("F3").Value
rij = Application.Match(tezoeken, Columns(2), 0)

Rem stel nu de kolom in om het bedrag in te vullen
kolom = Application.Match(Range("I3"), Rows(5), 0)

If Not IsError(rij) * Not IsError(kolom) Then
Rem vul bedrag in op juiste plaats
    Cells(rij, kolom).Value = Cells(rij, kolom).Value + Cells.Range("K3").Value
End If
Rem terug naar Budget Overzicht om nieuw ingave te doen
Cells(3, 6).Value = "": Cells(3, 9).Value = ""
Cells(3, 11).Value = "": Cells(3, 13).Value = Date
Cells(3, 7).Select

End Sub
Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: Automatisch invullen van waarden
« Reactie #51 Gepost op: 24 januari 2021, 13:16:12 »
@montagnard,
zonder te kijken, bij ."Find" kan je bij "lookat" kiezen voor "whole" of "part", dus als je zoekt op "lotto" zal hij vermoedelijk de eerste term die "lotto" bevat gevonden hebben, dus "terugbetaling lotto".
Kort samengevat je vroeg een "part"-match, geen "whole" match. 

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Automatisch invullen van waarden
« Reactie #52 Gepost op: 24 januari 2021, 13:46:18 »
Maak van Terugbetaling Lotto => Terugbetaling_Lotto

:) SoftAid :)             
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
  • To Windows or not to Windows , that's the question
Re: Automatisch invullen van waarden
« Reactie #53 Gepost op: 24 januari 2021, 16:40:59 »
heb de code van "Warme bakketje" gebruikt , werkt nu én met fout controle...
nu og 1 vraag : kan je de lengte van een dropdown menu groter maken zodat je meer mogelijkheden direct zie zonder te moeten scrollen ? bij een lange lijst wordt het toch even zoeken ....

aan alle helpers : dikke merci , heb weer veel bijgeleerd !

Mvg,
Arnold.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline Warme bakkertje

  • Volledig lid
  • **
  • Berichten: 215
  • Geslacht: Man
Re: Automatisch invullen van waarden
« Reactie #54 Gepost op: 24 januari 2021, 17:35:32 »
Met GegevensValidatie ben je beperkt tot 8. Wil je een langere lijst zal je moeten overschakelen op een ActiveX-ComboBox.

Bij deze kan je instellen hoeveel regels er zichtbaar moeten zijn bij aanklikken.

Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Automatisch invullen van waarden
« Reactie #55 Gepost op: 24 januari 2021, 18:21:28 »
Arnold,

kan je de lengte van een dropdown menu groter maken
Ik meen dat dit niet mogelijk is. Zit zo ingebakken in Excel.

Wat je wel kan doen:
een eerste validatie op:
- Belastingen
- Auto kosten
- Huishouden               (ps: paypal is echt geen onkost, het is een betalingsmethode)
- Gezondheid
- Facturen
- Verzekeringen
Uit die zes kies je, en aan de hand van wat (in F3) gekozen is, kies je in een nieuwe onder-rubriek (G3) uit de betreffende onderdelen.

zie bijlage:

:) SoftAid :)             

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 cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: Automatisch invullen van waarden
« Reactie #56 Gepost op: 24 januari 2021, 21:36:51 »
probleempje met uitgebreidere lijst, zie https://www.contextures.com/xldataval11.html of onderstaand voorbeeld.

Ik vind de opmerkingen zoals "een code die ik begrijp" onvoldoende om zich niet verder op onbekend terrein te durven wagen.
Een draaitabel is iets dat al sinds excel2003 bestaat. Anders liepen we hier nog steeds in dierenhuiden en met knots en speer rond, maar zonder corona-virus.

In de bijlage tabblad "data" zie je in de linkertabel alle mogelijkheden om te kiezen in G4. Daar zit bovenstaande macro van Contextures achter. Je moet anders eens dubbelklikken in die cel.
Eens je alle groene cellen ingevuld zou hebben, dan kunnen die doorgekopieerd worden naar de rechter tabel. Die kan vlot de gegevens over een lange periode bijhouden, dus moet je niet ieder jaar iets nieuws bouwen.

Het tabblad "draaitabel" groepeert dan netjes alle gegevens in een vooropgemaakt formaat.
Je kunt nooit geen fouten meer krijgen in formules, dit zit ingebakken in excel. Soms vloek je eens op de layout, die is soms te rigide.
Nu heb ik daar 10.000 regels over 11 jaar in allerlei rubrieken weggeschreven en die staan mijn inziens heel overzichtelijk daar samengevat. Nu komt het praktische aan het geheel. Bovenin zie je allerlei drilldown-pijltjes. Die kan je gebruiken tot je persoonlijke profijt. Nu is die draaitabel 700 rijen lang !!! Een beetje overkill.

bv. klik in A4 op dat pijltje, vink dat vinkje weg bij alles selecteren en ga helemaal omlaag naar 2020 en zet daar een vinkje bij.
Nu heb je enkel alle gegevens over 2020.

Ander voorbeeld, zet vinkje terug bij alles selecteren aan in A4 en ga nu naar C4, vinkje weg bij alles selecteren en vink nu enkel "autokosten" aan en je krijgt een overzicht over de laatste 11 jaar per maand van de autokosten.

Ga verder naar E3, ik ben enkel geinteresseerd in de maanden maart, april en mei ! peanuts, zet de nodige vinkjes.

Mijn vraag is, als je bovenstaande ziet, hoe wil je daarvoor dan geen halve dag vrijmaken, het is niet altijd eenvoudig, maar om zo'n krachtige tool onder de knie te krijgen. Het maken is in het begin zoekwerk, maar het gebruik er van door eender wie.

De macro om iets weg te schrijven naar de tabel is nu 6 regels, kan ingekort worden naar 2, maar dat is dan voor geoefende ogen.

Offline Haije

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 197
  • Geslacht: Man
  • Oplossing.be
Re: Automatisch invullen van waarden
« Reactie #57 Gepost op: 24 januari 2021, 22:41:41 »
En als je ook nog slicers gebruikt wordt het kiezen nog eenvoudiger!
|-|aije

ik gebruik Office 2016 Professional Plus

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: Automatisch invullen van waarden
« Reactie #58 Gepost op: 24 januari 2021, 22:45:17 »
inderdaad, maar eerst eens kijken of we gevolgd worden, dan mag jij dat toevoegen ... ;)

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Automatisch invullen van waarden
« Reactie #59 Gepost op: 25 januari 2021, 08:44:31 »
goedemorgen,
ik durf hier bijna niet op te antwoorden....ik steek me wél degelijk een beetje weg achter mijn "verhaal" , ik ben er nu 68 ...de hersenen willen niet altijd even goed meer mee , al wa "ouderdoms" kwaaltjes zoals vlug vergeten , het denken , redeneren en begrijpen gaat zo vlot niet meer.... :(
dus om nu nog op VBA écht te gaan focussen , daar heb ik geen zin meer in....

ik wil heel graag hier op "ons" forum mensen met problemen verder helpen mét de kennis die ik heb , steek ik er wat van op zoveel te beter.....

wat het bestand van "Koe) betreft , dat is al heel ver van hetgeen TS gestart is ? mijn insteek in het begin van het topic was een iets andere aanpak aan TS voor te stellen , maar uiteindelijk heeft TS besloten om het bestand van "Warme bakkertje" te gebruiken omdat dat het dichts bij zijn wensen aanleunde.
daarop heb ik mijn insteek aangepast naar mijn wensen , had een paar kleine probleempjes , deze zijn door JULLIE opgelost.
ik ga de oplossing voor mijn dropdown vraag gebruiken die SoftAid aangegeven heeft en dan is normaal mijn 'programma' voor mij in orde , heb ik TOCH nog een vraag dan hoop ik dat ik ze hier alsnog mag posten ?

ik wil jullie ALLEMAAL nog eens heel hard bedanken !!!

Mvg,
Arnold.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

 


www.combell.com