Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketToo many line continuations
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
bryst Se dropdown
Forum Begynder
Forum Begynder


Medlem: 20.Maj.2013
Land: Danmark
Status: Offline
Point: 16 		Direkte link til dette indlæg Emne: Too many line continuations
    Sendt: 16.Nov.2018 kl. 14:38
Hej forum.
 
Forsøger at indspille en makro, som
 
1) nulstiller al filtrering
2) filtrerer kolonne A således at rækker hvor celleværdien er 0 fravælges.
 
men får fejlen "too many line continuations".
 
En som kan hjælpe ?
 
På forhånd tak :-)
Til top



Til top
Ib Hansen Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652 		Accepteret svar Accepteret svar
Direkte link til dette indlæg Sendt: 21.Nov.2018 kl. 08:05
Jeg forstår ikke, du får den fejl Ermm
Den her makro er indspillet...

Men først
- I kolonne A skrev jeg først tallene 1 - 10 nedad.
- Så kopierede jeg tallene og indsatte dem til og med kolonne E.
- Så slettede jeg nogle af tallene i kolonne A, så der blev tomme pladser.
- Så mærkede jeg række 1 op og lavede "Filter" på hele rækken.
- Så filtrerede jeg kolonne E, til kun at vise 10-tallet.

Herefter startede jeg "Indspil makro".

- Så fjernede jeg filtreringen i kolonne E, så alle rækker åbnede.
- Så filtrerede jeg kolonne A, så de "tomme" ikke blev vist.
- Og så afsluttede jeg indspilningen med "Stop indspilning".

Så åbnede jeg makroen.
- Kopierede koden og indsatte den på en button på siden og så kører den uden problemer.
    ActiveSheet.Range("$A$1:$E$65000").AutoFilter Field:=5
    ActiveSheet.Range("$A$1:$E$65000").AutoFilter Field:=1, Criteria1:="<>"

Jeg har ændret lidt i koden, ved at sætte den til $E$65000, så den filtrere ned til række 65.000.

Hvis du vil udvide eller reducere antal kolonner der skal filtreres, skal du selv ændre $E$, til den kolonne / det bogstav, der skal filtreres til.
Og så skal du sætte Field:=5 til det antal kolonner der er henad.

Det virker uden problemer for mig Wink
Til top
Mads32 Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 26.Feb.2016
Land: Danmark
Status: Offline
Point: 1317 		Direkte link til dette indlæg Sendt: 20.Nov.2018 kl. 18:04
Hej

Prøv at uploade din fil, så vil jeg se på det.
Du kan også sende den på privat mail.
Til top
Ib Hansen Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652 		Accepteret svar Accepteret svar
Direkte link til dette indlæg Sendt: 21.Nov.2018 kl. 08:05
Jeg forstår ikke, du får den fejl Ermm
Den her makro er indspillet...

Men først
- I kolonne A skrev jeg først tallene 1 - 10 nedad.
- Så kopierede jeg tallene og indsatte dem til og med kolonne E.
- Så slettede jeg nogle af tallene i kolonne A, så der blev tomme pladser.
- Så mærkede jeg række 1 op og lavede "Filter" på hele rækken.
- Så filtrerede jeg kolonne E, til kun at vise 10-tallet.

Herefter startede jeg "Indspil makro".

- Så fjernede jeg filtreringen i kolonne E, så alle rækker åbnede.
- Så filtrerede jeg kolonne A, så de "tomme" ikke blev vist.
- Og så afsluttede jeg indspilningen med "Stop indspilning".

Så åbnede jeg makroen.
- Kopierede koden og indsatte den på en button på siden og så kører den uden problemer.
    ActiveSheet.Range("$A$1:$E$65000").AutoFilter Field:=5
    ActiveSheet.Range("$A$1:$E$65000").AutoFilter Field:=1, Criteria1:="<>"

Jeg har ændret lidt i koden, ved at sætte den til $E$65000, så den filtrere ned til række 65.000.

Hvis du vil udvide eller reducere antal kolonner der skal filtreres, skal du selv ændre $E$, til den kolonne / det bogstav, der skal filtreres til.
Og så skal du sætte Field:=5 til det antal kolonner der er henad.

Det virker uden problemer for mig Wink
Excel 2010 Dk og 2019 Dk på samme computer.
Bruger dog stadig mest 2010..
Men sådan er der jo så majet :o)
Til top
bryst Se dropdown
Forum Begynder
Forum Begynder


Medlem: 20.Maj.2013
Land: Danmark
Status: Offline
Point: 16 		Direkte link til dette indlæg Sendt: 22.Nov.2018 kl. 08:37
Hej med jer.
 
Mange tak for hjælpen.
 
Jeg fik det løst med denne:
 

ActiveSheet.ShowAllData

ActiveSheet.Range("$A$9:$O$504").AutoFilter Field:=1, Criteria1:="<>0"
 
Det minder vist meget om din løsning også (så vidt jeg kan se ud fra min beskedne viden om makroer) Smile
Til top
Ib Hansen Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652 		Direkte link til dette indlæg Sendt: 22.Nov.2018 kl. 12:54
Jeg kan så til gengæld ikke få din kode til at virke.

Når du bruger - ActiveSheet.ShowAllData - kræver det, der allerede er filtreret i en af kolonnerne.
Hvis ikke, vil VBA komme med en fejl (en BUG).

Og når du har 0 med til sidst i den nederste linje - ActiveSheet.Range("$A$9:$O$504").AutoFilter Field:=1, Criteria1:="<>0" - Sorterer den ikke.

Du skal undlade 0'et til sidst - ActiveSheet.Range("$A$9:$O$504").AutoFilter Field:=1, Criteria1:="<>"
"<>" er lavet med "Indspil makro" og det er filterets måde at beskrive, at de "tomme celle" ikke skal vises.

Ellers ved jeg ikke rigtigt, hvad det er, du ønsker koden skal gøre Ermm
Excel 2010 Dk og 2019 Dk på samme computer.
Bruger dog stadig mest 2010..
Men sådan er der jo så majet :o)
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk