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

0 leden en 1 gast bekijken dit topic.

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: Automatisch invullen van waarden
« Reactie #30 Gepost op: 23 januari 2021, 11:34:59 »
zonder verder naar de code gekeken te hebben, als je toch cellen naast elkaar invult, dan is deze korter (rode regel) en hoef je geen With ... End With te gebruiken, je blijft binnen je huidige blad
Citaat
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
Sheets("Verhandelingen").Cells(datum, 1).Resize(, 3).Value = Array(Cells(4, 24).Value, Cells(4, 18).Value, Cells(4, 22).Value)
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

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Automatisch invullen van waarden
« Reactie #31 Gepost op: 23 januari 2021, 12:19:28 »
hierbij de nieuwste versie , zit goed in elkaar , alleen denk ik dat de code , waar de kolom wordt bepaald om achteraf het bedrag op de juiste plaats in te vullen , korter kan ?
ik hoor het graag , dan kan ik weer verder  :).
@Koe : Uw oneline regel is idd korter maar ik gebruik momenteel verder de code van "Warme bakkertje" omdat deze voor mij begrijpelijker is , hopelijk "no hard feelings" ?

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 Poetsj

  • Lid
  • *
  • Berichten: 16
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Re: Automatisch invullen van waarden
« Reactie #32 Gepost op: 23 januari 2021, 12:59:51 »
Hallo, Allemaal

Ik heb vandaag naar hartelust de verschillende bestandjes kunnen uittesten die jullie hebben doorgestuurd, mijn dank hiervoor.

Uiteindelijk heb ik het besandje van de " warme bakker"  ;D gekozen om verder te gebruiken en uit te werken, omdat deze het kortste bij mijn verwachtingen lag.

Ik zou jullie ook graag helpen, maar ik merk dat jullie hier al neig gevorderd zijn in excel, terwijl ik nog in de baarmoeder lig te woelen. mijn excuses hiervoor( dat ik nog niet echt kan bijdragen aan oplossingen).

nogmaals NE DIKKE MERCI!!!! aan allen


Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Automatisch invullen van waarden
« Reactie #33 Gepost op: 23 januari 2021, 13:06:21 »
nu ben ik toch even benieuwd welk bestand U juist bedoelt van "Warme bakkertje" ?
misschien kunt het even opnieuw uploaden ?
en bekijk toch even mijn laatst gepost bestand ?
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 Poetsj

  • Lid
  • *
  • Berichten: 16
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Re: Automatisch invullen van waarden
« Reactie #34 Gepost op: 23 januari 2021, 13:14:13 »
Wow!!
Ziet er ook wel interesant uit, moet ik eens uittesten.

Maar, een klein vraagje. Waarom zou je op" Maand" zoeken? als je een jaaroverzicht hebt, dat per maand is ingedeeld.   

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Automatisch invullen van waarden
« Reactie #35 Gepost op: 23 januari 2021, 13:20:39 »
Wow!!
Ziet er ook wel interesant uit, moet ik eens uittesten.

Maar, een klein vraagje. Waarom zou je op" Maand" zoeken? als je een jaaroverzicht hebt, dat per maand is ingedeeld.   
je geeft je gegevens in : Rubriek , Maand en Bedrag (Datum staat automatisch op de huidige dag) , als je op de "validatie" knop klikt dan gebeuren er 2 dingen :
a) de volgende gegevens :Datum, Rubriek, bedrag worden naar het werkblad "Verhandelingen" gekopieerd , zodat je die op datum kunt controleren mocht het voor iets nodig zijn.
b) het bedrag wordt op het werkblad "Budget" op de juiste plaats ingevuld door het aangeven van 2 zaken : Rubriek en Maand , de code gebruikt die 2 zakenom de juiste plaats te bepalen.

mijn post is nu wel aangepast aan mijn rubrieken , moet makkelijk te implementeren zijn in Uw bestand met Uw rubrieken.

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 #36 Gepost op: 23 januari 2021, 13:40:14 »
Arnold,

De code van 'Warme bakkertje' is inderdaad nog beter. In mijn vorige posts bleef ik opzettelijk zo dicht mogelijk in de buurt van je eigen aanzet.

Citaat
alleen denk ik dat de code , waar de kolom wordt bepaald om achteraf het bedrag op de juiste plaats in te vullen , korter kan

Dat kan zeker, en volledig analoog daaraan, kan ook de code om de rij te zoeken, korter.
In bijgaand bestand heb ik je oorspronkelijke code in commentaar laten staan met daaronder een alternatieve methode (2 maal 1 regel).

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.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Automatisch invullen van waarden
« Reactie #37 Gepost op: 23 januari 2021, 13:43:27 »
Dat is super "pitufo" ik ga de code bekijken en kan daaruit weer leren...
Nog een fijn weekend.
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 #38 Gepost op: 23 januari 2021, 14:23:27 »
Citaat
Sheets("Verhandelingen").Cells(datum, 1).Resize(, 3).Value = Array(Cells(4, 24).Value, Cells(4, 18).Value, Cells(4, 22).Value)
Zo moeilijk leesbaar is dat nu toch ook niet. Die .size(,3) betekent enkel vanaf cells(datum,1) 3 cellen breed, dat spaart je een hoop tikwerk. Je moet soms een keer durven proberen, wie niet waagt, blijft maagd.

