Jeg sætter virkelig pris på at du hjælper mig :-)

 

Det virker ikke :-( nu har jeg sat koden ind i det rigtige ark og ændret den, men uden held, kan du se fejlen?

Private Sub Workbook_Open()
'*** 20-10-2010 - Excel-regneark.dk ***
'**************************************
DatoRange = "M4:M1504"               '**
UdlDato = "G1"                      '**
AktiveArkNavn = "Sagsregisrering 2010"            '**
PassiveArkNavn = "Afsluttede sager 2010"          '**
'**************************************
 
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

Hej Allan

 

Så vidt jeg kan forstå så er VBA en måde at kode en macro ud over det man kan indspille, er det korretk? Vil jeg så i teorien ikke godt selv kunne kode mit ark hvis du koder det her og så sender koden til mig? Så er det vel bare at kopier koden og så diffinere hvilken kolonne udløbsdatoen sidder i? eller er det ikke så enkelt?

 

Jeg smider lige et test ark op som vi kan snakke ud fra.

 

Dem der har overskredet datoen i kolonne D "medlemsskab betalt frem til". De skal når jeg aktivere VBAen flytte sig over på arket passive. Det skal virke sådan at jeg i princippet hver dag skal kunne trykke på knappen og så flytter dem der har overskredet datoen sig. Det bedste var hvis de gjorde det helt uden at jeg skulle gøre noget, altså sådan at regnearket opdatere af sig selv UDEN at man skal trykke på noget som helst. Men det kan vel ikke lade sig gøre?

 

Det kunne være super hvis du kunne hjælpe mig her :-)

 

Ja, det er muligt, dog ikke med en formel men med VBA.

Prøv at lægge dit ark op i forum, så skal jeg nok kigge på det.

 

//Allan