Sortering: Nulværdi nederst

Marker området og Data > Sorter faldende.

Jeg fik vist ikke helt forklaret problemet, så det blev forståeligt. Skal sorteres i alfabetisk rækkefølge således at celler med nulværdi ligger nederst.

Hvis du har:

A1  B1
a    0
b    1
c    9
d    2

Så forstår jeg det sådan, at du vil have Celle A1 med indholdet a nederst og SAMTIDIG vil have bogstavet a øverst. Det kan jeg ikke se nogen løsning på, idet du så vil ændre data.

Du nå først sorter efter den ene kolonne og derefter den anden. Men denne sidste sortering vil være underindflydelse af den første.

De celler jeg gerne vi have sorteret alfabetisk med nulværdier nederst henter deres indhold i dette tilfælde navne fra andet regneark. Nogle af cellerne indeholder intet navn hvilket medfører at der i arket jeg ønsker sorteret indsættes et "0".

Nej hvis du ellers sorterer stigende, så vil 0-værdier indsættes øverst
Men vi kan vel ændre din formel så den indsætter en tom værdi i stedet for et 0

må jeg lige se den første formel som henter navne..

='G:\Excell lister\[vær. liste1.xls]liste'!$B$42

Prøv om du kan bruge denne, jeg gætter på du alligevel sletter nulværdierne, eller i dette tilfælde cellerne med ååå

Ellers må vi se om vi kan undgå at der kommer tomme celler i den fil du henter dem fra.

=HVIS('G:\Excell lister\[vær. liste1.xls]liste'!$B$42<>"";'G:\Excell lister\[vær. liste1.xls]liste'!$B$42;"ååå")

Ikke helt optimalt da jeg skal udskrive siden, og ikke ønsker at slette ÅÅÅ'erne manuelt.

Prøv denne kode, obs. marker data før du kører makro

Sub Sorter()
For Each c In Selection
If c.Value = 0 Then c.Value = ""
Next
Selection.Sort Key1:=ActiveCell, Order1:=xlAscending
End Sub

Kan felterne lægges ind i makroen, så data ikke skal markeres inden makroen køres? Det drejer sig om A9 til A55.

Det skal være nemt, da der er flere der skal bruge regnearket.

ja men vi må også hellere angive Arknavn - hvad er det ?

ellers blot ret navn i linie 2

Sub Sorter()
Sheets("Ark1").Select
For Each c In Range("A9:A55")
If c.Value = 0 Then c.Value = ""
Next
Range("A9:A55").Sort Key1:=Range("A9"), Order1:=xlAscending
End Sub

Den gør hvad den skal, men sletter samtidg formlerne i de tomme felter, og det dur ikke.

Så prøv i stedet at sætte autofilter på
Marker A8:A55 og Vælg Filter/Autofilter i menuen Data
Vælg Bruger
Forskellig fra og indtast 0 i felt til højre
og vælg Sorter stigende

Den manøvre kan også udføres med en makro
Har du en overskrift i celle A8 ?

Feltet A8 er tomt

Sub Sorter2()
Range("A9:A55").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd
Range("A9:A55").Sort Key1:=Range("A9"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
Range("A8").Select
End Sub

Feltet A9 er tomt med ikon for sorter/filter. Ellers fungerer makroen fint.

='[vær. liste1.xls]liste'!$C$27 formlen ligger fast i celle A9 og sorteres ikke i alfabetisk rækkefølge.

prøv denne :

Sub Sorter3()
Range("A8:A55").Select
Selection.AutoFilter
'Hvis der ikke skal vises Dropdown pil så vælg linien lige herunder og remark den lige efter
'Selection.AutoFilter Field:=1, Criteria1:="<>0", VisibleDropDown:=False, Operator:=xlAnd
Selection.AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd
Range("A9:A55").Sort Key1:=Range("A8"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
       
Range("A8").Select
End Sub

Hej excelent... så fungerer den fint. Arket skal låses så der ikke kommer pilfingre i formlerne. Når arket låses kan jeg tilsyneladende ikke køre makroen fra en makroknap. Kan det løses, eller kan makroen køres automatisk, når arket åbnes? På forhånd tak.

ja til begge
Hvis du sætter koden ind i modulet ThidWorkbook, så køres den når Projektmappen åbnes
Men du kan også blot indsætte kode til at fjerne/sætte beskyttelse i koden i knappen (ActiveSheet.Unprotect/Protect)

Private Sub Workbook_Open()
ActiveSheet.Unprotect
Range("A8:A55").Select
Selection.AutoFilter
'Hvis der ikke skal vises Dropdown pil så vælg linien lige herunder og remark den lige efter
'Selection.AutoFilter Field:=1, Criteria1:="<>0", VisibleDropDown:=False, Operator:=xlAnd
Selection.AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd
Range("A9:A55").Sort Key1:=Range("A8"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
       
Range("A8").Select
ActiveSheet.Protect
End Sub

Hej excelent...
Jeg har lagt den i ThisWorkbook, og det sorterer ved åbning af ark. Så langt så godt. Der er dog et lille problem i feltet A9. Det navn der ligger i A9 ligger fast og indgår ikke i sorteringen.

Koden indsætter et mellemrum i celle A8 (tom overskrift)
Ret evt. Ark1 til aktuel

Private Sub Workbook_Open()
Sheets("Ark1").Unprotect
Range("A8") = Chr(32)
Range("A8:A55").AutoFilter
'Hvis der ikke skal vises Dropdown pil så vælg linien lige herunder og remark den lige efter
'Selection.AutoFilter Field:=1, Criteria1:="<>0", VisibleDropDown:=False, Operator:=xlAnd
Selection.AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd
Range("A8:A55").Sort Key1:=Range("A8"), Order1:=xlAscending, Header:= _
        True, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
       
Range("A8").Select
Sheets("Ark1").Protect
End Sub

Hej Excelent. Jeg vil gerne have fjernet dropdown pilene, men forstår ikke helt, hvordan jeg skal remarke. Kan jeg få dig til at uddybe? Det ser i øvrigt fint ud nu.

Hvis der sættes et REM først i linien, udføres den ikke, REM kan forkortes til ' = aprostrof

Private Sub Workbook_Open()
Sheets("Ark1").Unprotect
Range("A8") = Chr(32)
Range("A8:A55").AutoFilter
'Hvis der ikke skal vises Dropdown pil så vælg linien lige herunder og remark den lige efter
Selection.AutoFilter Field:=1, Criteria1:="<>0", VisibleDropDown:=False, Operator:=xlAnd
REM Selection.AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd
Range("A8:A55").Sort Key1:=Range("A8"), Order1:=xlAscending, Header:= _
        True, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
       
Range("A8").Select
Sheets("Ark1").Protect
End Sub

Hej Excelent. Det fungerer fint og helt efter hensigten. Der er et lille kosmetisk problem med dropdown pile i cellerne B8, C8, D8 og frem til J8. Jeg kan sagtens leve med dem, men kan de fjernes, vil det være dejligt. Tak for din tålmodighed og store hjælp. Smider du også lige et svar så pointene kan gives.

Ja det vil jeg da tro, kikker på det i aften