Nu heb ik pas eventjes terug vanaf het begin gekeken.
Eigenlijk vind ik de opzet verkeerd en gevaarlijk voor cumulatieve fouten.
Stel dat je voor een bepaalde rubriek meerdere posten per maand hebt, dan krijg je enkel de laatste in je overzicht door :Cells(rij, kolom).Value = Cells.Range("V4").ValueEr zit daar geen optelsommetje in, enkel de laatste.

Ik zou voorstellen om enkel de gegevens weg te schrijven naar die tabel in "verhandelingen" en dan netjes een draaitabel te maken in je tabblad budget. Dat is éénmalig een klein beetje tikwerk, maar je krijgt zonder veel inspanningen een bult in info terug, die je via filtering etc nog een beter inzicht kunnen geven. Eigenlijk ben je met zo'n constructie ook voor jaren vertrokken !
Maar ja, wil je maagd blijven ?



Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Automatisch invullen van waarden
« Reactie #39 Gepost op: 23 januari 2021, 14:28:13 »
Miljaar ik wordt oud  :-[...tis Just,  de bedragen moeten bij elkaar opgeteld worden , rats vergeten...
Thanks om mij daar op te wijzen!
Tzal voor vanavond of morgen zijn   nu kijken naar de cross...
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 #40 Gepost op: 23 januari 2021, 14:31:17 »
't is toch niet veel meer dan dit
Citaat
Cells(rij, kolom).Value = Cells(rij, kolom).Value+ Cells.Range("V4").Value

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: Automatisch invullen van waarden
« Reactie #41 Gepost op: 23 januari 2021, 14:40:49 »

nog een beetje foutafhandeling ivm rij en kolom nummer
Citaat
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

   rij = Application.Match(tezoeken, Range("B1:B63"), 0) 'zoek rijnummer, wel beginnen bij 1 !
   kolom = Application.Match(Range("T4"), Range("A5:O5"), 0) 'zoek kolomnummer, wel beginnen bij A !

   If Not IsNumeric(rij) Or Not IsNumeric(kolom) Then 'niet netjes een numeriek resultaat gekregen bij 1 van beiden
      MsgBox "foutje bedankt, niets weggeschreven": Exit Sub
   Else
     Rem ultra korte code van Koe voor onderstaande :
      'Sheets("Verhandelingen").Cells(datum, 1).Resize(, 3).Value = Array(Cells(4, 24).Value, Cells(4, 18).Value, Cells(4, 22).Value)
      Set ws = Sheets("Budget")
      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

      Cells(rij, kolom).Value = Cells(rij, kolom).Value + Cells.Range("V4").Value
   End If
   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

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Automatisch invullen van waarden
« Reactie #42 Gepost op: 23 januari 2021, 16:31:45 »
@ cow18,

Als men, zoals Montagnard hier doet, invoermogelijkheden voor rubriek en maand beperkt door middel van keuzelijsten lijkt foutafhandeling me "net dat tikkeltje" overdreven...
Ben ook heel benieuwd welke bezwaren je hebt tegen bv "kolom = Range("C5:N5").Find(Range("T4")).Column", zeker als ik zie dat jij daarvoor je heil zoekt in een worksheetfunction.
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Automatisch invullen van waarden
« Reactie #43 Gepost op: 23 januari 2021, 16:43:42 »
@ cow18,

Als men, zoals Montagnard hier doet, invoermogelijkheden voor rubriek en maand beperkt door middel van keuzelijsten lijkt foutafhandeling me "net dat tikkeltje" overdreven...
Ben ook heel benieuwd welke bezwaren je hebt tegen bv "kolom = Range("C5:N5").Find(Range("T4")).Column", zeker als ik zie dat jij daarvoor je heil zoekt in een worksheetfunction.
ja ik wil hier ook even op inpikken :
1) rij = Application.Match(tezoeken, Range("B1:B63"), 0) 'zoek rijnummer, wel beginnen bij 1 ! , waarom ? aangezien de Rubrieken maar beginnen op rij 7....
2) idem voor de kolom , de kolom met maand begint in kolom 3...
nu ik sta zeker open voor het waarom  ;)

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 #44 Gepost op: 23 januari 2021, 17:08:11 »
Arnold,

Samen met jou wacht ik nog op het 'daarom' van cow18.

Waarom beginnen bij A of 1 kan ik je wél verklaren: de Find uit mijn manier zoekt een waarde en geeft jou daarvan naar wens de inhoud, de rij, de kolom...
Match daarentegen geeft (als het over zoeken op een werkblad gaat) de positie aan van een zoekterm binnen een range.
Om het bv. bij de maanden te houden en je zoekt FEB dan zal Find sowieso het kolomnummer geven, Match zal ook het kolomnummer geven als je vanaf A begint te zoeken, maar zal 2 geven als je vanaf JAN begint, dus als je zou zoeken in C5:N5.

Hopelijk heb je daar voldoende aan om te bepalen met welke methode je verder wil.

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

 


www.combell.com