Makro

Kunne du ikke vise din makro? Det ville være lidt lettere at forstå problemet, hvis man kan se koden

Ja, kan du ikke kopiere din makro herind, så skal jeg kigge på det

Application.DisplayAlerts = False
    Sheets(\"Ark1\").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=5, Criteria1:=\"2.1\"
    Sheets(\"Ark1\").Copy
    ActiveWorkbook.SaveAs FileName:=\"C:\\Dokument\\2.1.xls\"
     
    Application.DisplayAlerts = True
   
    ActiveWorkbook.Close SaveChanges:=True

Det giver måske lidt problemer, at du vil køre noget autofilter på en lukket fil.

Jeg ville åbne den først:
    Workbooks.Open \"C:\\Dokumenter\\minexcelfil.xls\"
så lukke den igen til sidst:
    ActiveWorkbook.Close SaveChanges:=True
således har du ovenstående linie 2 gange efter hinanden.

altså noget lign. dette:

Application.DisplayAlerts = False
    Workbooks.Open \"C:\\Dokumenter\\minexcelfil.xls\"
    Sheets(\"Ark1\").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=5, Criteria1:=\"2.1\"
    Sheets(\"Ark1\").Copy
    ActiveWorkbook.SaveAs FileName:=\"C:\\Dokument\\2.1.xls\"
     
    Application.DisplayAlerts = True
   
    ActiveWorkbook.Close SaveChanges:=True
    ActiveWorkbook.Close SaveChanges:=True

ja, jeg må jo bøje mig i støvet flemmingdahl. Du er godt nok hurtig på aftrækkeren *S*

*s* bøj dig nu ikke for dybt, jeg har set, at du godt ka\' *s*

Den fil som makroen afspilles er åbent. Det er den anden fil (2.1.xls), hvori dataen gemmes, kan være åben af en anden bruger.
Derfor Workbooks.Open \"C:\\Dokumenter\\minexcelfil.xls\"
behøves ikke at tilføje.

Nu skriver du kan være åben. For mig lyder det som om, du bør teste på, om filen virkelig er åben, før makroen kører videre. Ellers vil du rende ind i et problem, hvis filen en dag ikke er åben.

Hvordan kan jeg gøre det.

Det jeg havde tænkte på at kunne lukke den anden fil vhj. af IF-sætning.

det er osse den løsning, jeg lige sidder og roder med

Hvis filen er åben hos en anden bruger, så får du svært ved at lukke filen men en makro, hvis du overhovedet kan det.

Spørgsmålet er, om du kan løse problematikken ved at lave deling på filen 2.1.xls - hvis ikke det hjælper, så ..... hmmm

Som jeg ser det, er problemet mere, at makroen kan startes uden at filen er åben. Herved vil der jo opstå en fejlmelding, og makroen standser.

Jeg har prøvet at flikke nedenstående rutine sammen. Den kræver dog nogen tilretning, men viser ideen.

Sub test_fil()

    On Error GoTo fil_findes_ikke
    Windows(\"systemdata.xls\").Activate

test_fil_afslut:
  Exit Sub
   
fil_findes_ikke:
    MsgBox (\"Filen er ikke åben\")
    Resume test_fil_afslut
End Sub

I dette eksempel forsøger Excel at skifte til dataarket. Hvis det ikke findes, fremkommer en tekstboks med en fejlmelding. Her skal du i stedet åbne din fil.
Resten af din kode skal så komme i test_fil_afslut

Jeg prøvede Flemmingdahl´s forslag. Det virkede udmærket. Tak for jer allesammen.

;-) altid en fornøjelse