+ Reply to Thread
Results 1 to 12 of 12

Vb code versimpelen om regels te minderen

  1. #1
    Registered User
    Join Date
    11-17-2016
    Location
    netherlands
    MS-Off Ver
    2016
    Posts
    8

    Vb code versimpelen om regels te minderen

    beste mensen ik ben bezig met een sheet en wat ik wil bereiken krijg ik in vb wel aan de gang maar worden enorm veel regels wellicht is hier iemand die meer af weet van vb code dan ik

    wat de bedoeling is dat de code controleerd op de waarde van 2 comboboxen en vandaar uit de juiste info weergeeft op steed het zelfde formulier/sheet
    het gaat er om dat hij voor 4 locaties en 12 maanden de juiste info weergeeft

    hierbij een stukje code
    wat dus x 12 zou moeten voor iedere maand
    dit zou korter moeten kunnen denk ik maar hoe ?
    Code:

    Please Login or Register  to view this content.
    Attached Files Attached Files
    Last edited by cybertazz; 06-26-2018 at 08:54 AM.

  2. #2
    Forum Contributor
    Join Date
    09-21-2009
    Location
    Belgium - Mechelen
    MS-Off Ver
    Office 365
    Posts
    258

    Re: Vb code versimpelen om regels te minderen

    hi cybertazz,

    Zou je een werkboek kunnen opladen, dan kan ik dit eens bekijken.
    Misschien kan er wel wat vereenvoudigd worden.
    Even a little help can be a big help !!
    1. A sample workbook says more then words. Add problem description and solution so we can understand the problem.
    2. Your appreciation is accepted by clicking the star "Add Reputation" at the lower left of the post.
    3. If your problem is solved, mark it as [SOLVED]: See "FAQ : " https://www.excelforum.com/faq.php
    4. Use [CODE] [/CODE] tags to illustrate your code: see here

  3. #3
    Registered User
    Join Date
    11-17-2016
    Location
    netherlands
    MS-Off Ver
    2016
    Posts
    8

    Re: Vb code versimpelen om regels te minderen

    sample toegevoegd het is dus de bedoeling dat je in het opstartblad met de combo boxen de overzichten kunt genereren met de data uit achter liggende tabbladen

  4. #4
    Forum Contributor
    Join Date
    09-21-2009
    Location
    Belgium - Mechelen
    MS-Off Ver
    Office 365
    Posts
    258

    Re: Vb code versimpelen om regels te minderen

    laat me even de tijd.
    Ik bekijk of er verbeteringen kunnen doorgevoerd worden, maar beloof niets.

    grtz

  5. #5
    Registered User
    Join Date
    03-12-2015
    Location
    Netherlands
    MS-Off Ver
    2013
    Posts
    36

    Re: Vb code versimpelen om regels te minderen

    Cybertazz,

    Kijk hier eens naar:

    Please Login or Register  to view this content.
    meer tijd had ik nu niet helaas.

  6. #6
    Forum Contributor
    Join Date
    09-21-2009
    Location
    Belgium - Mechelen
    MS-Off Ver
    Office 365
    Posts
    258

    Re: Vb code versimpelen om regels te minderen

    Rekragisao,

    Net hetgeen waar ik ook mee aan het experimenteren was, en zit in de goede richting.
    Enkel zou ik niet gaan om per lokatie een variabele aan te maken (LOK - D3L - etc.. )

    Ik zou eerder de bladnamen en ranges opzoeken aan de hand van de gemaakte keuzes in de comboboxen.
    Natuurlijk zijn alle suggesties welkom voor cybertazz.

  7. #7
    Registered User
    Join Date
    03-12-2015
    Location
    Netherlands
    MS-Off Ver
    2013
    Posts
    36

    Re: Vb code versimpelen om regels te minderen

    MarMo,

    Daar heb je inderdaad gelijk in. Helaas was de tijd schaars op die vrijdagmiddag. Inmiddels heb ik de code volledig uit kunnen schrijven.

    Cybertazz:

    Volg de volgende Functie toe aan de VBA:

    Please Login or Register  to view this content.
    en gebruik de onderstaande code. Daarnaast moet je er wel even voor zorgen dat alle maanden uitgespeld zijn als de naam van de maand. Januari 2017 wordt dus gewoon Januari. anders werkt de zoekfunctie niet.


    Please Login or Register  to view this content.
    De kans is groot dat er hier een daar nog een foutje in zit. Mocht je hulp nodig hebben bij het debuggen verneem ik het graag.

    Met vriendelijk groet,

    Rekragisao

  8. #8
    Registered User
    Join Date
    11-17-2016
    Location
    netherlands
    MS-Off Ver
    2016
    Posts
    8

    Re: Vb code versimpelen om regels te minderen

    ik ben er zelf ook nog ff mee verder gegaan ik zal mijn laatste versie toevoegen
    ik zit alleen nog dat hij nu teveel geheugen gebruikt op de pc van het werk
    waarschijnlijk de code van invoer scherm

    zo heb je een meer volledig beeld van wat de bedoeling is
    data toevoegen via invoer scherm op de data sheets

    en een overzicht genereren op het opstart tabbbad
    Attached Files Attached Files

  9. #9
    Registered User
    Join Date
    11-17-2016
    Location
    netherlands
    MS-Off Ver
    2016
    Posts
    8

    Re: Vb code versimpelen om regels te minderen

    ik zag dat we bijna tegelijk hadden gepost maar ben er mee aan de slag geweest en hij loopt vast op deze regel

    'copy info jaar 1 maand overzicht'
    Blad5.Range("D11").Value = FindSht.Range(Col_Letter(CopyRow.Column) & "7").Value

    met als foutmelding:
    CopyRow.Column = object variable of blok variable with is niet ingesteld

    zelf al een kleine aanpassing gedaan de spatie in de tabblad naam was verwijderd
    dus de regel al aangepast in

    Set FindSht = ActiveWorkbook.Sheets(ShtName & Jaar1)
    Set findsht2 = ActiveWorkbook.Sheets(ShtName2 & jaar2)

    alvast bedankt voor het mee denken

    CyberTazz

  10. #10
    Registered User
    Join Date
    03-12-2015
    Location
    Netherlands
    MS-Off Ver
    2013
    Posts
    36

    Re: Vb code versimpelen om regels te minderen

    Cyber,

    Zorg er voor dat alle maanden vernoemd zijn naar de maand, dus enkel 2017. ander werkt de find functie niet, en krijgt CopyRow geen waarde.

    Zonder waarde ziet de code geen variable en kan hij niet draaien. Bij mij werkt het prima zolang alles vernoemd is naar de maand zelf.

    Mvg,

    Rekragisao

  11. #11
    Forum Contributor
    Join Date
    09-21-2009
    Location
    Belgium - Mechelen
    MS-Off Ver
    Office 365
    Posts
    258

    Re: Vb code versimpelen om regels te minderen

    cybertazz,

    Ok, ben zover dat de code vereenvoudigd is om de tabel in het blad 'opstart' op te vullen.
    Ik heb hier rekening gehouden met Rekragisao's code, maar heb 2 subs gemaakt in de Module1.(heb dit wel zonder de functie van Rekragisao gemaakt)
    Ik heb een andere aanpak gebruikt

    In het 'gegevensblad' heb ik ook een Named Range gemaakt van X1:Y13, namelijk 'MaandKolom'
    Hierin staan de kolomnamen van elke maand, bv : Januari : B - C | November : AF - AG
    Dit om de kolommen te bepalen van de geselecteerde maand. De maandbladen hebben allemaal dezelfde layout, dus ook dezelfde kolommen per maand.

    Sub 1 checkt de waarden van de comboboxen en gaat hiermee de variabelen aanvullen met de nodige waarden.
    Sub 2 gaat de tabel vullen.

    Laat maar weten of dit hetgeen is waarmee je verder kan.


    @Rekragisao,
    Bedankt voor je bijdrage in deze thread !!!
    Attached Files Attached Files

  12. #12
    Registered User
    Join Date
    11-17-2016
    Location
    netherlands
    MS-Off Ver
    2016
    Posts
    8

    Re: Vb code versimpelen om regels te minderen

    bedankt voor de hulp het werkt nu prima

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1