Avatar billede Mads32 Ekspert
06. januar 2016 - 15:48 Der er 9 kommentarer og
1 løsning

Hvordan kan en macro optage en værdi fra regnearket, til brug for filtrering af data?

Jeg har prøvet at skrive en lille macro, der laver data udtræk i et bestemt område. Det virker fint. Men jeg ønsker at kunne erstatte kriteriet i macroen med et kriterie der indtastes i regnearket. Der vil kunne være op til 100 kriterier, så listen bliver lang hvis kriteriet skal findes på vanlig måde.

Her er en kopi af macroen

Sub b_lav_liste()
'
' b_lav_liste Makro
'  her skal laves en kommando der opsamler Art_konto nummeret fra fanebladet.

    Dim krit As Integer
    krit = Range("N25")

    Range("B25:G1055").Select
    Selection.AutoFilter

'  krit er det criterial der skal erstatt "2091" i neden stående llinje
    ActiveSheet.Range("$B$25:$G$55").AutoFilter Field:=1, Criteria1:="2091"

    Range("C26").Select
End Sub


Macroen er lavet i Exel 2010. Ved hjælp af funktionen: "Indspil macro"
Avatar billede jens48 Ekspert
06. januar 2016 - 17:32 #1
Celle N25 er ikke en god celle at skrive kriteriet i, da linie 25 kan blive skjult når filteret aktiveres. Jeg har derfor i makroen valgt N24 i stedet.

Denne makro starter automatisk når der skrives i N24.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("N24")) Is Nothing Then
Range("B25:G25").Select
  Range(Selection, Selection.End(xlDown)).Select
    Selection.AutoFilter
    ActiveSheet.Range("$B$24:$G$1055").AutoFilter Field:=1, Criteria1:=Range("N24")
Range("N24").Select
End If
End Sub
Avatar billede Mads32 Ekspert
06. januar 2016 - 17:36 #2
Tak for dit hurtige svar
Jeg prøver og vender så tilbage
Avatar billede Mads32 Ekspert
06. januar 2016 - 18:05 #3
Jeg har brug for mere hjælp. Jeg har hidtil kun lavet macroer ved hjælp af funktionen Indspil macro i EXEL.
Dette virker øjensynligt ikke for dit forslag.
Hvad skal jeg gøre??????
Avatar billede jens48 Ekspert
06. januar 2016 - 20:09 #4
Kopier hele makroen, højreklik på fanebladet og vælg Vis Koder og indsæt den der. Så kører makroen hver gang du skriver i celle N24
Avatar billede Mads32 Ekspert
07. januar 2016 - 17:07 #5
Hej Jens 48
Det virker ikke som det skal. jeg har sikker gjort noget forkert. men det værste er at jeg nu ikke kan anvende funktionen "Indspil macro" uden at macroen lagres i mappen "Personal.XLSB". Når de er lagrede der, er jeg ikke i stand til at foretage rettelser i macroen. Hvordan får jeg indstillet EXEL, så de macroer jeg skriver ikke gemmes i mappen "Personal.XLSB, men gemmes i "Denne projektmappe". Kan du hjælpe mig???

Det jeg bad om hjælp til var en lille del af et programforslag til tidligere kollega. Jeg har brugt ca. 60 timer på det; men kan nu ikke få det gjort færdig.  Vil du eventuelt ringe til mig hvis det nemmere at forklare mig det i telefonen end et sende et svar her på siden.
Du kan også sende en besked med dit telefonnummer så ringer jeg gerne op.

Mit telefon nummer er 20 89 63 46
Avatar billede Mads32 Ekspert
07. januar 2016 - 18:01 #6
Hej Jens48

For at få min egen macro til at virke skulle jeg blot ændre min linje:

ActiveSheet.Range("$B$25:$G$55").AutoFilter Field:=1, Criteria1:="2091"

Til

ActiveSheet.Range("$B$25:$G$55").AutoFilter Field:=1, Criteria1:=Range("N24")

Nu virker den macro som den skal, når den bliver knyttet til en "Knap".

Jeg vil give dig point for dette, men jeg har brug for din hjælp til at på rettet indstillinger i EXEL, så mine macro bliver lagret i mappen "Denne projektmappe". Jeg giver gerne 200 point for dette.
Avatar billede store-morten Ekspert
07. januar 2016 - 19:03 #7
Hjælp til at på rettet indstillinger i EXEL, så mine macro bliver lagret i mappen "Denne projektmappe"

Indspil en ny macro i et tomt ark.
I boksen der kommer frem, hvor du kan give den et navn, skal du kikke under vinduet med macro navne, her vælges hvor du gemmer macroer, ret: Personal.XLSB til: Denne projektmappe.

Indspil en lille macro, luk og gem arket, slet arket igen.

Så husker den at du vil gemme macroer i: Denne projektmappe.

https://books.google.dk/books?id=1N6HtUFGFDYC&pg=PA32&lpg=PA32&dq=excel+indspil+makro&source=bl&ots=VaSQ4RscwC&sig=571vIHFTDK_jqgNMoaVaNLGNIII&hl=da&sa=X&ved=0ahUKEwio8YGXn5jKAhUI_iwKHdyeDu4Q6AEIUDAI#v=onepage&q=excel%20indspil%20makro&f=false
Avatar billede Mads32 Ekspert
08. januar 2016 - 09:45 #8
Tak for dit svar.
Avatar billede Mads32 Ekspert
08. januar 2016 - 09:48 #9
Tak for alle dine svar. jeg håber der kommer flere point til dig
Avatar billede jens48 Ekspert
08. januar 2016 - 09:52 #10
Det gør der kun hvis du accepterer dette svar
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester