Filtrere data ud fra bestemte kriterie.

Sub Makro1()

    Range("B1").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=2, Criteria1:=">0", Operator:=xlAnd
End Sub

Jeg burde nok have sagt, at autofilter ikke du'r, da mine data skal ind i et skema, og det skal køre med automatisk beregning.

Har forsøgt mig lidt med INDEKS-beregning, men jeg kan desværre ikke gennemskue det!

Sub Makro4()
Dim RW As Long, I As Long, N As Long
  RW = Range("A65536").End(xlUp).Row
  N = 2
  For I = 2 To RW
  If Cells(I, 2) > 0 Then
  Range("a" & I & ":B" & I).Copy Range("D" & N)
  N = N + 1
  End If
  Next
 
End Sub

her får du en ny liste i D+E kolonnen, du skal selv lave overskrifter

Det er jo smart. Dog er der fejl i det. Har netop testet på en liste, som ser sådan ud:

A                      B
-------------------------------------   
Dato                    Antal mangler
SØNDAG, 1. JAN. 06    0
SØNDAG, 1. JAN. 06    1
MANDAG, 2. JAN. 06    2
MANDAG, 2. JAN. 06    -1
TIRSDAG, 3. JAN. 06    -1
TIRSDAG, 3. JAN. 06    -1
ONSDAG, 4. JAN. 06    -1
ONSDAG, 4. JAN. 06    -1
TORSDAG, 5. JAN. 06    2
TORSDAG, 5. JAN. 06    0
FREDAG, 6. JAN. 06    0
FREDAG, 6. JAN. 06    -3

Når jeg kører makroen, så bliver resultatet i kolonne D+E sådan her:
D                      E
-------------------------------------   
Dato    Antal mangler
ONSDAG, 4. JAN. 06    1
TORSDAG, 5. JAN. 06    2
SØNDAG, 8. JAN. 06    2

Jeg får de rigtige tal frem, men datoerne passer ikke helt overens med tilsvarende række.

??

Dato    Antal mangler
SØNDAG, 1. JAN. 06    1
MANDAG, 2. JAN. 06    2
TORSDAG, 5. JAN. 06    2

jeg får disse

har du lavet om på koden ?

Nu har jeg set problemet. De datoer jeg har på min liste, er referencer til celler i et andet ark. Når jeg har disse referencer som data, så får jeg fejlen. Hvis jeg skriver datoerne i cellerne, så får jeg det samme som dig. Dog er jeg nødt til at have denne celle-reference i cellen.

Celle-referencen i dato-cellerne ser sådan ud:
=STORE.BOGSTAVER(TEKST(Ark1!F$3;"dddd, d. mmm. åå"))

Har du nogen forklaring på dette, kabbak?

Nej, jeg har kopieret koden nøjagtigt ind, som du skrev den!

Der er i øvrigt også samme problem med at finde de rigtige data, når jeg i kolonne B bruger beregningsformular til resultat. Beregningerne i kolonne B ser sådan ud:

=Ark1!C$46-Ark1!C$43

Sub Makro4()
    Dim RW As Long, I As Long, N As Long
    RW = Range("A65536").End(xlUp).Row
    N = 2
    For I = 2 To RW
        If Range("B" & I) > 0 Then
          Range("A" & I & ":B" & I).Copy
          Range("D" & N & ":E" & N).PasteSpecial Paste:=xlValues
            N = N + 1
        End If
    Next
End Sub

nu kommer formlerne ikke med

Perfekt, kabbak - tusind tak. Det er meget fint nu! Giv mig et svar!

et svar ;-))