Ændring af modulkæde

Filnavn=range("a1").value
ChDir "C:\Documents and Settings\Jesper Knudsen\Dokumenter\Visual"
    Workbooks.Open FileName:= _
        "C:\Documents and Settings\Jesper Knudsen\Dokumenter\Visual\" & Filnavn

Sorry, jeg så ikke lige at du brugte tal.

Filnavn=Cstr(range("a1").value)& ".xls"
ChDir "C:\Documents and Settings\Jesper Knudsen\Dokumenter\Visual"
    Workbooks.Open FileName:= _
        "C:\Documents and Settings\Jesper Knudsen\Dokumenter\Visual\" & Filnavn

tak...

selv tak. virker det ??

ja... det skal vist lige finjusteres... vender lige hurtigt tilbage...

Sådan ser min ud nu:

Sub Makro16()
'
' Makro16 Makro
' Makro indspillet 03-02-03 af Bo Vang Nielsen
'

'
    Application.CutCopyMode = False
    Filnavn = Range("b1").Value
    Workbooks.Open FileName:="\\Fs1\DATA\EM\Kalkulationer\Kalk 2003\" & Filnavn, _
        UpdateLinks:=3
    Rows("3:58").Select
    Selection.Copy
    Windows("Mappe7.xls").Activate
    Rows("3:58").Select
    ActiveSheet.Paste
    Windows("468.xls").Activate
    ActiveWindow.Close
    Range("A4:B4").Select
End Sub

Problemet er nu:

1. At den henviser til "468" længere nede... her skal den henvise til samme sytem som forinden.
2. Når den skal lukke "468" ned, så spørger den om, ændringer skal gemmes, og om der kan frigøres hukommelse. Disse melding skal der svsres automatisk nej til.

Kan dette lade sig gøre?

fjern
Windows("468.xls").Activate
ActiveWindow.Close

og erstat med
Workbooks(Filnavn).Close savechanges:=False

Jeg tror den er der nu.. jeg kan dog først rigtigt teste det imorgen...

Nu er den ved at være der... den kommer dog med et en fejl:

Kørselsfejl "9"

Indekset er uden for området

Kan man ikke få den til at ignorere denne fejlbesked?

Et lille tillægsspørgsmål (sig til, hvis du vil have flere points).

Kan man få den til at, altid at hente fra det forreste ark i projektmappen?

Dette skyldes, at den i øjeblikket kun tager fra det ark der er aktiveret, når den åbner regnearket.

Sub Makro16()
'
' Makro16 Makro
' Makro indspillet 03-02-03 af Bo Vang Nielsen
'

'
    Application.CutCopyMode = False
    Filnavn = Range("b1").Value
    Workbooks.Open FileName:="\\Fs1\DATA\EM\Kalkulationer\Kalk 2003\" & Filnavn, _
        UpdateLinks:=3
    Rows("3:58").Select
    Selection.Copy
    Windows("Mappe7.xls").Activate
    Rows("3:58").Select
    ActiveSheet.Paste
    Workbooks(Filnavn).Close savechanges:=False
    Range("A4:B4").Select
End Sub

Til dit spm. 2
Indsæt denne linie

Workbooks.Open FileName:="\\Fs1\DATA\EM\Kalkulationer\Kalk 2003\" & Filnavn, _
        UpdateLinks:=3

  Sheets(1).Select

  Rows("3:58").Select

Hvilken linie markerer den kørselsfejl i (debug, gul linie)

Hehe.. du skal vist have nogle flere points...

Denne linie er markeret:

Workbooks(Filnavn).Close savechanges:=False

Iøvrigt.... den lukker ikke det ark ned, som den henter data fra... hvis du kan løse det... så er du sgu en gud...;-)

prøv lige at ændre linien med Filnavn
Filnavn = range("B1").value & ".xls"

Nu er den vist ved at være der.... det eneste der skal væk nu, er at den ikke skal spørge om, den må frigøre hukommelse...

sæt lige denne linie på til slut
Application.CutCopyMode = False

Hmm... den kommer stadigvæk...

Application.CutCopyMode = False
    Filnavn = Range("C4").Value & ".xls"
    Workbooks.Open FileName:="\\Fs1\DATA\EM\Kalkulationer\Kalk 2003\" & Filnavn, _
        UpdateLinks:=3
    Sheets(1).Select
    Rows("3:58").Select
    Selection.Copy
    Windows("TestKalk.xls").Activate
    Rows("12:67").Select
    ActiveSheet.Paste
    Workbooks(Filnavn).Close savechanges:=False
    Range("A4:B4").Select
    Application.CutCopyMode = False
   
End Sub

Du får lige en forkortet version:
Sub nr3()
    Application.CutCopyMode = False
    Filnavn = Range("C4").Value & ".xls"
    Workbooks.Open Filename:="c:\" & Filnavn, UpdateLinks:=3
    Sheets(1).Rows("3:58").Select
    Selection.Copy Destination:=Workbooks("Testkalk.xls").Sheets(1).Range("A12")
    Workbooks(Filnavn).Close savechanges:=False
    Range("A4:B4").Select
    Application.CutCopyMode = False
End Sub

Husk lige at skrive rigtig sti ind

okay... tjekker det senere i aften...

Så virker det... takker mange gange...