Hej igen,
Du åbner din fil.
Holder på ALT tasten nede mens du trykker én gang på F11
Nu ser du din fil i venstre siden af skærmen.
Klik på ThisWorkbook og sæt følgende kode ind i tekstområdet i højre side (Illustreret herover)
Private Sub Workbook_Open()
'*** 20-10-2010 - Excel-regneark.dk ***
'**************************************
DatoRange = "D2:D100" '**
UdlDato = "G1" '**
AktiveArkNavn = "Aktive" '**
PassiveArkNavn = "Passive" '**
'**************************************
Application.ScreenUpdating = False
For Each dato In Sheets(AktiveArkNavn).Range(DatoRange).Cells
If dato <> "" And dato.Value < Sheets(AktiveArkNavn).Range(UdlDato).Value Then
dato.EntireRow.Cut
Sheets(PassiveArkNavn).Range("A2").Insert Shift:=xlDown
End If
Next dato
Sheets(AktiveArkNavn).Range(DatoRange).Select
Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete (xlShiftUp)
Sheets(AktiveArkNavn).Range("A1").Activate
End Sub
Nu skal du ændre DatoRange til det omåde dine datoer står i.
AktiveArkNavn er navnet på det ark i din fil som indeholder de aktive, samme procedure følges med PassiveArkNavn
UdlDato er den celle hvor du har din udløbsdato, den kan du naturligvis også ændre.
Gem nu filen.
Næste gang du åbner filen, køres koden.
Virker det for dig?
//Allan