Hej,

Har fastnat, kan någon hjälpa?
En mkt förenklad beskrivning av problemet:

Har ett Excel ark med flertalet arktiklar i. Kolumnerna är artnr, pris och antal. Antal är det man fyller i.

Artnr, pris, antal
1 99 2
2 732 1
3 23
4 345 1
5 34
6 192

Listan bli rätt lång och det jag skulle vilja är att för de artiklat där värdet i antal är 1 eller större så ska informationen skrivas ut högst upp. Så att man i detta fall får:

-------------------
Summering:
Artnr, pris, antal
1 99 2
2 732 1
4 345 1
--------------------

Artnr, pris, antal
1 99 2
2 732 1
3 23
4 345 1
5 34
6 192

Kan ju lösa det med en =IF(antal>=1 så skriv ut; annars inte) men då kommer det ju att bli massa tomma rader som jag inte vill ha med

Artnr, pris, antal
1 99 2
2 732 1

4 345 1

Nån som fattar vad jag menar och vet hur man får till detta?

/Fredrik

Manuellt kan du fixa det så här

1. Markera antalskolumen
2. Tryck F5, välj special
3. Välj "blanks" (vet inte vad det står i svensk Excel)
4. Tryck OK
5. Dölj rader med CTRL-9 (finns som menyalternativ nånstans också)

För att visa alla rader igen
1. Markera antalskolumnen
2. Tryck CTRL-SHIFT-9 eller välj unhide rows i menyn.

Borde väl gå att spela in ovanstående som makros.

Varför inte använda autofilter?

Data->Filter->Autofilter
Välj Nonblanks i antal-kolumnen.

Se till att du står i en cell i det område du vill sortera

välj i menyn: Data-Sortera
då får du upp en dialogruta där du kan välja hur du vill sortera

ex: antal och fallande då sorteras kolumnerna som du vill ha dom.
ex: Artnr och stigande för att återställa som det var tidigare.


Makrolösning:

' -------------- Sortera listan --------------

Sub Sorterad_Lista()
'
' Range("A1:C7") får ändras så det passar listan
' Sortera listan efter kolumn C2 vilket är antal
'
Range("A1:C7").Sort Key1:=Range("C2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub



' -------------- Återställ listan ------------


Sub Ej_Sorterad_Lista()
'
' Range("A1:C7") får ändras så det passar listan
' Sortera listan efter kolumn A2 vilket är Artnr
'
Range("A1:C7").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

'/Åke