19. marts 2025 - 12:49Der er
10 kommentarer og 1 løsning
On Change udfør da en makro på andet ark.
Jeg har to data ark "Data" og "Output" Jeg har en Makro ("BrugFilter") der filtrerer data på "Output" Denne Makro vil jeg gerne have til at blive aktiveret, når jeg ændrer data i "Data". Jeg kan godt kalde makroen fra "Data" ved at bruge nedenstående komando i ark koden under 'Worksheet, Change'
Private Sub Worksheet_Change(ByVal Target As Range) ' BrugFilter
End Sub
Men makroen kører jo så på "Data", og ikke på "Output" som var ønsket. Hvordan får jeg denne makro til at køre på "Output" uden at jeg forlader "Data"?
If Not Intersect(Target, Me.Range("dit område")) Is Nothing Then 'skift til dit ønskede område Application.EnableEvents = False Call Worksheets("Output").BrugFilter End If End Sub
I 'BrugFilter' makroen skal du definere 'OutPut' som det ønskede ark, og dernæst henvise til det alle steder, hvor du laver ændriner til et ark, f.eks.:
Dim WS as Excel.Worksheet Set WS = Sheets("OutPut")
WS.Filter .... WS.Range ... WS.Cells ...
o.s.v.
Uden din kode bli'r det lidt svært, at give et mere præcist svar.
Hvis jeg kører Makro 'BrugFilter' virker den på begge ark, alt efter hvilket ark jeg har fokus på. Men automatikken med at få ændringer på "Data" til at filtrerer "Output", kan jeg ikke få til at virke.
Tusind tak. Jeg havde en del bøvl med at få VBA koden forbi mine Firewall, men det var bestemt ulejligheden værd. Nu virker det fuldstændigt som jeg havde drømt om.
Jeg får dog problemer når jeg prøver at beskytte mit "Output" ark. Jeg vil gerne beskytte det mod utilsigtet ændringer af de formler der står i cellerne. Man åbenbart ikke kan bruge denne filter funktion på et beskyttet ark. Nogen gode ideer, ud over at sikre at man altid har en kopi som backup. :-)
#9 - Jeg har opdateret filen med linket i #7, så det kan låses op når koden kører, og når koden er færdig, låses det med det område du har valgt. Koden er 1234 (kan du se i VBA koden).
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.