Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 4 van 4

Onderwerp: Macro verschuift kolommen naar links

  1. #1
    Vraag is niet opgelost

    Macro verschuift kolommen naar links

    Goedemiddag,

    Aan de hand van de data in kolom A tot F dienen we een onderscheid te maken tussen Europese en niet Europese goederen. Hieraan gekoppeld dienen we per goederencode het aantal colli weer te geven. Deze verdeling zou in kolom AE en AG moeten komen.

    Ik heb geprobeerd om dit te laten werken met macro's, echter één macro werkt niet naar behoren.
    Bij "button 7" wordt de data steeds naar links verschoven, nl. naar kolom AC en AD in plaats van kolom AE.

    Heeft iemand een idee wat er misloopt bij deze macro?

    Alvast bedankt.

    Mvg,
    Dylan
    Attached Files Attached Files

  2. #2
    Mega Senior Timshel's avatar
    Geregistreerd
    14 februari 2015
    Locatie
    Leiden
    Afstand tot server
    ±147 km
    Mijn advies: neem een nieuwe macro op met de macrorecorder.
    Bezoek ook eens de 6-voudig website-van-het-jaar www.beterspellen.nl

  3. #3
    Dat komt omdat je in je opgenomen macro dubbele waarden laat verwijderen dan de verwijderde cellen naar links laat verplaatsen
    Het is ook wel een erg beroerd opgenomen code er zitten diverse foute handelingen in waardoor sommige dingen 2x worden gedaan. en elke keer als jij page-up of page-down hebt gedrukt staat er ook nog in.. het moet een flipperkast lijken als jij alle macro's laat uitvoeren..

    opgenomen code is prima, maar je moet het wel opschonen

    onderstaande macro zou volgens mij hetzelfde moeten doen.

    Code:
    Sub Macro6()
    '
    ' Macro6 Macro
    '
    
    'Kopieren HS EU codes, verwijderen lege regels en verwijderen dubbele waarden
        Range("K2:K100").SpecialCells(xlCellTypeFormulas, 1).Copy
        Range("P2").PasteSpecial Paste:=xlPasteValues
        Range("P2:P100").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
        ActiveSheet.Range("$P$1:$P$100").RemoveDuplicates Columns:=1, Header:=xlYes
    
    'Kopieren HS NON-EU codes, verwijderen lege regels en verwijderen dubbele waarden
        Range("L2:L100").Copy
        Range("Q2").PasteSpecial Paste:=xlPasteValues
        Range("Q2:Q100").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
        ActiveSheet.Range("$Q$1:$Q$100").RemoveDuplicates Columns:=1, Header:=xlYes
    
    End Sub

    Verder het dringende advies om zowel je macro's als je knoppen meer betekenis volle namen te geven. dan hoef je de buttons ook niet dwars over je kolomheaders te plakken of je blind te zoeken in de code welke macro ook al weer wat deed


    edit: vermoedelijk gaan er nog meer dingen mis in je andere macro's want de koptekst van kolom AE staat ook op regel 14 ipv regel 1 zoals alle andere kolommen
    Laatst aangepast door roeljongman : 16 april 2018 om 16:04

  4. #4
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    De macro's zijn zoals al aangegeven totaal onleesbaar en onvindbaar en werken als een flipperkast. Gebruik dus helemaal geen macro's maar maak gebruik van de ingebakken mogelijkheden van Excel. Hoe meer structuur hoe makkelijker het wordt. In de tab 'Landen' de landen met hun afkorting, de naam en de regio in 1 tabel. Is Greece EL of GR? en mogelijk dat er meer van dit soort onduidelijkheden inzitten.
    In de tab 'Data' wordt de regio erbij gezocht. In de tab 'Overzicht' kan je dan met draaitabellen aan de gang gaan.
    Attached Files Attached Files
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  5. Dit topic is automatisch gesloten omdat er sinds vier maanden niet meer op gereageerd is.

    Indien gewenst kan de topicstarter een verzoek tot heropening indienen.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren