Udvælge data ud fra dato

Kan dette bruges?

Sub marko2()

Set tilark = Sheets("ark2")
Set fraark = Sheets("ark1")
lastrow = fraark.Range("A65536").End(xlUp).Row

rt = 2
For r = 2 To lastrow
    If Not fraark.Cells(r, 1).Value = fraark.Cells(r - 1, 1).Value Then
        tilark.Cells(rt, 1) = fraark.Cells(r, 1)
        tilark.Cells(rt, 2) = fraark.Cells(r, 5)
        rt = rt + 1
    End If
Next r
End Sub

Det kan jeg så fortælle dig, at det kan den ikke :o), men prøv denne:

Sub marko2()

Set tilark = Sheets("ark2")
Set fraark = Sheets("ark1")
lastrow = fraark.Range("A65536").End(xlUp).Row

rt = 2
For r = 2 To lastrow
    If Not fraark.Cells(r, 1).Value = fraark.Cells(r + 1, 1).Value Then
        tilark.Cells(rt, 1) = fraark.Cells(r, 1)
        tilark.Cells(rt, 1).NumberFormat = fraark.Cells(r, 1).NumberFormat
        tilark.Cells(rt, 2) = fraark.Cells(r, 5)
        rt = rt + 1
    End If
Next r
End Sub

Makro 2 virker - Tak - Smid et svar, så du kan få dine point!

Kan du ikke lige fortælle mig hvad den gør!

i alle rækker
hvis denne række er forskellige fra den næste
tag denne række ( cells(rækkenr,kolonnenr)

lukketid ?

Så er der lukketid - Tak for hjælpen!