Makro-fejl

Hej visto

Det første issue ligger i kode-modulet for arket "Data2".

I Worksheet_Change-makroen står der:

"If Not Intersect(Target, SortCol) Is Nothing Then"

Det betyder, at hvis den ændrede celle (Target) krydser/overlapper med området "SortCol", så skal makroen "Sorter" kaldes.

Men der er ikke defineret en variabel, som hedder SortCol.

Variablen SortCol skal være et Range-objekt, som - vil jeg gætte på - definerer den kolonne, hvor ændringen forventes at foregå.

Så du skal til at starte med have følgende mere med i makroen:
Dim SortCol As Range
Set SortCol = [Angivelse af den kolonne som skal tjekkes for ændringen]

Hej

Der er SortCol i Module1 i programkoden. Er det ikke den, der sørger for sorteringen i tabellen i Data2? Denne sortering virker jo som den skal.

Som sagt har jeg tidligere fået hjælp til det med koderne, som jeg ikke selv har forstand på. Så hvis du foreslår ændringer i koden, beder jeg dig skrive præcis hvor ændringer eller tilføjelser skal indsættes.

Der er ikke problemer med tabellen, der som sagt virker som den skal. Problemet er, at knappen i fanen Søjler ikke udløser en sortering af søjlerækkefølgen, sådan som den fremgår, hvis man klikker på fanen Data2.

Hej igen

I kode-modulet for arket Diagram3 (Søjler) ligger makroen "Sub Sorterknap_Klik()"

Linjen 4: SetUp Sheets("Data2"), "Data2", "Data2[Procent]

"Setup" genkendes ikke som en Sub eller en Function. Jeg vil gætte på, at denne makro definerer området på de data, som skal vises i diagrammet.

Så du skal tjekke efter, om du har fået alt kopieret med over fra den tidligere model.

I forhold til dit ønske om præcise beskrivelser af ændringer og tilføjelser, vil jeg bede dig huske på, at hjælpen i dette forum er frivillig, og at der således (for mit vedkommende i hvert fald) er grænser for, hvor meget gratis hjælp, der kan ydes.

For at sikre mig, at alt var kopieret, reducerede jeg den fil, der virker, til en simplificeret eksempelfil og sammenlignede. Jeg opdagede her nogle forskelle i forhold til den fil, der ikke virker, men det ændrer ikke noget i forhold til problemet med knappen der ikke virker.  Men nu kan filerne direkte sammenlignes.

Jeg har opdateret filen, der ikke virker:
https://www.dropbox.com/scl/fi/htjme2k2wxt2nepiaesai/makro-fejl-v2.xlsm?rlkey=2a3rgiqz5d6vr3etv3frm39nq&dl=0
Og her er eksempelfilen, der virker:
https://www.dropbox.com/scl/fi/703ykekofhnm3uvht9geb/makro-virker.xlsm?rlkey=dq1ati9mg7a9lld17w7d366e4&dl=0

Jeg har desuden lavet en Word-fil for hver af de to Excel-filer, hvor jeg har kopieret programkoderne og med forskellig farve markeret de fane-/tabel-/kolonnenavne, der er udskiftet, så man kan sammenligne de to filers koder.
Jeg har ikke kunnet finde fejl eller uoverensstemmelser.
Koderne til filen der virker:
https://www.dropbox.com/scl/fi/81t0yafowb6gvj7byjosd/MAKRO-VIRKER.docx?rlkey=wbyn2ltuqoik0mnz5attm11a6&dl=0
Koderne til filen der ikke virker:
https://www.dropbox.com/scl/fi/p6xd0p2rbtay1wwtfbczh/MAKRO-FEJL.docx?rlkey=ml1tanae29jhu2rqvtvlxjt1h&dl=0

For lige at opsummere: Problemet er, at knappen på diagrammerne virker i den ene fil og ikke i den anden, hvor fejlmeddelelsen som nævnt er:
""Makroen....kan ikke køres. Makroen er måske ikke tilgængelig i denne projektmappe, eller alle makroer er deaktiveret."

Jeg tænkte på et tidspunkt, om det kunne være noget med navnet på makroen til knappen, den var gal med, men det kan jeg heller ikke se, skulle være tilfældet. Men der ser ud til ikke at være forbindelse mellem knappen og den tildelte makro.

For at koble den eksisterende makro til Sorter-knappen, skal du højre-klikke på Sorter-knappen og vælge menupunktet "Tildel makro..." på pop-up-menuen og derefter vælge makroen "Diagram3.Sorterknap_Klik".
Dette ændrer dog ikke på, at "Setup" i denne makro ikke genkendes som en Sub eller en Function, jf. min tidligere besked (#3).

Der ser ud til, at din opskrift på kobling mellem knap og makro var løsningen.

Jeg vender tilbage i morgen med yderligere uddybning.

Mange tak for din hjælp!
Ja, jeg manglede åbenbart at koble makroen til knappen. Og nu virker det som det skal.

Mht. det med at "Setup" ikke genkendes som en Sub eller en Function, så ved jeg ikke hvad det betyder (da jeg som nævnt ikke har forstand på disse koder). Du har i #3 ret i, at  den linje du nævner, definerer området på de data, som skal vises i diagrammet.
Jeg er tilfreds med, at det virker, som det skal. Så du behøver ikke uddybe, med mindre du selv har decideret lyst.