Notifikationer

Markér alle som læst Log ud

rashid Praktikant

03. maj 2007 - 10:15 Der er 4 kommentarer og
1 løsning

hjælp til autofilter

hej

Jeg har brug for hjælp til 2 ting i et regnark (excel):

1) kan nedenstående skrives smartere?
ActiveSheet.ListObjects("List1").Range.AutoFilter Field:=1
ActiveSheet.ListObjects("List1").Range.AutoFilter Field:=2
ActiveSheet.ListObjects("List1").Range.AutoFilter Field:=3
ActiveSheet.ListObjects("List1").Range.AutoFilter Field:=4
ActiveSheet.ListObjects("List1").Range.AutoFilter Field:=5
ActiveSheet.ListObjects("List1").Range.AutoFilter Field:=6
ActiveSheet.ListObjects("List1").Range.AutoFilter Field:=7
ActiveSheet.ListObjects("List1").Range.AutoFilter Field:=8

2) efter nulstilling af autofilter skal jeg have sorteret faldende på kolonne A... Hvordan skal de to ting kombineres ?

Synes godt om

kabbak Professor

06. maj 2007 - 08:14 #1

1.
for I = 1 to 8
ActiveSheet.ListObjects("List1").Range.AutoFilter Field:=I
next

Synes godt om

bak Forsker

06. maj 2007 - 21:28 #2

Denne makro klarer begge dele

Sub NulstilOgSorterListe()
If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
ActiveSheet.ListObjects("List1").Range.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
End Sub

Synes godt om

bak Forsker

06. maj 2007 - 21:29 #3

Så lige at sorteringen skulle være faldende

Sub NulstilOgSorterListe()
If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
ActiveSheet.ListObjects("List1").Range.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
End Sub

Synes godt om

rashid Praktikant

20. juni 2007 - 10:42 #4

-> hej bak...
Du kom med den bedste løsning - drop lige et svar, så får du points :-)

Synes godt om

bak Forsker

20. juni 2007 - 17:47 #5

ok :-)

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
problem med mailbesked Af Pestilensen i Excel	1	24/08/202611:16	24/08/202613:33
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel	14	17/08/202615:14	I går 23:56
Gemme største værdi Af Lemming@privat.dk i Excel	2	07/08/202622:13	08/08/202609:03
Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel	13	24/07/202611:08	03/08/202618:42
Opdatering af celler i excel ark Af lurup i Excel	2	09/06/202619:40	10/06/202614:34

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS