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 12488 keer)

0 leden en 1 gast bekijken dit topic.

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.127
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Automatisch invullen van waarden
« Reactie #15 Gepost op: 21 januari 2021, 11:07:22 »
Kan gebeuren he , dat zijn de neveneffecten van het ouder worden....
  ;D ;D ;D  :P

:) 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.383
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Automatisch invullen van waarden
« Reactie #16 Gepost op: 21 januari 2021, 11:11:07 »
voila , is ondertussen aangepast  ;D....
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 Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.383
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Automatisch invullen van waarden
« Reactie #17 Gepost op: 21 januari 2021, 11:11:46 »
  ;D ;D ;D  :P

:) SoftAid :)             

hahahahaha...das ne goeie , 1-1  ;)
grtjs,
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 SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.127
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Automatisch invullen van waarden
« Reactie #18 Gepost op: 21 januari 2021, 11:29:31 »
Hallo Warm Bakkertje,

met alle respect, ik zou die formules (ook) niet kunnen maken die jij gebruikt  :thumbsup:

Maar,....  wat is de meerwaarde van deze "complexere" formule?
=INDIRECT(D$4 & "!$L$" & RIJ() -2)als het met een eenvoudige verwijzing
=JAN!$L63ook gaat?

Ter zijde:
De "Maand"-namen niet in de vastgezette Rij 3 zetten maakt het terugvinden van de maand moeilijk als je naar beneden moet scrollen voor het lezen van data in Overzicht.
Kolom A lijkt me toch wat ....  :-[ 

Groeten,

:) 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 Warme bakkertje

  • Volledig lid
  • **
  • Berichten: 215
  • Geslacht: Man
Re: Automatisch invullen van waarden
« Reactie #19 Gepost op: 21 januari 2021, 12:42:16 »
@ Theo

Omdat Arnold een formule vroeg die hij naar rechts kon doortrekken maar dat bij elke kolom automatisch de volgende maandnaam weergegeven werd.

Dus 1ste kolom JAN!L1, volgende kolom FEB!L1, MRT!L1 enz....

Het RIJ()-x heb ik er dan bijgezet zodat je de formule ook naar beneden kan doortrekken zonder een manuele aanpassing te moeten maken.
Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.127
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Automatisch invullen van waarden
« Reactie #20 Gepost op: 21 januari 2021, 12:44:40 »
Verstaan Rudi,

nu begrijp ik ook de formule. Dank je wel  _/-\o_

Groeten,

:) 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 Poetsj

  • Lid
  • *
  • Berichten: 16
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Re: Automatisch invullen van waarden
« Reactie #21 Gepost op: 21 januari 2021, 16:59:13 »
WOW!!!!SUPER!!!
Ik ga het zeker is uittesten, Merci allemaal!!!

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.383
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Automatisch invullen van waarden
« Reactie #22 Gepost op: 22 januari 2021, 17:35:45 »
hallo,
omdat ik het "programma" op zich wel kan smaken ben ik bezig met een andere manier van invoer.
in het bestaande blad "Budget Overzicht" kies ik via een 'dropdown' menu een "rubriek" , een "Maand" en geef dan het bedrag in en de datum , ernaast staat een VBA knop om deze gegevens te "valideren"...

het 1ste deel van de validatie  is bedoeld om deze gegevens op te slaan op een andere bladzijde genaamd "Verhandelingen"....
dit werkt ondertussen goed , alleen wordt de opmaak ook meegenomen , iedere cel met Rubriek op werkblad "Verhandelingen"  wordt een dropdown menu cel, en dat zou alleen maar de waarden mogen zijn , hoe los ik dit op ?

bij het 2de deel van de validatie moet er gekeken worden naar eerst de Rubriek , en dan de maand en het bedrag moet dan in de betreffende cel worden ingevuld , maar ben ik nog NIET aan begonnen...
suggesties hoe ik dit aanpak ? met "vertical.lookup" of zoiets ?

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 pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Automatisch invullen van waarden
« Reactie #23 Gepost op: 22 januari 2021, 18:10:44 »
Dag Arnold,

Ik hou het dus enkel bij je specifieke vraag. Graag volg ik wel je latere vorderingen!
Zet die procedure eens zoals ze is in een module ipv achter dat werkblad, en 't zal meteen werken.

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

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.383
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Automatisch invullen van waarden
« Reactie #24 Gepost op: 22 januari 2021, 18:12:47 »
Dag Arnold,

Ik hou het dus enkel bij je specifieke vraag. Graag volg ik wel je latere vorderingen!
Zet die procedure eens zoals ze is in een module ipv achter dat werkblad, en 't zal meteen werken.

Groeten,
pitufo
is ondertussen opgelost , alleen word de opmaak ook meegenomen , zodat iedere cel met Rubriek een dropdown cel wordt in het werkblad "Verhandelingen" , dat zou alleen maar de waarden mogen zijn...
ik heb het nieuwe bestand geuploaded...
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 pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Automatisch invullen van waarden
« Reactie #25 Gepost op: 22 januari 2021, 20:00:34 »
Arnold,

Mijn suggestie was nochtans duidelijk: "Zet die procedure eens zoals ze is in een module"

Ondertussen heb je ook de ganse aanpak gewijzigd: je gebruikt nu de copy-instructie. Het mag toch niet verbazen dat je dan op andere problemen stuit?
Dus (uiteraard wil je die gegevensvalidatie niet meenemen): OFWEL keer je terug naar de oorspronkelijke methode (de gegevens in een variabele stoppen en die daarna op het andere blad zetten) OFWEL blijf je met 'copy' werken en plak je die als waarden (wat je bijvoorbeeld ook zou moeten doen als je manueel kopieert en plakt).
Succes !

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

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.383
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Automatisch invullen van waarden
« Reactie #26 Gepost op: 23 januari 2021, 08:10:52 »
Dag "pitufo" , sry hoor.....neem me het niet kwalijk maar mijn kennis van Excel/VBA dateert nog van de jaren stillekes , 47 jaar gelden ben ik begonnen met "computeren" , met ne Commodore64 , heb daar uuuren op versleten met te "programmeren" , toen nog in "basic"...
nadien kwamen de échte computers en ik ben daarin meegegroeid.
20 jaar gelden ben ik door een uitdaging op de fabriek begonnen met mij meer te verdiepen in Excel aka VBA....
ik heb ook wel al opgemerkt dat de code die Jullie hedendaags gebruiken heel veel veranderd is ten opzichte van de code die ik vroeger heb "geleerd" , en dan nog volledig met zelfstudie , geen énkele cursus of wat dan ook gevolgd , misschien zit ik daarom ook vastgeroest met die oude code.

dus toen je me gisteren de "tip" gaf om , ik citeer 'Zet die procedure eens zoals ze is in een module ipv achter dat werkblad en 't zal meteen werken' was dat voor mij Chinees , maar ik wou U niet direct lastig vallen daarmee en wou anderzijds toch proberen om het zelf op te lossen , kwestie van altijd bij te leren.
daarom mijn andere manier van aanpak......

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 pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Automatisch invullen van waarden
« Reactie #27 Gepost op: 23 januari 2021, 10:08:35 »
Arnold,

Sorry's zijn natuurlijk niet nodig.
In de vba-editor zie je in het linker venster een overzicht van 'Excel-objecten'. In je voorbeeld zijn dat Blad14 tot Blad16, en ThisWorkbook. Bij 'Invoegen' vind je o.a. 'Module'. Alles wat je dan nog moest doen was de code die je bij Blad14 had staan in zo een module zetten.

Tot daar wat de methode met variabelen betreft.
De volgende vraag moet dus zijn: heb je het ondertussen opgelost gekregen met de copy-methode?

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

Offline Warme bakkertje

  • Volledig lid
  • **
  • Berichten: 215
  • Geslacht: Man
Re: Automatisch invullen van waarden
« Reactie #28 Gepost op: 23 januari 2021, 11:03:03 »
Vermijd het gebruik van Copy en ken de waarden rechtstreeks aan de cellen toe.

Private Sub CommandButton1_Click()
Rem zet cursor klaar op deze blanco lijn om lotto nummers in te vullen
datum = Sheets("Verhandelingen").Cells(Rows.Count, 1).End(xlUp).Row + 1
If datum < 2 Then datum = 2
Set ws = Sheets("Budget Overzicht")
With Sheets("Verhandelingen")
    .Cells(datum, 1) = ws.Cells(4, 24).Value
    .Cells(datum, 2) = ws.Cells(4, 18).Value
    .Cells(datum, 3) = ws.Cells(4, 22).Value
End With
Rem terug naar Budget Overzicht om nieuw ingave te doen
Cells(4, 18).Value = "": Cells(4, 20).Value = ""
Cells(4, 22).Value = "": Cells(4, 24).Value = Date
Application.Goto Cells(4, 18)
End Sub
Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.383
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Automatisch invullen van waarden
« Reactie #29 Gepost op: 23 januari 2021, 11:19:19 »
@Warme bakkertje : code gebruikt en werkt goed , weer iets bijgeleerd !
ben nu bezig aan 2de deel van de validatie.....ik ga het zelf proberen uit te werken , lukt het me niet dan laat ik het hier weten , lukt het me wél dan plaats ik hier eens mijn bestand en dan kunnen Jullie mijn code eventueel eens aanpassen naar "moderne" code , zo leer ik wéér bij  :)

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