• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Macro verschuift kolommen naar links

Status
Niet open voor verdere reacties.

DylanBuffel

Gebruiker
Lid geworden
19 apr 2017
Berichten
18
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
 

Bijlagen

  • Kopie van ATRtemplate2.xlsm
    59,2 KB · Weergaven: 41
Mijn advies: neem een nieuwe macro op met de macrorecorder.
 
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.. :shocked:

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 bewerkt:
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.
 

Bijlagen

  • Kopie van ATRtemplate2.xlsb
    53 KB · Weergaven: 25
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan